vb 查找字符串

来源:百度知道 编辑:UC知道 时间:2024/05/20 13:11:03
如何实现查找文件中的特定字符串,并将所有含有此特定字符串的行列出来。类似于ultaredit15中list line containning string的功能。

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