[Данные, строки] Разбор HTML средствами AutoIT

Local $hObj = ObjCreate("Shell.Explorer.2")

#include <Array.au3>

$iCountX = 0
$iCountY = 0
$fSearch = False
$sFile = @ScriptDir & '\Detalization_for_2057867.HTML'

$sText = FileRead($sFile)

$sHead = StringRegExpReplace($sText, '(?s).*<DIV class="st4">(.*?)</DIV>.*', '$1')
If @extended <> 1 Then $sHead = ''
$aTemp = StringRegExp($sText, '<span class="st\d+.*?>(.*?)</span>', 3)
If Not @error Then
	For $i = 0 To UBound($aTemp) - 1
		$sHead &= ', ' & $aTemp[$i]
	Next
EndIf

$aTemp = StringRegExp($sText, '<TD class="st\d+.*?>(.*?)</TD>', 3)
If @error Then
	MsgBox(16, 'Error', 'StringRegExp')
	Exit
EndIf

Dim $aRes[UBound($aTemp)][9]

For $i = 0 To UBound($aTemp) - 1
	If $fSearch Then
		If Not $iCountY Then $iCountX += 1
		If $iCountX > 1 Then
			If $iCountY = 2 Then $aTemp[$i] = StringReplace($aTemp[$i], '&lt;', '<')
			Switch $iCountY
				Case 0 To 6
					$aRes[$iCountX][$iCountY] = $aTemp[$i]
				Case 8, 9
					$aRes[$iCountX][$iCountY - 1] = $aTemp[$i]
			EndSwitch
			$iCountY += 1
			If $iCountY = 10 Then $iCountY = 0
		Else
			$aRes[$iCountX][$iCountY] = $aTemp[$i]
			$iCountY += 1
			If $iCountY = 9 Then $iCountY = 0
		EndIf
	Else
		If StringInStr($aTemp[$i], 'Сведения о разговорах') Then
			$fSearch = True
		EndIf
	EndIf
Next
For $i = 0 To 8
	If Not StringIsSpace($aRes[$iCountX][$i]) Then
		$aRes[0][7] = 'Итого:'
		$aRes[0][8] = StringStripWS($aRes[$iCountX][$i], 8)
		ExitLoop
	EndIf
Next
ReDim $aRes[$iCountX][9]
$aRes[0][0] = $iCountX - 2
_ArrayDisplay($aRes, $sHead)

#include <IE.au3>
#include <Array.au3>

$sUrl = @ScriptDir & '\Detalization_for_2057867.HTML'
$oIE = _IECreate($sUrl)
$oTables = _IETableGetCollection($oIE)
ConsoleWrite(@extended & @LF)
$i = 0
For $oTable In $oTables
	ConsoleWrite(StringLeft($oTable.innertext, 200) & @LF)
	ConsoleWrite('---' & @LF)
	$aTableData = _IETableWriteToArray($oTable, True)
	_ArrayDisplay($aTableData, 'Index: ' & $i)
	$i += 1
Next
_IEQuit($oIE)