vb读取txt文件.docVIP

vb读取txt文件1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen?? 文件路径及文件名 For Random As gfilenum len=3\以随即方式打开一文件如果文件不存在就新建用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\读取操作用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\写操作close #filenum\关闭文件以下为顺序方式打开的文件dim gfilenum as integergfilenum = FreeFileOpen?? 文件路径及文件名 For output As gfilenum \以写入方式打开文本print #gfilenum,要写入的文本write #filenum,要写入的文本 dim gfilenum as integergfilenum = FreeFileOpen?? 文件路径及文件名 For input As gfilenum \以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名还可用line input#,input()等读取更详细的查msdn 2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。如果是Set f = fs.OpenTextFile(E:\\table\\trace.txt, forreading, True, TristateUseDefault)出现错误：Run-time error \5\:Invalid procedure call or argument 如果是Set f = fs.OpenTextFile(E:\\table\\trace.txt)则不会报错。 用文件对象啊FileSystemControl操作就好了啊再加上一个TextStream读取文件第一行就好了啊。 3.VB通过FileSystemObject,可以读取文本文件(.txt)。对于.bat文件，VB可否直接读取?bat也属于文本类文件可以读取 不用FSO也行： 把文本文件内容读取TextBox：Dim TempFile As LongDim LoadBytes() As Byte TempFile=FreeFileOpen 文件名 For Binary As #TempFileRedim LoadBytes(1 To Lof(TempFile)) As ByteGet #TempFile,,LoadBytesClose TempFile Text1.Text=StrConv(LoadBytes,vbUniCode) 把TextBox内容写入文本文件：Dim TempFile As LongDim SaveBytes() As Byte SaveBytes=StrConv(Text1.Text,vbFromUniCode) TempFile=FreeFileOpen 文件名 For Binary As #TempFilePut #TempFile,,SaveBytesClose TempFile 4.打开文本文件 open app.path /你的文本文件名.txt for output as #1???? Message.Name=text1.text???? Message.Phone=text2.text???? .......................???? message.PostCode=text5.textPut #1,i,Message?? \(此处i=1,如要多次写入,可用循环设置i的值)close #1\写入的同时即已保存查询的话就取出文本里的内容,用instr()函数就可实现了 5.查找vbCrLf、vbLf换行标记 6.怎样读取一个文本文件的全部内容dim lenfile as integerdim filenum as integerfilenum=freefile()open file.dat for input as filenumlenfile=lof(#filenum)strfile=input(lenfile,#filenum)\将所有数据放入变量strfile中close filenum Private Sub Form_Load()???? Const ForReading = 1, ForWriting = 2???? Dim fso, f???? Dim SkipLine