|
'***********在指定的位置查找指定的字符或字符串*************
'***********logName:日志文件名 *************
'***********TextName:查找文件名 *************
'***********FindStr:查找字符吕 *************
'2010-5-8 qwen
sub Me_findStr(logName,TextName,FindStr)
set fso=createobject("scripting.filesystemobject")
If fso.FileExists(logName)=0 then '判断是否存在text.txt文件
'MsgBox
MsgText1="您指定的位置没有日志文件"&logName&"(确定后将在你指定的位置创建该日志文件)"
MsgCloseByTime MsgText1,10,"提示"
fso.createtextfile(logName)
end if
If fso.FileExists(TextName)=0 then
'msgbox
MsgText2="您指定的位置没有文件 "&TextName&"(程序将会终止运行)"
MsgCloseByTime MsgText2,10,"提示"
exit sub
end if
set file=fso.opentextfile(logName,8) '追加形式打开文件
set opfile=fso.opentextfile(TextName) '打开文件
do while opfile.atendofstream=false
line=opfile.readline '读取一行内容
if instr(line,FindStr)>0 then '判断是否包含查找字符
'msgbox now()&" 时找到字符串:"&Findstr&"(已写入日志文件"&logName&")"
MsgText3=now()&" 时找到字符串:"&Findstr&"(已写入日志文件"&logName&")"
MsgCloseByTime MsgText3,10,"提示"
str=now()&" 时找到字符串:"&Findstr '加入缓冲区
end if
loop
file.writeline (str) '搜索到查找字符行写入text.txt文件
file.close()
opfile.close()
end sub
' Me_findstr "D:\log.txt","D:\1.txt","测试"
MsgCloseByTime是我自己定义的另外一个函数...修改下这个,就可以了. |
|