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

   
   
     

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

Страница: 1 |

 

  Вопрос: Помогите советом. Добавлено: 12.06.10 07:14  

Автор вопроса:  Rat!
Привет всем . Такой вопрос, не могу понять как сделать, чтобы через Visual Basic можно было прочитать содержимое интернет страницы. К примеру http://yandex.ru, мне необходимо, чтобы программа прочитала содержимое страницы, а лишнии данные типа мета тегов и прочего, а так же код цвета текста html были удалены, в результате, чтобы мы видили только чистый текст.

Ответить

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

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #1 		Добавлено: 12.06.10 16:04
видимо нужно можно сделать запрос на получение страницы,а дальше своими силами удалить все, оставив только текст.
  1. Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  2.     "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
  3.     ByVal szFileName As String, ByVal dwReserved As Long, _
  4.     ByVal lpfnCB As Long) As Long
  1. Dim errcode As Long
  2. Dim url As String
  3. Dim localFileName As String
  4.  
  5. url = "http://www.vb2themax.com/vbmaximizer/files/vbm_demo.zip"
  6. localFileName = "c:\vbm_demo.zip"
  7.  
  8. errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
  9. If errcode = 0 Then
  10.     MsgBox "Download ok"
  11. Else
  12.     MsgBox "Error while downloading"
  13. End If

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #2 		Добавлено: 12.06.10 16:05
в этом примере файл сохраняется как "c:\vbm_demo.zip".

Ответить

Страница: 1 |

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



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