Поиск товара в HTML Коде Amazon

#include <file.au3>
#Include <IE.au3>
#Include <Array.au3>
#include <file.au3>
#include <INet.au3>

FileOpen("3.txt")

$oUrlTeil1 = "http://www.amazon.de/gp/offer-listing/"
$oUrlTeil2 ="/ref=dp_olp_used?ie=UTF8&condition=used"

;Local $iTimer, $iSec,$iX,$iY
;Local $hTimer = TimerInit(), $iTimer = 0
Global $i


Dim $aTXT[1]
_FileReadToArray(@ScriptDir & '\2.txt', $aTXT)

For $i = 1 To $aTXT[0]
    $htmlBody = _INetGetSource($oUrlTeil1 &$aTXT[$i] & $oUrlTeil2)
$aResult = StringRegExp($htmlBody,"(?i)Regateo\b",0)
;_IEcreate($oUrlTeil1 & $aTXT[$i] & $oUrlTeil2)
 ;_ArrayDisplay($aResult,"StringRegExp Results")

  if $aResult = 1 Then
	 FileWriteLine("3.txt",$aTXT[$i])
     ToolTip($i ,8,1007)
  ;MsgBox(1,"",$aResult)

EndIf
Next

$oUrlTeil1 = "http://www.amazon.de/gp/offer-listing/"
$oUrlTeil2 ="/ref=dp_olp_used?ie=UTF8&condition=used"

$aTXT = FileReadToArray(@ScriptDir & '\2.txt')
$hFile = FileOpen(@ScriptDir & '\3.txt', 1)

For $i = 0 To UBound($aTXT) - 1
    $htmlBody = BinaryToString(InetRead($oUrlTeil1 & $aTXT[$i] & $oUrlTeil2))
	
	If StringRegExp($htmlBody,"(?i)Regateo\b") Then
		FileWriteLine($hFile, $aTXT[$i])
		ToolTip($i ,8, 1007)
	EndIf
Next

FileClose($hFile)

#include <IE.au3>

$sURL_Format = "http://www.amazon.de/gp/offer-listing/%s/ref=dp_olp_used?ie=UTF8&condition=used"

$aTXT = FileReadToArray(@ScriptDir & '\2.txt')
$hFile = FileOpen(@ScriptDir & '\3.txt', 1)
$oIE = _IECreate('about:blank', 0, 0)

For $i = 0 To UBound($aTXT) - 1
	$sURL = StringFormat($sURL_Format, $aTXT[$i])
	_IENavigate($oIE, $sURL)
	
    $htmlBody = _IEBodyReadHTML($oIE)
    
    If StringRegExp($htmlBody, "(?i)Regateo\b") Then
        FileWriteLine($hFile, $aTXT[$i])
        ToolTip($i , 8, 1007)
    EndIf
Next

_IEQuit($oIE)
FileClose($hFile)