Question

vb 读取并查找指定的TXT文本内容怎么查找

OK.txt 内容有多个用户名，每个用户名占一行。 我想使用INPUTBOX 输入的数据 来对TXT 进行查找对应的值。如果TXT内容中存在有inputbox输入的数据就提示OK。没有就提示NG 该怎么写代码呢？请教大神们~~
现在能实现读出来 但是不知道怎么去查找对应的值~~
大神们帮我改改啊
Private Sub Command1_Click()
Dim nFile As Integer, str As String, npos As String
npos = InputBox("shurumingzi")
nFile = FreeFile
Open App.Path & "\test.txt" For Input As nFile

Do While Not EOF(nFile)
Input #nFile, str
List1.AddItem str
Loop
Close nFile

End Sub

Answer 1

dim txt as string
txt=inputbox(" 请输入要查找的文本")
Do While Not EOF(nFile)
Input #nFile, str
if instr(str,txt)then
msgbox "OK"
Close nFile
exit sub
end
Loop
msbgox "NG"
Close nFile

Answer 2

For i = 0 To List1.ListCount - 1
    If npos = List1.List(i) Then MsgBox "OK":Exit For
Next
If i = List1.ListCount Then MsgBox "NG"

Answer 3

dim
textline
dim
ret
as
string
open
"目录\a.txt"
for
input
as
#1
'
打开文件。
do
while
not
eof(1)
'
循环至文件尾。
line
input
#1,
textline
'
读入一行数据并将其赋予某变量。
'这时就是取到的第一行的值了，如果你确定每行都是这种格式“time=123”，那么你就可以用
'下面的语句：
ret=mid(textline,6)
loop
close
#1
'
关闭文件。

Answer 4

Do While Not EOF(nFile)
Input #nFile, str
if npos = str then exit do

Loop
if eof(nfile) then
msgbox "NG"
else
msgbox "OK"
endif