Хотел спросить, мож кто встречался с такой проблемой:
Загружаю страничку из инета и обрабатвываю её с помощью MSHTML Obj. Lib. вот код:
- Код: Выделить всё
Dim Doc As New HTMLDocument
Dim TR As HTMLTableRow
Show
Doc.body.innerHTML = Module1.Refresh
lv1.Visible = False
imax = Doc.getElementsByTagName("TR").length - 1
For i = 6 To imax
DoEvents
Caption = imax - i
Set TR = Doc.getElementsByTagName("TR").Item(i)
With lv1.ListItems
.Add , , TR.cells.Item(0).innerText
With .Item(.Count).ListSubItems
.Add , , TR.cells.Item(1).innerText
.Add , , TR.cells.Item(2).innerText
.Add , , TR.cells.Item(3).innerText
.Add , , TR.cells.Item(4).innerText
.Add , , TR.cells.Item(5).innerText
.Add , , TR.cells.Item(6).innerText
.Add ' dummy
End With
End With
Next
lv1.Visible = True
Caption = lv1.ListItems.Count
Set Doc = Nothing
Set TR = Nothing
Всё энто дело обрабатывается весьма долго по сравнению с моим парсером (где куча InStr'оф и Loop'оф).
Дык мой парсер по объёму в десять раз больше и работает в 10 раз быстрее
Парадокс какой-то. Родная библиотека для работы с ХТМЛ'ом так медленно работает, хоть и создана специально под ХТМЛ.
, но увы…
