Поиск текста + копирование от и до
Хочу обрабатывать html код.
Задача проста. Имеем форму, которая каждые 5 минут обновляет в sitetxt.text (textbox) исходный код сайта.Нужно найти нужный кусок текста, выглядит примерно так:
<tr class="odd">
<td width="5%" class="">
<span class="small">51</span>.</td>
<td width="13%" class="left"></td>
<td width="8%" class="left">18:30</td>
<td width="20%" class="left">
<a href='komm/SP'>Dannye 1</a> -
<a href='komm/JK'>Dannye 2</td>
<td width="7%" class="left"><b>Natasha-Marina</b></td>
каждая новая запись идет под порядковым номером
<span class="small">51</span>.</td>
Нужно считать с переменной gotovo число, и искать следующие число. например gotovo=50 то ищем какраз <span class="small">51</span>.</td>
Тут понятно, берем gotovofind=gotovo+1
и ищем <span class="small">gotovofind</span>.</td> только как установить точку поиска после этой самой строки :<span class="small">51</span>.</td>
отрезать <td width="13%" class="left"></td>
<td width="8%" class="left">18:30</td>
<td width="20%" class="left">
<a href='komm/SP'>
исходя из того, что <a href='komm/SP'> изменяеться в зависимости от Dannye 1
прочесть Dannye 1 и переместить в текст бокс, отрезать </a> -
<a href='komm/JK'>
komm/JK опятьже меняеться в зависимости от Dannye 2
ну и так далее... Natasha-Marina тоже меняються, только всегда разделяються дефисом.
Задача из html кода получить вот эти данные :
Dannye 1
Dannye 2
Natasha
Marina
и их поместить в отдельные текстбоксы.
Сразу извиняюсь если гдето есть инфа по этому поводу которую легко найти, но я как ни гуглил - инфу не нашел.
Если комуто лень обьяснять, буду благодарен даже за ссылочку на статью.
Всем заранее спасибо.
Dim stroka As String
'создаём стринг и интегер для составления строки поиска
Dim chislo As Integer
chislo = Text6.Text + 1
stroka = "<span class=" & Chr(34) & "small" & Chr(34) & ">" & chislo
'Всё это дело выводим на экран чтобы удостовериться что всё как надо.
MsgBox stroka
Text3.Text = Split(Text3.Text, stroka, 2) ' вот на этой строке ловлю миссматч 13 . пытаюсь разделить текст(исходный код html кода) на 2 куска а линией для разрезки будет наша stroka.
Есть идеи в чём трабл? Заранее спс
Насчёт Split не знаю,но есть такая замечательная функция,как InStr–выполняет поиск подстроки в строке.Синтаксис–в Object browser(F2,если что)