VB 查看文本内容

来源：百度知道 编辑：UC知道 时间：2024/06/27 06:10:25
查看123.txt内容如果里面有与TEXT1.TEXT里面的内容相符就提示

建一个Command1,Text1. 我默认路径为d:\123.txt.
代码如下。
==============
Private Sub Command1_Click()
Dim s As String
Open "d:\123.txt" For Input As 1
Do Until EOF(1)
Line Input #1, s
If InStr(1, s, Text1.Text) > 0 Then MsgBox "有相符": Exit Sub
Loop
Close
MsgBox "无相符"
End Sub