YANDEX может искать ФАЙЛ по РАСШИРЕНИЮ, а КАК Средствами VBA (СКАЧАТЬанализа HtmL)

23.03.2011, 16:08. **Показов** 1977. **Ответов** 2

Студворк — интернет-сервис помощи студентам

В YANDEX есть ПОИСК ФАЙЛов по РАСШИРЕНИЮ, а КАК Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL)

Доброго времени суток на циферблате!
Есть в поисковой системе «рас-Такая» возможность: Поиск файлов по расширению, но Yandex потдерживает pdf, doc
Ppt….. Я вот интересуюсь, как можно написать на VBA свой поисковик файлов в Интернете (Просьба не путать с Фидо).
Я раньше делал, что то типа браузера – думал решить некоторые задачи и все свилось, к необходимость:
СОЗДАТЬ НА ЛИСТЕ WORD-а СПИСОК ГИПЕРССЫЛОК НА ФАЙЛЫ РАСПОЛОЖЕННЫЕ В ИНТЕРНЕТЕ!

Браузер выполнен, как в:
Скачка информации по гиперссылкам и анализ HtmL (тема закрыта)
http://www.relib.com/forums/topic.asp?id=843083
(Excel) Скачка Архива по гиперссылкам из ИНТЕРНЕТА
http://www.relib.com/forums/topic.asp?id=843798

2. задача сводится к тому чтобы СРЕДСТВАМИ VBA(MS OFFIS (excel) WORD) была возможность Задавать,
а потом отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ (чтобы по ссылкам не уйти на другие)
а./ Для примера нужно на сайте скачать в таблицу все ссылки на страницы этого же сайта.
б./ Последовательно обойти их и скачать ссылки этих страниц на другие сайты!
в./ На каждом из этих сайтов сразу же имеются ссылки на архивы. (Здесь прорисовывается задача на фильтр файлов php html zip rar Ppt)
г./ Ссылки на эти архивы тоже запомнить в таблицу и далее по выбору
(после выделения строки и/или столбцов) обработать массив ссылок и загрузить информацию!

Воспользуйтесь:
http://www.podgoretsky.com/ftp/Docs/Delphi/Tenser/9/WebBrowser.doc
http://www.microsoft.com/rus/msdn/activ/msvb/archive/web/webbrowser.mspx
http://www.microsoft.com/rus/msdn/activ/msvb/archive/components/standard/317.mspx
http://www.hiprog.com/vb/article.asp?id=424

Я так понимаю, что получить ссылки на все файлы без загрузки всей странички затруднительно.
Поэтому я сделал браузер и как только страничка загрузилась («Готова»), так сразу составляется список гиперссылок, но в Excel-е. Проблема не в том, в Excel-е. или в WORD-е, хотя в Excel-е табличный лучше интерфейс. НО сейчас я переделываю этот браузер для WORD-а. Делаю я это по причине того, что в WORD-е можно сохранить документ в самом простом, а не в табличном, ФАЙЛЕ HTML c простыми интерфейсными гИПерссылками. Последнее мне необходимо для того, что_бы ПО наЖатию пРавой кнопки мЫши ВыбРать (открыть или) ЗАГРУЗИТЬ файл (и сохранить на диск)!
Вот задача и методика одного из вариантов вам ясна.
И вот вопрос: Известен ли вам другой способ
ПОИСКа ФАЙЛов по РАСШИРЕНИЮ, как в YANDEX Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL и отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ)??? Поможите! (Сибо!)

24.03.2011, 17:32

Имеются статьи на этом портале!
http://www.relib.com/articles/article.asp?id=148
http://www.relib.com/articles/article.asp?id=73

Деле в том что при перходе к ВорДУ!
Этот код глючит:

Private Sub WebBrowser1_DocumentComplete _
(ByVal pDisp As Object, URL As Variant)

'Dim objDoc As HtmlDocument
'Dim objLink As HTMLLinkElement
'Dim strLink As String

'Dim Doc As IHTMLDocument2 ....Вот В Этом МЕсте!

' Set Doc = WebBrowser1.Document
' If URL = 'http://www.ta.od.ru/iv.html' Then
' Dim Inputs As IHTMLElementCollection
' Set Inputs = Doc.all.tags('INPUT')
' Dim Element As IHTMLElement
' Set Element = Inputs.Item(1, 1)
' Dim InputElement As IHTMLInputElement
'Set InputElement = Element
' InputElement.Value = TextBox1.Text
' Doc.forms.Item(0, 0).submit 'one1.html http://www.ta.od.ru/iv.html ' Else
' If URL = 'http://www.ta.od.ru/iv.html' Then

