Серый форум — VBS: Рекурсивный обход по ссылкам HTTP

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (DnsIs) — Wed, 05 Oct 2011 17:54:38 +0000

Прошу прощения, собирался вам помочь написать небольшой парсер, но туту как назло упала винда ХР, поставил впервые в жизни Вынь7 и вот воюю с ней 2 вечер уже. Комп древний, проблемы с дровами, тормоза.
Так что воздержусь пока от написания, тем более многоуважаемый Xameleon накатал отличный пример, который очень просто переделать. Практически, там все уже готово, осталось только пару раз мозгой шевельнуть.

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (netrezv) — Wed, 05 Oct 2011 01:58:35 +0000

не помогло с мантрами.:)

Спасибо суть ясна.

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (Xameleon) — Tue, 04 Oct 2011 17:33:31 +0000

alexii пишет:

netrezv, а глубже — повторять то же самое до нужной глубины.

OFF: Подтверждаю ! Именно так ! ) Медитативно и напевая мантры )

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (alexii) — Tue, 04 Oct 2011 17:01:23 +0000

netrezv, а глубже — повторять то же самое до нужной глубины.

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (netrezv) — Tue, 04 Oct 2011 16:54:58 +0000

Xameleon пишет:

А такой вариант парсинга не подходит ?

А глубже можно?

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (Xameleon) — Tue, 04 Oct 2011 14:09:50 +0000

А такой вариант парсинга не подходит ?

Option Explicit
Dim xmlhttp, document, link, log
Set xmlhttp = CreateObject("MSXML2.xmlhttp")
xmlhttp.open "GET","http://www.afisha.ru",false
xmlhttp.send

Set document = HTML2Document(xmlhttp.responseText)

For Each link in document.links
	log = log & link.href & vbCrlf
Next

MsgBox log,vbInformation,"Обнаружено " & document.links.length & " ссылок"

Function HTML2Document(text)
	Dim document
	Set document = CreateObject("htmlfile")
	document.open
	document.close
	document.body.innerHTML = text
	Set HTML2Document = document
End Function

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (netrezv) — Tue, 04 Oct 2011 09:14:48 +0000

DnsIs пишет:

Могу попробовать, если киданете основную страницу, и одну ветку. Накидаю что смогу. На выходе что хотите получить?

Найти все встречающиеся
User, "Всего", Mb.
файл в личку кинул. Спасибо.

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (DnsIs) — Tue, 04 Oct 2011 08:53:34 +0000

Могу попробовать, если киданете основную страницу, и одну ветку. Накидаю что смогу. На выходе что хотите получить?

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (netrezv) — Tue, 04 Oct 2011 08:28:10 +0000

DnsIs пишет:

Какова цель вообще?

Искать во всех вложенных страницах по лимиту "Всего: ~"

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (DnsIs) — Tue, 04 Oct 2011 08:26:41 +0000

netrezv пишет:

Догадываюсь, что встроенной рекурсии из объекта я не получу. Поэтому, видимо надо искать на текущей

Ага, точно.

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (DnsIs) — Tue, 04 Oct 2011 08:21:54 +0000

Ну как как. Корень из примера (http://proxy/internet/index.html) выкачали, открыли. Выцепили все ссылки из него. Потом все эти ссылки выкачали и так далее. в геометрической прогрессии.

Ну а вообще, вы правильно заметили, лучше что то типа:

wget.exe -p -m -k -np --level=5 %1 -P c:\site

Какова цель вообще?

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (netrezv) — Tue, 04 Oct 2011 08:20:26 +0000

на странице :

Отчет по использованию Интернет
Период Дата создания Пользователей Байт Средняя
01Oct2011-03Oct2011 Tue Oct 04 02:38:51 YEKST 2011 281 4.24G 15.10M
01Sep2011-30Sep2011 Sat Oct 01 04:30:09 YEKST 2011 397 65.61G 165.28M

01Oct2011-03Oct2011 - линк на еще одну вложенную страницу и т.д. sarg формирует. задача рекурсивно пройти по всем страничкам и найти определенный параметр.
Догадываюсь, что встроенной рекурсии из объекта я не получу. Поэтому, видимо надо искать на текущей

Re: VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (alexii) — Tue, 04 Oct 2011 07:58:26 +0000

Что есть «http://proxy/internet/index.html»?

VBS: Рекурсивный обход по ссылкам HTTP

null@example.com (netrezv) — Tue, 04 Oct 2011 07:05:17 +0000

В данном примере вижу только корень, как пройтись по ссылкам внутри страницы http://proxy/internet/index.html?
Благодарю за любую помощь.

Set srvXmlHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
    Set srvXmlHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If srvXmlHttp Is Nothing Then
    WScript.Quit 1
End If

srvXmlHttp.Open "GET", "http://proxy/internet/index.html", False
srvXmlHttp.send
a = (srvXmlHttp.responseText)
stringArray = Split(a, Chr(10), -1, 1)
For each xi in stringArray
    WScript.Echo xi
Next

wget -r, да?:)