Написал скрипт, пользовался примерно год и вдруг перестал находить.
Смысл такой.
Есть текстовй файл с номерами (2.тхт)
3785560095
3994000203
3993001990
3993001966
Эти номера подставляются в куски УРЛ и получается интернетадрес.
Программа искала слово на этих страницах и если оно было найдено, то записывала номер из файла 2.тхт в 3.тхт
В данном случае искалось слово "Regateo". Например слово "Regateo", существует при "подставке" номера 3785560095, но запись не происходит
На данный момент скрипт перестал находить. Помогите наладить, я даже не знаю что не так.
Смысл такой.
Есть текстовй файл с номерами (2.тхт)
3785560095
3994000203
3993001990
3993001966
Эти номера подставляются в куски УРЛ и получается интернетадрес.
Программа искала слово на этих страницах и если оно было найдено, то записывала номер из файла 2.тхт в 3.тхт
В данном случае искалось слово "Regateo". Например слово "Regateo", существует при "подставке" номера 3785560095, но запись не происходит
На данный момент скрипт перестал находить. Помогите наладить, я даже не знаю что не так.
Код:
#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