' Dim Tables As IHTMLElementCollection
' Set Tables = Doc.all.tags('TABLE')
' Dim Quote As IHTMLElement
' Set Quote = _
'Tables.Item(14, 14).all.tags('TD').Item(2, 2)
' MsgBox Quote.innerText
' End If
' End If
'Label1.Caption = 'Готово' 'Element.outerText

' Label2.Caption = WebBrowser1.Document.documentElement.out erText
'HTML:
'Label3.Caption = WebBrowser1.Document.documentElement.out erHTML
'Label3.Caption = WebBrowser1.Document.documentElement.inn erText
' MsgBox strLink & ' ' & objLink.innerText
' MsgBox WebBrowser1.Document.documentElement.inn erText
' MsgBox WebBrowser1.Document.documentElement.inn erHTML

'statusD = True
'UserForm1.Caption = 'Navigator!+ ' & URL

End Sub
----------------
И вот вопрос: Известен ли вам другой способ
ПОИСКа ФАЙЛов по РАСШИРЕНИЮ, как в YANDEX Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL и отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ)

Подскажите:
Как отключить скачку какртинок странице?
Как вообще сформировать список ссылок без открытия странице (неглядя)?
Жду ответа!

28.03.2011, 17:42

И вот вопрос: Известен ли вам другой способ
ПОИСКа ФАЙЛов по РАСШИРЕНИЮ, как в YANDEX Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL и отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ)

Подскажите:
Как отключить скачку какртинок странице?
Как вообще сформировать список ссылок без открытия странице (неглядя)?
Или вообще скачать массу файлов не открывая не картинки не HtmL рHр?
Или вообще скачать массу файлов не открывая не картинки не HtmL рHр?
Или вообще скачать массу файлов не открывая не картинки не HtmL рHр?
Или вообще скачать массу файлов не открывая не картинки не HtmL рHр?

Жду ответа!

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

tomik

	YANDEX может искать ФАЙЛ по РАСШИРЕНИЮ, а КАК Средствами VBA (СКАЧАТЬанализа HtmL) 23.03.2011, 16:08. Показов 1977. Ответов 2 Метки нет (Все метки) В YANDEX есть ПОИСК ФАЙЛов по РАСШИРЕНИЮ, а КАК Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL) Доброго времени суток на циферблате! Есть в поисковой системе «рас-Такая» возможность: Поиск файлов по расширению, но Yandex потдерживает pdf, doc Ppt….. Я вот интересуюсь, как можно написать на VBA свой поисковик файлов в Интернете (Просьба не путать с Фидо). Я раньше делал, что то типа браузера – думал решить некоторые задачи и все свилось, к необходимость: СОЗДАТЬ НА ЛИСТЕ WORD-а СПИСОК ГИПЕРССЫЛОК НА ФАЙЛЫ РАСПОЛОЖЕННЫЕ В ИНТЕРНЕТЕ! Браузер выполнен, как в: Скачка информации по гиперссылкам и анализ HtmL (тема закрыта) http://www.relib.com/forums/topic.asp?id=843083 (Excel) Скачка Архива по гиперссылкам из ИНТЕРНЕТА http://www.relib.com/forums/topic.asp?id=843798 2. задача сводится к тому чтобы СРЕДСТВАМИ VBA(MS OFFIS (excel) WORD) была возможность Задавать, а потом отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ (чтобы по ссылкам не уйти на другие) а./ Для примера нужно на сайте скачать в таблицу все ссылки на страницы этого же сайта. б./ Последовательно обойти их и скачать ссылки этих страниц на другие сайты! в./ На каждом из этих сайтов сразу же имеются ссылки на архивы. (Здесь прорисовывается задача на фильтр файлов php html zip rar Ppt) г./ Ссылки на эти архивы тоже запомнить в таблицу и далее по выбору (после выделения строки и/или столбцов) обработать массив ссылок и загрузить информацию! Воспользуйтесь: http://www.podgoretsky.com/ftp/Docs/Delphi/Tenser/9/WebBrowser.doc http://www.microsoft.com/rus/msdn/activ/msvb/archive/web/webbrowser.mspx http://www.microsoft.com/rus/msdn/activ/msvb/archive/components/standard/317.mspx http://www.hiprog.com/vb/article.asp?id=424 Я так понимаю, что получить ссылки на все файлы без загрузки всей странички затруднительно. Поэтому я сделал браузер и как только страничка загрузилась («Готова»), так сразу составляется список гиперссылок, но в Excel-е. Проблема не в том, в Excel-е. или в WORD-е, хотя в Excel-е табличный лучше интерфейс. НО сейчас я переделываю этот браузер для WORD-а. Делаю я это по причине того, что в WORD-е можно сохранить документ в самом простом, а не в табличном, ФАЙЛЕ HTML c простыми интерфейсными гИПерссылками. Последнее мне необходимо для того, что_бы ПО наЖатию пРавой кнопки мЫши ВыбРать (открыть или) ЗАГРУЗИТЬ файл (и сохранить на диск)! Вот задача и методика одного из вариантов вам ясна. И вот вопрос: Известен ли вам другой способ ПОИСКа ФАЙЛов по РАСШИРЕНИЮ, как в YANDEX Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL и отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ)??? Поможите! (Сибо!)

