如何读取TXT文件的内容
我是个小鸟。请大鸟帮帮忙。怎么飞行呢。。TXT,内容比如是
adbc.aaaa
a222222.22222
a1111.11111
bbbbbb.111111
内容很多
IF a1111.11111= 数据里面的内容就执行下语句,,怎么才能做到呢,,谢谢了。
帮帮忙
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 = "192.168.1.80" Then
MsgBox "正常OK"
Exit Do '找到了退出循环
Else
End If
Dim s11 As String
If s11 And Not EOF(FreeNum) Then
Line Input #FreeNum, A '读取下一行的内容
Exit Do '退出循环
End If
Loop
Close FreeNum
------------------------------------------------------------------------------------
请问一下为什么这里
变量为定义怎么解决呢。。。
If s11 And Not EOF(FreeNum) Then