VB 6.0 и HTML , копирование информации с инета

[НиколайП]

Задача.
Необходимо с определённой страницы сайта скопировать часть информации (используя VB) и занести её в базу данных, в дальнейшем эту информацию просматривать тоже с использованием VB.
Всё до чего я сам достиг(используя информацию с форумов)- это открытие в форме(на VB)страницы необходимого сайта и открытия,в другой форме, html кода этой страницы, как действовать дальше не знаю и информацию найти не могу ...
Как мне сделать следующее:
html код страницы у меня открывается в TextBox,нужен пример кода который в этом тексте будет искать часть текста который находится между <H1 и </H1>после копировании этого текста он сохраняется в БД, дальше находится текст между тегами <TABLE>и </TABLE>,но именно тот текст в котором имеется определённое слово.После нахождения также копируется в базу данных(вместе с html тэгами).
В дальнейшем мне надо что бы в программе на VB можно было просматривать эту информацию,естественно в нормальном виде, с таблицами и всем форматированием.

Короче, мне как то надо вытаскивать описание (именно технические характеристики)на конкретные товары с сайта http://www.i2b.ru что бы в дальнейшем можно было их просматривать на локальной машине.
Буду благодарен за любую помощь.

[Ennor]

... с сайта http://www.???.ru ...

Спамер?

[НиколайП]

... с сайта http://www.???.ru ...

Спамер?

нет, не спамер. Меня интересуют технические характеристики товара на этом сайте.

Я примерно понимаю как это надо сделать,но не знаю как это делать в VB ...
У меня на форме: WebBrowser1,ComboBox1,TextBox1 и несколько CommandButton

1.

Private Sub Command2_Click()
WebBrowser1.Navigate Combo1
adr = Combo1
Combo1.AddItem (adr)
End Sub

- открываю страницу сайта,адрес берётся из Combo1
2.

Text1.Text = WebBrowser1.Document.body.innerHTML

- в поле Text1.Text заношу html код страницы
далее как то надо сделать что бы:
1. в тексте (Text1.Text)нашлась и скопировалась строка между тэгами <H1 и </H1> и именно та которая мне нужна. Как вносить её в БД я вроде знаю.
2.кажется надо создать коллекции из IHTMLTableElement по тэгам <TABLE> , но как это точно делать - не знаю
3.надо найти коллекцию которая будет содержать определённое слово, к примеру "производитель", и содержимое этой коллекции (вместе с тэгами) внести в БД.
4.надо вывести содержимое БД ,текст с html тэгами,которые копировали с интернет страниц, в удобочитаемом виде на VB форму, как это сделать пока тоже не знаю , думаю что тоже как-то надо использовать контрол WebBrowser ...
Надеюсь на вашу помощь !

[Ennor]

Код: Выделить всё

HTMLDocument.GetElementsByTagName(TagName As String)

При передаче "TABLE" вернет коллекцию таблиц в документе.

[НиколайП]

вымутил такой код:

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Doc As IHTMLDocument2
Set Doc = WebBrowser1.Document
Dim Tables As IHTMLElementCollection
Set Tables = Doc.All.tags("TABLE")
Dim Quote As IHTMLElement
Set Quote = Tables.Item(17, 96).All.tags("TD").Item(2, 2)
RichTextBox1 = Quote.innerHTML

End Sub

но радовался не долго, удалось запустить только один раз,повторные запуски выдают ошибку 91:

Object variable or with block variable not set

в модуле отмечается:

Tables=Nothing

подскажите пожалуйсто из за чего это может быть и как с этим бороться , заранее извиняюсь если вопрос этот глупый, но я только начинаю изучать VB ...

[Alexanbar]

Может быть, есть документы, в которых нет таблиц?

[НиколайП]

Может быть, есть документы, в которых нет таблиц?

в том то и дело что , как я понимаю,приложение должно запускаться с пустой страницы, самый первый запуск ,когда я эксперементировал с кодом, запустилось всё нормально и работало как положенно, потом я сохранил проект и попытался его запустить снова ... выскочила вышеописанная ошибка и в окне WebBrowser1 надпись "невозможно отобразить страницу". Я так понимаю WebBrowser1 пытается открыть какую то страницу, но какую и почему он это делает ??? в программе открытие должно происходить только после клика на кнопке. Може где то запоминается что-то ???, хотя исходник я принёс с работы домой - дома то же самое ... ни разу не запустилось ...

[beat_swamp]

посмотри разбор выражение типа "((32+74)*7-14)/2"! тот же случай только у тебя сместо скобок идут <h1> и </h1>1

[НиколайП]

посмотри разбор выражение типа "((32+74)*7-14)/2"! тот же случай только у тебя сместо скобок идут <h1> и </h1>1

я конечно извиняюсь, но что то не понял что ты имел ввиду ...

[НиколайП]

по поводу возникающей ошибки 91:
удалил из формы контрол WebBrowser1 , затем снова установил - всё заработало нормально до тех пор пока не выключил компьютер ...
сегодня запускаю проект - опять всё таже ошибка. Можно конечно удалять его и вставлять постоянно пока в режиме проекта, но как потом будут обстоять дела, после компиляции

[GSerg]

Дождись прогрузки объектной модели. .ReadyState.

[beat_swamp]

посмотри разбор выражение типа "((32+74)*7-14)/2"! тот же случай только у тебя сместо скобок идут <h1> и </h1>1

я конечно извиняюсь, но что то не понял что ты имел ввиду ...

я имел ввиду разбор строки1

[GSerg]

А зачем ты имел в виду разбор строки?

[DoctorADD]

Можно попробовать использовать InStr:

Код: Выделить всё

Private Sub Command1_Click()
Dim a As Long, aa As Long
a = InStr(1, txtHTML.Text, "<h1>")
aa = InStr(1, txtHTML.Text, "</h1>")
If a <> 0 Then
txtText.Text = Mid(txtHTML.Text, a + 4, aa - a - 4)
End If
End Sub

Конечно не лучший пример, но работает.

[Хакер]

DoctorADD — предупреждение за некрофилию.