我想实现
判断TXT中每行前三个字符 是否为ABC
并记录 这个文件里共有多少行 开头三个字符为ABC
FileOpen(1, "c:\f01\split\F01.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
If a = "ABC" Then
b = b + 1
End If
Loop
FileClose(1)
我这个 为什么不行 ?
另外 Input(1, a) 中的1 什么意思啊?
參考答案:1是文件号. 以后就用1代表这个文件. 代码是有问题的, 我给你改了.
Private Sub Command3_Click()
Dim lines As Long
Dim curLine As String
Open "c:\f01\split\F01.txt" For Input As #3
While Not EOF(3)
Line Input #3, curLine
If Left(curLine, 3) = "ABC" Then
lines = lines + 1
End If
Wend
Close #3
MsgBox lines
End Sub
Open "c:\f01\split\F01.txt" For Input As #3 这句跟你那句
FileOpen(1, "c:\f01\split\F01.txt", OpenMode.Input)
是一样的. #3也是文件号, 以后的操作就按它进行, 比如 line input #3,curLine 就是从#3文件读一行到curLine变量中.