Печать

[Nazgul666 [?]]

Собственно, нужно из текста подобного вида(по сути это лог чата):

TitleBox

17:58:06 Nate River: Ищу тренера 6-7 уровня
18:02:49 Mas9 > Trigun: хил 2
18:07:29 GlukeNSK > Trigun: фоллаут онлайн, движок второго фола ...
18:08:10 GlukeNSK > Trigun: забей в гугле "ТлаМК2"

Вытащить и записать в файл записи вида:
Mas9 2 //(где ник писавшего и цифра после "хил" могут меняться)
Самому удается записывать в файл только записи вида:
 Mas9 > Trigun: хил 2
Вот собственно код:

Код: AutoIt [Выделить]

$text = _IEPropertyGet ($oFrame, "innertext")
$sPattern = '(\D+хил .)'
$aResult = StringRegExp($Text, $sPattern, 3)
;_ArrayDisplay($aResult)
$file = FileOpen(@ScriptDir&"\chatheal.txt", 2)
_FileWriteFromArray($file, $aResult)
FileClose($file)

[sngr [?]]

Код: AutoIt [Выделить]

$file=FileRead(@ScriptDir&'\123')
$str=StringRegExp($file,'\d{2}:\d{2}:\d{2}\s(\S+?)\s>.*?\s(\d+?)\r\n',3)
$res=''
For $i=0 To UBound($str)-1 Step 2
    $res&=$str[$i]&'='&$str[$i+1]&@CRLF
Next
FileWrite(@ScriptDir&'\432',$res)