Windows 从文本文件中提取值并报告总和
我有一个由应用程序生成的文本文件,该文件名为“ErrorLog.log” 日志显示(每天最多输入300条记录): 版本3.10Windows 从文本文件中提取值并报告总和,windows,logging,vbscript,Windows,Logging,Vbscript,我有一个由应用程序生成的文本文件,该文件名为“ErrorLog.log” 日志显示(每天最多输入300条记录): 版本3.10未找到任何文件总共读取了0封邮件总计 已发送的邮件:0\已接收的邮件总数:0上次 已连接2013年8月20日08:17:50时版本3.10无文件 已读取的邮件总数为0,已发送的邮件总数为0 收到的邮件总数:0上次连接时间为2013年8月20日 08:20:14版本3.10未找到文件共0条消息 读取发送的邮件总数:0\接收的邮件总数:0 上次连接时间为2013年8月20日0
未找到任何文件
总共读取了0封邮件
总计 已发送的邮件:0\已接收的邮件总数:0
上次 已连接2013年8月20日08:17:50时版本3.10无文件 已读取的邮件总数为0,已发送的邮件总数为0 收到的邮件总数:0
上次连接时间为2013年8月20日 08:20:14
版本3.10
未找到文件
共0条消息 读取
发送的邮件总数:0\接收的邮件总数:0
上次连接时间为2013年8月20日08:30:14
我真正需要的是得到文件中“收到的消息总数”的总和。该文件具有文件结尾文本或类似内容 然后我想记下这个数字,然后:
试着这样做:
Set fso = CreateObject("Scripting.FileSystemObject")
Set re = New RegExp
re.Pattern = ".* Total Messages Received: (\d+)$"
re.IgnoreCase = True
msgCount = 0
Set f = fso.OpenTextFile("C:\path\to\ErrorLog.log")
Do Until f.AtEndOfStream
line = f.ReadLine
If re.Test(line) Then msgCount = msgCount + CInt(re.Replace(line, "$1"))
Loop
f.Close
WScript.Echo msgCount