Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как получить контент средствами VB? 
:(
    Опции темы
taxir
Дата 26.5.2007, 02:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 10.5.2007

Репутация: нет
Всего: нет



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


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35



Цитата(taxir @  26.5.2007,  02:09 Найти цитируемый пост)
нужен код чтобы постоянно обращаться к это страничке и выдергивать оттуда контент

Использовать Internet Control:
Код

Buffer = frmWeb.Inet1.OpenURL(Url, 1)   ' Получаем данные от WEB-сервера





--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
taxir
Дата 26.5.2007, 11:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 10.5.2007

Репутация: нет
Всего: нет



Спасибо boevik! Скажи пожалуста ты каким бейсиком пользуешься?у меня визуал бейсик 6....но интернет контрола нет в нем .... smile 
PM MAIL   Вверх
boevik
Дата 26.5.2007, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35



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


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
taxir
Дата 26.5.2007, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 10.5.2007

Репутация: нет
Всего: нет



Даааа все нашел спасибо огромное.....в 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

Вроде все работает.....но получаю чтото вместо контента.....
Цитата

???????????????????????????????????????????????????????????????????????????????•??????????????????????????????????????•?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•?????????????????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????????????????????•?????•?????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•?????????????????????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•???????????????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•??????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•??????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•???????????????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•?????????????????????????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•?????????????????????•?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•??????????????????????????•??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•???????????????????????????????????????????•?????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•???????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•?????•??????????•????????????????????•????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????•????????????????•????????????????????????????????????????•???????????????????????????????????????????????????????????????????????????????????????????????

Что же я неправильно делаю?
PM MAIL   Вверх
cardinal
Дата 26.5.2007, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99





--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
taxir
Дата 26.5.2007, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 10.5.2007

Репутация: нет
Всего: нет



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 кже не принимает это значение... smile 
что же мне сделать чтобы этот контент смог уместится в любом контроле только бы не писать его в файл?????
PM MAIL   Вверх
cardinal
Дата 26.5.2007, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Цитата

Элемент управления RichTextBox поддерживает большинство свойств, событий и методов, используемых стандартным элементом управления TextBox, но не имеет ограничения на размер выводимых с его помощью данных. 

http://megalib.com/books/1235/glava5.html?fil=bd_05


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
taxir
Дата 26.5.2007, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 10.5.2007

Репутация: нет
Всего: нет



cardinal Огромное Спасибо!Все таки есть выход в любом случае! Работает все тепрь супер!Продолжаю доделывать прогу .... думаю дальше уже сам  smile теперь нужно написать код для разбора мусора из полученного контента и вывода нужных данных.... я думаю еще помощь понадобится....спасибо!Удачи!
PM MAIL   Вверх
cardinal
Дата 26.5.2007, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Не за что. smile 


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0873 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.