Извлечение значения из текстового файла и отчетности суммы

Question

Я текстовый файл, созданный приложением, файл называется «ErrorLog.log»

Журнал читает (до 300 записей в день вошел):

Version 3.10
Нет файлов Найдено
Всего 0 сообщений прочитать
Всего сообщения Отправленные: 0 \ Всего сообщений: 0 Получено
Последний раз подключаемом 08 \ 20 \ 2013 в 08:17:50
Version 3.10
Нет файлов Найдено
Всего 0 сообщений чтения
Всего сообщений Sent: 0 \ Всего сообщений: 0 Получено
Последний раз был подключен 08 \ 20 \ 2013 в 8:20:14
Version 3.10
Нет файлов Найдено
Всего 0 сообщений прочитать
Всего сообщений Sent: 0 \ Всего сообщений: 0 Получено
Последний раз был подключен 08 \ 20 \ 2013 в 08:30:14

Что мне действительно нужно, чтобы получить сумму из " Всего полученных сообщений "в файле. Файл имеет конец текста файла или что-то в этом роде.

Я хочу, чтобы затем взять это число и:

1. записать его в существующий файл под названием TransactionsDaily.txt
2. Отправить сообщение для моей команды говорят «х сообщений были обработаны на 20 августа 2013 года» ,

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