Question

查找文件中是否存在指定字符串（VB）

Answer 1

可以参考如下示例：

Private Sub Form_Click()
    Dim st As String, s As String, part As String
    Open "c:\1.txt" For Input As #121 '打开文件
        While Not EOF(121)
            Line Input #121, s    '逐行读取
            st = st & s & vbCrLf  '存入变量st
        Wend
    Close #121 '读取完毕
    part = "待查找内容"
    If InStr(st, part) <> 0 Then MsgBox "存在该字符串"
End Sub

Answer 2

用VB语言写的函数，查找文件中是否存在指定字符串，如果存在则返回该字符串所在的行，不存在则返回空字符串