[Creat0R]

Или так (вроде надёжнее):

Код:

Global $sFilePath = "List.txt"
Global $iCount = 0

Global $aFRead = StringSplit(FileRead($sFilePath), @LF)

For $i = 1 To $aFRead[0]
    If $aFRead[$i] == "" Then ContinueLoop

    $iC = StringRegExpReplace($aFRead[$i], '(?i)\A(\d+)\sсообщен', '\1')
    If @extended > 0 Then $iCount += Int($iC)
Next

MsgBox(4096, "Готово", "Общее чиcло сообщений:" & @CRLF & $iCount)