Question

我有一个由应用程序生成的文本文件，该文件名为＆＃34; ErrorLog.log＆＃34;

日志读取（每天最多输入300条记录）：

版本3.10
未找到文件
总共读取0条消息。总计   发送的消息：0 \收到的消息总数：0
上次   连接是08 \ 20 \ 2013 at 08:17:50
版本3.10
没有文件   共找到0条信息总数发送的消息总数：0   收到的总消息数：0
上次连接的时间是08 \ 20 \ 2013 at   08:20:14
版本3.10
未找到文件
总共0条消息   读取已发送的消息总数：0 \收到的消息总数：0
  上次连接时间为08 \ 20 \ 2013 at 08:30:14

我真正需要的是获得＆＃34;收到的总消息数＆＃34;在文件中。该文件包含文件末尾或类似内容。

我想接下来那个号码：

将其写入名为TransactionsDaily.txt
向我的团队发送电子邮件，说明＆＃34; x消息已于2013年8月20日处理。＆＃34;。

Answer 1

尝试这样的事情：

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

从文本文件中提取值并报告总和

1 个答案: