Как спарсить новости из текстового файла ?

$sText = FileRead('news.txt')

$aRes = StringRegExp($sText, '(?s)(?i)<item>(.*?)</item>', 3)
If @error Then Exit

For $i = 0 To UBound($aRes) - 1

	$PubDate = StringRegExp($aRes[$i], '(?:<pubDate>)(.*?)\+', 1)
	$Title = StringRegExp($aRes[$i], '<title>(.*?)</title>', 1)
	$Description = StringRegExp($aRes[$i], '<description>(.*?)</description>', 1)
	$FileText = $PubDate[0] &' , ' & $Title[0] &' - '& $Description[0]
	FileWrite(@ScriptDir & '\' & $i + 1 & '.txt', $FileText)

Next

$sText = FileRead(@ScriptDir & '\news.txt')
$aArray = StringRegExp($sText, '(?is)<item>.+?<title>([^<]+)</.+?<description>([^<]+)</.+?<pubDate>([^<]+)</.+?</item>', 3)
$sText = ''
For $i = 0 To UBound($aArray) - 1 Step 3
	$sText &= @CRLF & '[ITEM_' & (($i + 3) / 3) & ']' & @CRLF & 'PubDate = ' & $aArray[$i + 2] & _
			@CRLF & 'Title = ' & $aArray[$i] & @CRLF & 'Description = ' & $aArray[$i + 1] & @CRLF
		Next
If Not $sText Then Exit
$hFile = FileOpen(@ScriptDir & '\News.ini', 2 + 512)
FileWrite($hFile, $sText)
FileClose($hFile)