VB操作TXT.docVIP

VB操作TXT cells(1,1) 代表A1 cell(2,C)代表C2,=COUNTIF()+COUNTIF()+COUNTIF() 1.怎么通过代码创建一个文本文件，并读取，更新内容 以上为随即方式打开的文本文件 dim gfilenum as integer gfilenum = FreeFile Open 文件路径及文件名 For Random As gfilenum len=3 \以随即方式打开一文件如果文件不存在就新建 用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\读取操作 用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\写操作 close #filenum\关闭文件 以下为顺序方式打开的文件 dim gfilenum as integer gfilenum = FreeFile Open 文件路径及文件名 For output As gfilenum \以写入方式打开文本 print #gfilenum,要写入的文本 write #filenumber,要写入的文本 dim gfilenum as integer gfilenum = FreeFile Open 文件路径及文件名 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 Long Dim LoadBytes() As Byte TempFile=FreeFile Open 文件名 For Binary As #TempFile Redim LoadBytes(1 To Lof(TempFile)) As Byte Get #TempFile,,LoadBytes Close TempFile Text1.Text=StrConv(LoadBytes,vbUniCode) 把TextBox内容写入文本文件： Dim TempFile As Long Dim SaveBytes() As Byte SaveBytes=StrConv(Text1.Text,vbFromUniCode) TempFile=FreeFile Open 文件名 For Binary As #TempFile Put #TempFile,,SaveBytes Close TempFile 4. 打开文本文件 open app.path /你的文本文件名.txt for output as #1 Message.Name=text1.text Message.Phone=text2.text ....................... message.PostCode=text5.text Put #1,i,Message \(此处i=1,如要多次写入,可用循环设置i的值) close #1 \写入的同时即已保存 查询的话就取出文本里的内容,用instr()函数就可实现了 5. 查找vbCrLf、vbLf换行标记 6.怎样读取一个文本文件的全部内容 dim lenfile as integer dim filenum as integer filenum=freefile() open file.dat for input as filenum lenfile=lof(#filenum) strfile=input(lenfile,#filenum)\将所有数据放入变量strfile中 close filenum Private Sub Form_Load() Const ForReadi