Что нового

[RegExp] Вытащить сочетание из текста и записать в файл

Nazgul666

Знающий
Сообщения
21
Репутация
9
Собственно, нужно из текста подобного вида(по сути это лог чата):[box title=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"[/box]
Вытащить и записать в файл записи вида:
Mas9 2 //(где ник писавшего и цифра после "хил" могут меняться)
Самому удается записывать в файл только записи вида:
Mas9 > Trigun: хил 2
Вот собственно код:
Код:
$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 Гуру
Сообщения
1,010
Репутация
408
Код:
$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)
 
Верх