Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Поиск текста + копирование от и до

5.3K
17 октября 2009 года
ChuOne
5 / / 18.12.2003
Сразу обращу ваше внимание на тот факт, что VB не балуюсь почти с 2002 года, и писал на других языках.

Хочу обрабатывать 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
и их поместить в отдельные текстбоксы.

Сразу извиняюсь если гдето есть инфа по этому поводу которую легко найти, но я как ни гуглил - инфу не нашел.

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

Всем заранее спасибо.
5.3K
18 октября 2009 года
ChuOne
5 / / 18.12.2003
Поскольку никто пока не ответил, а сам я не знаю нужной функции и если таковая вообще, начал мудрить. Покачто нашел одну функцию которую можно использовать:
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.

Есть идеи в чём трабл? Заранее спс
7
21 октября 2009 года
@pixo $oft
3.4K / / 20.09.2006
Насчёт Split не знаю,но есть такая замечательная функция,как InStr–выполняет поиск подстроки в строке.Синтаксис–в Object browser(F2,если что)
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог