Question

vb 查找字符串

如何实现查找文件中的特定字符串，并将所有含有此特定字符串的行列出来。类似于ultaredit15中list line containning string的功能。

Answer 1

Dim strLine As String
Dim strCont As String

strCont = "特定字符串"

Open 文件名 For Input As #1
Do
Line Input #1, strLine
If InStr(strLine, strCont) > 0 Then
Debug.Print strLine '输出
End If
Loop Until EOF(1)
Close 1