tomik
	24.03.2011, 17:32
	Имеются статьи на этом портале! http://www.relib.com/articles/article.asp?id=148 http://www.relib.com/articles/article.asp?id=73 Деле в том что при перходе к ВорДУ! Этот код глючит: Private Sub WebBrowser1_DocumentComplete _ (ByVal pDisp As Object, URL As Variant) 'Dim objDoc As HtmlDocument 'Dim objLink As HTMLLinkElement 'Dim strLink As String 'Dim Doc As IHTMLDocument2 ....Вот В Этом МЕсте! ' Set Doc = WebBrowser1.Document ' If URL = 'http://www.ta.od.ru/iv.html' Then ' Dim Inputs As IHTMLElementCollection ' Set Inputs = Doc.all.tags('INPUT') ' Dim Element As IHTMLElement ' Set Element = Inputs.Item(1, 1) ' Dim InputElement As IHTMLInputElement 'Set InputElement = Element ' InputElement.Value = TextBox1.Text ' Doc.forms.Item(0, 0).submit 'one1.html http://www.ta.od.ru/iv.html ' Else ' If URL = 'http://www.ta.od.ru/iv.html' Then ' Dim Tables As IHTMLElementCollection ' Set Tables = Doc.all.tags('TABLE') ' Dim Quote As IHTMLElement ' Set Quote = _ 'Tables.Item(14, 14).all.tags('TD').Item(2, 2) ' MsgBox Quote.innerText ' End If ' End If 'Label1.Caption = 'Готово' 'Element.outerText ' Label2.Caption = WebBrowser1.Document.documentElement.out erText 'HTML: 'Label3.Caption = WebBrowser1.Document.documentElement.out erHTML 'Label3.Caption = WebBrowser1.Document.documentElement.inn erText ' MsgBox strLink & ' ' & objLink.innerText ' MsgBox WebBrowser1.Document.documentElement.inn erText ' MsgBox WebBrowser1.Document.documentElement.inn erHTML 'statusD = True 'UserForm1.Caption = 'Navigator!+ ' & URL End Sub ---------------- И вот вопрос: Известен ли вам другой способ ПОИСКа ФАЙЛов по РАСШИРЕНИЮ, как в YANDEX Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL и отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ) Подскажите: Как отключить скачку какртинок странице? Как вообще сформировать список ссылок без открытия странице (неглядя)? Жду ответа!

tomik
	28.03.2011, 17:42
	И вот вопрос: Известен ли вам другой способ ПОИСКа ФАЙЛов по РАСШИРЕНИЮ, как в YANDEX Средствами VBA (СКАЧАТЬ ИНФУ по гиперссылкам из анализа HtmL и отслеживать 'Глубену' ПРОНИКНОВЕНИЯ НА САЙТ) Подскажите: Как отключить скачку какртинок странице? Как вообще сформировать список ссылок без открытия странице (неглядя)? Или вообще скачать массу файлов не открывая не картинки не HtmL рHр? Или вообще скачать массу файлов не открывая не картинки не HtmL рHр? Или вообще скачать массу файлов не открывая не картинки не HtmL рHр? Или вообще скачать массу файлов не открывая не картинки не HtmL рHр? Жду ответа!