[Процессы] Помогите модернизировать СКРИПТ

[Dk]

Здравствуйте
Вот скрипт.
Смысл его таков, я ввожу поиск на амазоне, потом беру ссылку с URL, вставляю его в скрипт и он считывает все URL всех артиклей в этой категории (их номера).
Например
Вот URL артикля
http://www.amazon.de/Bach-Dokumente-Johann-Dokumente-Nachwirken-1685-1800/dp/376181867X/ref=sr_1_2?s=books&ie=UTF8&qid=1398349860&sr=1-2
и его номер, который будет потом записан в текстовой файл будет 376181867X.

#include <Array.au3>
#include <File.au3>

HotKeySet('{ESC}', '_Exit')

Global $x = 0

$sUrl = 'http://www.amazon.de/s/ref=sr_nr_p_36_0?__mk_de_DE=%C3%85M%C3%85Z%C3%95%C3%91&bbn=187254&qid=1398100846&rh=n%3A186606%2Cp_n_binding_browse-bin%3A492558011%2Cn%3A!541686%2Cn%3A187254%2Cp_36%3A14900-20000&rnid=389281011&low-price=200&high-price=0&x=13&y=14'

Dim $aResult2[1]

For $i = 0 To 1000 ; ??????? ?????

    $sText = BinaryToString(InetRead($sUrl))
    $aResult1 = StringRegExp($sText, '/dp/(.*?)/ref', 3)
    $aResult1 = _ArrayUnique($aResult1)

    _ArrayConcatenate($aResult2, $aResult1, 1)

    $aResult0 = StringRegExp($sText, 'href="/s/ref=sr_pg_(.*?)">', 3)
    $aResult0[UBound($aResult0) - 1] = StringReplace($aResult0[UBound($aResult0) - 1], 'amp;', '')
    If ($i <> 0 And UBound($aResult0) - 1 = 0) Or $x = 1 Then ExitLoop

    $sUrl = 'http://www.amazon.de/s/ref=sr_pg_' & $aResult0[UBound($aResult0) - 1]

Next

;_ArrayDisplay($aResult2)

_FileWriteFromArray('Log.txt', $aResult2, 1)

Func _Exit()
    $x = 1
EndFunc   ;==>_Exit

Мне нужно, что бы скрипт поддерживал много URL по результатам поиска артиклей, а не один как это на данный момент.
Желательно, что бы неограниченное количество ну или чтоб 100 минимум. ... Я пытался но вышло так что на каждую URL надо делать свои переменные. Можно ли как то обойтись одной?


Добавлено:

Сообщение автоматически объединено: 24 Апр 2014

Или пусть ссылки считываются c текстового файла...

 

[madmasles]

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

[Процессы] Помогите модернизировать СКРИПТ - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Ваш Глобальный модератор.

Предупреждение

Оформите, пожалуйста, тему в соответствии с Правилами обязательного оформления тем в разделе "Стол заказов"

С уважением, Ваш Глобальный модератор.