[Автоматизация] Автосчитывание строки с текстового файла и нажатие на кнопку

[Dk]

Версия AutoIt: 3.

Описание:

Есть текставый файл выглйдаит Tак

http://www.amazon.de/gp/product/3642275281
http://www.amazon.de/gp/product/3430200563
http://www.amazon.de/gp/product/3264838834
http://www.amazon.de/gp/product/3868940537
http://www.amazon.de/gp/product/3794525779



Программa должна считывать каждую строчку (ссылку) и вставлять в Браузер потом нажимать на кнопку, которaя появится после загрузки строчки, "Auf meinen Wunschzettel"
К примеру сдесь эта kнопка находится с правой стороны http://www.amazon.de/gp/product/3406612946

И так с каждой строчкой


Примечания:

 

[Dk]

Помогите люди добрые :'(

 

[WSWR]

Dk
Браузер какой?

 

[Dk]

FireFox Mozila

Но впринципе можно и для Internet Explorera

 

[WSWR]

Dk

Internet Explorer:

#include <IE.au3>
#include <file.au3>

$oIE = _IECreate('about:Blank')

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

For $i = 1 To $aTXT[0]
	_IENavigate($oIE, $aTXT[$i])
	$Button = _IEGetObjByName($oIE, 'submit.add-to-registry.wishlist')
	_IEAction($Button, 'click')
	Sleep(5000)
Next

 

[Dk]

Столкнулся со следующей проблемой

Лист составлял в excel(e)
и когда переношу в блокнот, то получается следующая ерунда

http://www.amazon.de/gp/product/ 3800728443 с пробелом и от него я не могу избавиться.

Можно сделать так что бы программа брала номер с текстового файла (в файле будет только номер) и подставляла его просто к
"http://www.amazon.de/gp/product/" И тогда будет строка без пробелов.

 

[Dk]

Помогите.

Ведь всё делаю вроде правильно.
Вставил
$oIE = _IECreate('http://www.amazon.de/gp/product/')

Но происходит следующее.
1) Страница не открывается именно с это строкой http://www.amazon.de/gp/product/(Номер)
2) Номер с Листа, считывается как ИП, а не как число.

 

[madmasles]

Dk,

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

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

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

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

 

[MrZLO]

Я так понимаю исходник не имеет грифоф секретности, давай его суда подрихтуем

 

[Dk]

Да вот впринцыпе и весь исходник

#include <IE.au3>
#include <file.au3>

$oIE = _IECreate('http://www.amazon.de/gp/product/')

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

For $i = 1 To $aTXT[0]
    _IENavigate($oIE, $aTXT[$i])
    $Button = _IEGetObjByName($oIE, 'submit.add-to-registry.wishlist')
    _IEAction($Button, 'click')
    Sleep(5000)
Next

 

[Yuri]

Dk

с пробелом и от него я не могу избавиться

можно так попробовать

$sStr = "http://www.amazon.de/gp/product/ 3800728443"
MsgBox(0, "Исходная", $sStr)
$sStr = StringStripWS ( $sStr, 8)
MsgBox(0, "Без пробелов", $sStr)

 

[Dk]

$sStr = "http://www.amazon.de/gp/product/ 3800728443"
MsgBox(0, "Исходная", $sStr)
$sStr = StringStripWS ( $sStr, 8)
MsgBox(0, "Без пробелов", $sStr)

В смысле ваш скрипт убирает пробелы?
Можете сразу тогда написать, что бы он открывал текстовой фаил переделовал его и сохранял в новый уже без пробелов?

 

[Yuri]

Dk

Можете сразу тогда написать, что бы он открывал текстовой фаил переделовал его и сохранял в новый уже без пробелов?

Это как Вам больше нравится.
Можно и вручную в Блокноте:
- Правка - Заменить - Что: ставим пробел - Чем: ни чего не ставим - Заменить все

 

[Yuri]

Нажми в Блокноте Ctrl+H

 

[Dk]

РАБОТАЕТ)))))))))))))))!!!!
Вот это ДА!!!)))
СПАСИБО :laugh: