vb读取tt文件新版.pdfVIP

vb 读取 txt 文件 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 #filenum, 要写入的文本 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 \ 写入的同时即已保存 查询的话就取出文本里