Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как получить контент средствами VB?

Автор: taxir 26.5.2007, 02:09

Доброго времени суток! Ребята есть задача, которую очень нужно решить в короткое время....кто если занимался получением контента....уточню....есть в сети скажем вебстраничка, которая обновляется постоянно скажем каждые 5 минут.....нужен код чтобы постоянно обращаться к это страничке и выдергивать оттуда контент....это 1-й этап....потом нада обработать этот полученный контент наверное это средствами для строк.....вырезать ненужное и оставить тока нужные данные....это 2-й этап....Вопрос: Как обращаться к вебстранице? и как получить контент в ЭДИТБОКС...чтобы потом уже поработать с этим текстом? Очень нужен пример....Заранее благодарю всех! С уважением taxir!

Автор: boevik 26.5.2007, 07:27

Цитата(taxir @  26.5.2007,  02:09 ) нужен код чтобы постоянно обращаться к это страничке и выдергивать оттуда контент Использовать Internet Control: Код Buffer = frmWeb.Inet1.OpenURL(Url, 1)   ' Получаем данные от WEB-сервера

Автор: taxir 26.5.2007, 11:06

Спасибо boevik! Скажи пожалуста ты каким бейсиком пользуешься?у меня визуал бейсик 6....но интернет контрола нет в нем ....

Автор: boevik 26.5.2007, 11:16

Vb6. Надо добавить в Components, поищи его там

Автор: taxir 26.5.2007, 11:43

Даааа все нашел спасибо огромное.....в Components нада было включить Microsoft Internet Transfer Control 6.0..... значит так создал стандартную форму Form1 на нее поставил Text1, Command1 и Inet1 вставил код вот такой по нажатию кнопки: Код Dim Buffer As Variant Private Sub Command1_Click() Buffer = Form1.Inet1.OpenURL("http://www.livescore.com", 1) Text1.Text = Buffer End Sub Вроде все работает.....но получаю чтото вместо контента..... Цитата ???????????????????????????????????????????????????????????????????????????????•??????????????????????????????????????•?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•?????????????????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????????????????????•?????•?????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•?????????????????????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•???????????????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•??????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•??????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•???????????????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•?????????????????????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•?????????????????????•?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•??????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•???????????????????????????????????????????•?????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•???????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????? Что же я неправильно делаю?

Автор: cardinal 26.5.2007, 15:26

Почитай тут http://vbcity.com/forums/topic.asp?tid=2312

Автор: taxir 26.5.2007, 17:44

2 cardinal! Спасибо огромное за ссылку все прекрасно рассписано! Сделал все как там прекрасно работает...а именно как в примере контент сохраняется в файл вот с таким кодом: Код Dim strURL As String ' URL string Dim intFile As Integer ' FreeFile variable Private Sub Command1_Click() intFile = FreeFile() strURL = "http://www.livescore.com" Open "c:\Temp\test.txt" For Output As #intFile Write #intFile, Inet1.OpenURL(strURL) Close #intFile MsgBox "ok" End Sub тоже самое проделал и с моим случаем....тоесть когда нужно получить весь контент в редактируемое поле: Код Dim strURL As String ' URL string Private Sub Command1_Click() strURL = "http://www.livescore.com" Text1.Text = Form1.Inet1.OpenURL(strURL) MsgBox "ok" End Sub разница в этих примерах только в том что в Text1 она не полностью выводится а частично....такое впечетление как будто там ограничено принимаемое количество символов.....покопался в свойствах и там есть такое: Код Text1.MaxLength=65000 но пишу длину скажем 65000 не помещается пишу 70000 кже не принимает это значение...   что же мне сделать чтобы этот контент смог уместится в любом контроле только бы не писать его в файл?????

Автор: cardinal 26.5.2007, 19:53

Цитата Элемент управления RichTextBox поддерживает большинство свойств, событий и методов, используемых стандартным элементом управления TextBox, но не имеет ограничения на размер выводимых с его помощью данных.  http://megalib.com/books/1235/glava5.html?fil=bd_05

Автор: taxir 26.5.2007, 21:39

cardinal Огромное Спасибо!Все таки есть выход в любом случае! Работает все тепрь супер!Продолжаю доделывать прогу .... думаю дальше уже сам   теперь нужно написать код для разбора мусора из полученного контента и вывода нужных данных.... я думаю еще помощь понадобится....спасибо!Удачи!

Автор: cardinal 26.5.2007, 23:03

Не за что.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)