中科新闻网哥斯拉2手机在线观看bd:请问VB中如何读取txt文件的数据
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 21:34:53
并将该行的值赋予某个变量
我不会用SQL之类的啊...所以希望大家能帮帮忙啊
比如说一个文本文件的路径为D:\date.txt，然后查找某一个字符并读取该行的下一行的数据，将该数据赋予变量a
请大家讲详细点啊
每一行代码有什么用都讲清楚啊
还有就是如何在读取数值后将一个新值写如到第n行的位置然后保存
读取搜索到的数值后的第n行的代码要怎么写？
Dim A, S As String
Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:\date.txt" for input as #FreeNum
'这步是打开“date.txt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。
Do Until eof(FreeNum) '循环，直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A
S = S + vbNewLine + A 'S用来保存整个文件
If A满足某个条件 And Not Eof(FreeNum) Then
Line Input #FreeNum, A '读取下一行的内容
Exit do '退出循环
End if
Loop
Close FreeNum
至于将一个新值写进第N行，则可以
Dim A, S, S1 As String
Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:\date.txt" for input as #FreeNum
'这步是打开“date.txt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。
Do Until eof(FreeNum) '循环，直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A
S1 = S1 + vbNewLine + A 'S用来保存1到n-1行的内容，S1用来表示n行以后的内容
If A满足新写一行的条件 Then
S = S1
S1 = ""
End if
Loop
Close FreeNum
Open "D:\date.txt" For Output As FreeNum
'关闭文件之后重新以Output的模式打开。
Print #FreeNum, S
Print #FreeNum, 新插入一行的内容
Print #FreeNum, S1
Close FreeNum
即可