Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Вытащить ссылку из web-страницы Добавлено: 04.03.09 12:49  

Автор вопроса:  Lex
Здравствуйте. Подскажите как можно можно вытащить ссылку из веб-страницы?
Допустим, загрузили страницу http://www.vbnet.ru/
И, например, при вводе слова "sub" чтобы вытащилась вся ссылка (http://www.vbnet.ru/subscribe/).
Т.е. вводим часть слова ссылки, и нам выдаёт всю ссылку

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Lex



Вопросов: 2
Ответов: 11
  Профиль | | #1 Добавлено: 04.03.09 13:51
Всё нашёл. Помощь не нужна =)

Ответить

Номер ответа: 2
Автор ответа:
 Lex



Вопросов: 2
Ответов: 11
  Профиль | | #2 Добавлено: 04.03.09 14:44
Нет...помощь всё ещё нужна...

Ответить

Номер ответа: 3
Автор ответа:
 gekko



Вопросов: 39
Ответов: 127
  Web-сайт: kalamfur.ru
 Профиль | | #3 		Добавлено: 09.03.09 20:12
Тебе нужно отпарсить полученный код страницы, вытащить все ссылки, загнать в массив, а затем перебрать отыскивая, например,"sub"

Ответить

Номер ответа: 4
Автор ответа:
 gekko



Вопросов: 39
Ответов: 127
  Web-сайт: kalamfur.ru
 Профиль | | #4 		Добавлено: 09.03.09 20:16
Парсить можно например так:
  1.  
  2.             Dim HTML As HTMLDocument
  3.             Dim TAE As HTMLTextAreaElement
  4.             Dim HIE As HTMLInputElement
  5.             Set HTML = WebBrowser1.Document
  6.             For Each HIE In HTML.getElementsByTagName("a")
  7.                         Text1.Text = Text1.Text & HIE.href & vbCrLf
  8.             Next



(Сначала, разумеется, загнать страницу в WebBrowser1)
Вот в текстовом поле у нас и есть все ссылки со страницы.

дальше понятно?

Ответить

Номер ответа: 5
Автор ответа:
 Lex



Вопросов: 2
Ответов: 11
  Профиль | | #5 Добавлено: 11.03.09 11:26
Спасибо. Разобрался.
Сделал так:

  1. Set links = WB.Document.getElementsByTagName("a")
  2. For x = 0 To links.length - 1
  3.     If (InStr(links(x).href, tmpPAR)) Then  List1.AddItem (links(x).href)
  4. Next

Ответить

Номер ответа: 6
Автор ответа:
 Lex



Вопросов: 2
Ответов: 11
  Профиль | | #6 Добавлено: 11.03.09 11:28
tmpPAR - слово которое нужно найти в ссылке

Ответить

Номер ответа: 7
Автор ответа:
 Lex



Вопросов: 2
Ответов: 11
  Профиль | | #7 Добавлено: 12.03.09 14:16
Блин...а как вытащить капчу ? подксажите, а ....

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам