字符串查询方法,file_path变量为文件路径,search_string为待查询的字符串
Function SearchStringInFile(file_path, search_string)
Dim strline, whether_find
whether_find = 0
Set objFso=CreateObject("Scripting.FileSystemObject")
Set objFread=objFso.OpenTextFile(file_path, 1)
Do Until objFread.AtEndOfStream
strline=objFread.ReadLine
If Instr(1, strline, search_string) Then
whether_find = 1
Exit Do
End If
Loop
objFread.Close
Set objFread = Nothing
Set objFso=Nothing
If whether_find = 1 Then
SearchStringInFile = strline
else
SearchStringInFile = ""
End If
End Function
