1. vb 读取并查找指定的TXT文本内容怎么查找
Fori=0ToList1.ListCount-1
Ifnpos=List1.List(i)ThenMsgBox"OK":ExitFor
Next
Ifi=List1.ListCountThenMsgBox"NG"
2. vb 怎么识别 txt文件内容
如何利用VB读取TXT文件的内容呢？一种方法是将整个文件读取到内存中，例如：（假设读取C:\Debug.txt）
Open "C:\Debug.txt" For Input As #1
TextValue = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
其中，TextValue即为TXT文件的内容。
另一种方法是逐行读取文件，例如：（假设读取C:\Debug.txt）
Dim TextLine As String
Open "C:\Debug.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Loop
Close
这种方法会一直循环直到文件结尾，每次循环中，TextLine就代表当前读取到的一行内容。
如果你需要对文件内容进行判断，推荐使用第二种方法。可以在Do-Loop循环中编写相应的判断函数。为了使判断更加精确，建议在“Line Input #1, TextLine”这行代码下面添加一行：VLine = Trim$(TextLine)，这可以去除每一行文本首尾的多余空格，从而使判断更加准确。
在进行判断时，你可以根据实际需求设置条件，例如判断TextLine是否包含特定的字符串，或者根据TextLine的内容进行分类处理等。
逐行读取的方法可以灵活应对不同长度的文件，并且在处理过程中可以对每一行进行即时处理，这在处理大型文件时尤为有用。
3. vb 如何判断文件夹内是否有文件
1、vb使用dir函数来查找文件或文件夹。
2、Dir 函数：
返回一个 String，用以表示一个文件名、目录内名或文件夹名称，它必须与指定的容模式或文件属性、或磁盘卷标相匹配。
语法：Dir[(pathname[, attributes])]
3、Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。
4、vb6示例:
MyFile = Dir("C:\WINDOWS\WIN.ini")
' 返回"WIN.INI"（文件存在），返回""(文件不存在)。
4. VB读取TXT文件并获取指定内容
Private Sub Form_Load()
On Error Resume Next
Open App.Path & "\ok.txt" For Input As #1
Do Until EOF(1)
Line Input #1, x
For Each i In Split(x, vbCrLf)
If LCase(Right(i, 2)) = LCase("no") Then Text2.Text = Text2.Text & Trim(Split(i, " ")(1)) & vbCrLf: Text1.Text = Text1.Text & Trim(Split(x, " ")(1)) & vbCrLf
Next
Loop
Close #1
End Sub
'2个textbox,multiline=1,scrollbars=2.代码可以自己改,这里是读取当前文件夹下的ok.txt