在Vbscript中找到文本

时间:2012-10-17 02:41:11

标签: vbscript

我正在寻找帮助来读取日志文件,其中日志文件在日志中有当前日期,我想从那里读取所有行并查找错误以输出当前日期的错误。

我的示例日志文件

[10/12/2012 testing the app1
[10/13/2012 testing the app2
[10/14/2012 testing the app3
[10/15/2012 testing the app4

我未完成的vbscript:

Const ForReading = 1

Dim strSearchFor

strSearchFor = "currentdate in the log file"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)

strLine = objTextFile.ReadLine

If log contains (inside mylogfile.log file the) current date then ' I am looking help to write the code here...

  Wscript.Echo "we found current date"

Else

  Wscript.Echo "We did not found current date"

End If

在此寻求帮助...非常感谢....提前......

2 个答案:

答案 0 :(得分:1)

InStr会在字符串

中找到子字符串
Const ForReading = 1

Dim strSearchFor
strSearchFor = "currentdate in the log file"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)

do until objTextFile.AtEndOfStream
    strLine = objTextFile.ReadLine()

    If InStr(strLine, strSearchFor) <> 0 then
        Wscript.Echo "we found current date"
    Else
        Wscript.Echo "We did not found current date"
    End If
loop
objTextFile.Close

答案 1 :(得分:1)

这是Powershell方式(我写作时的问题也被标记为Powershell ......)

$log = get-content c:\path\mylogfile.log

$find = $log | select-string '10/15/2012' #the date you need to find

if ($find)
{
"we found current date"
}
Else
{
"We did not found current date"
}