查看文件中是否有某个字段，如果存在则返回该字符串所在的行，不存在则返回空字符串

字符串查询方法,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