UC知道高分求教VB问题。
来源：百度知道 编辑：UC知道 时间：2024/07/04 22:48:14
现在有一个文本，假设它在是C:/1.txt
里面有许多数字数据，是隔了行的，如
123456789
32165478945
123456785123123
...
可能有成千上万个数据
现在有一个控件text1
控件里的数据是提前规定好了的，是死的,如text1.text = "23413245"
我想要在已运行程序的时候就自动启动。不需要按钮来运行这些代码。
如果text1控件里的数据与1.txt里的某一行数据相同，则提示存在
如果不相同，就提示不存在。
请高手快来。
里面有许多数字数据，是隔了行的，如
123456789
32165478945
123456785123123
...
可能有成千上万个数据
现在有一个控件text1
控件里的数据是提前规定好了的，是死的,如text1.text = "23413245"
我想要在已运行程序的时候就自动启动。不需要按钮来运行这些代码。
如果text1控件里的数据与1.txt里的某一行数据相同，则提示存在
如果不相同，就提示不存在。
请高手快来。
Dim sTxt As String
Dim sCompare As String
sCompare = Text1.Text
Open "c:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, sTxt
If sTxt = sCompare Then
MsgBox "数据已存在"
Close #1
Exit Sub
End If
DoEvents
Wend
Close #1
msgbox "数据不存在"