Что нового

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

Evochka Turkova

Новичок
Сообщения
39
Репутация
0
Всем доброго дня! Выручайте!! Имею кучу ссылок, нужно перейти по каждой через IE и скопировать оттуда всю информацию в один или несколько текстовых файлов. Это была бы не проблемма, если бы ссылок не было бы больше тысячи. :( Возможно ли решение моей проблеммы?? :( :(
 

WSWR

AutoIT Гуру
Сообщения
941
Репутация
363
Evochka Turkova
Возможно.

Обязательно использовать IE?
В каком виде хранятся ссылки?

Пример:

Код:
#include <IE.au3>
$oIE = _IECreate('about:blank') ; Открывает браузер

$hfile = FileOpen('log1.txt', 1)
For $i = 0 To 4
	_IENavigate($oIE, 'http://www.yandex.ru/')
	$sText = _IEBodyReadText($oIE) ; Читает содержимое HTML, без тегов.
	MsgBox(4096, 'Просмотр содержимого HTML', $sText)
	FileWrite($hfile,  @CRLF & @CRLF & '----------------------------------------------------------------' &  @CRLF & @CRLF & $sText) ;Пишем в файл
Next

FileClose($hfile)
 
Автор
E

Evochka Turkova

Новичок
Сообщения
39
Репутация
0
WSWR

1 текстовой файл и в нем бооольшой список ссылок :stars:

Код:
http://........................
http://........................

и т.д.
 

WSWR

AutoIT Гуру
Сообщения
941
Репутация
363
Evochka Turkova

Можно так:
Код:
#include <IE.au3>

$oIE = _IECreate('about:blank') ; Открывает браузер

$hfile = FileOpen('log1.txt', 1)
$hURL = FileOpen('url.txt', 0); Файл со ссылками

While 1
	$sLine = FileReadLine($hURL)
    If @error = -1 Then ExitLoop
	_IENavigate($oIE, $sLine)
	$sText = _IEBodyReadText($oIE) ; Читает содержимое HTML, без тегов.
	MsgBox(4096, 'Просмотр содержимого HTML', $sText)
	FileWrite($hfile,  @CRLF & @CRLF & '----------------------------------------------------------------' &  @CRLF & @CRLF & $sText)
WEnd

FileClose($hfile)
FileClose($hURL)
 
Автор
E

Evochka Turkova

Новичок
Сообщения
39
Репутация
0
WSWR

Огромное спасибо, избавили от рутинной работы!! :laugh: :laugh: :laugh:

:IL_AutoIt_1:
 
Верх