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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> фильтрация текстбокса 
:(
    Опции темы
damc
Дата 16.8.2008, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



vb6, дамы и господа... 

есть код хтмл страниц (их очень много)....все как близнецы почти... мне из них нужно только словосочетание, заключенное между тегами:

 <TD vAlign=center align=left bgColor=#858585>&nbsp;&nbsp;<A class=link_faq href="info=***искомое***" target=_blank><IMG src="./images/info.gif" align=absMiddle border=0></A><FONT size=+0>***искомое***</FONT></TD>

знаю постоянные номера строк с этим кодом... 

т.е. есть Text1.Text с 60-ью строками....нужная 38-я, 41-я и т.д.
как в массив сунуть 
m(1)= 38-я строка текстбокса
m(2)=41-я строка текстбокса
и т.д.????

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

и в результате хочу получить txt файлик с кучей разного искомого в столбик...



P.s. пробовал делать WebBrowser1.document.documentElement.innerText, все замечательно, только благодаря таблице туда попадают всякие номера рейтингов и еще число с двумя точками.... зато все быстро, только конвертировать в нужный вид неудобно совсем....

Добавлено @ 00:43
када text, пытался через mid хватать нужное....но словосочетание разное по длине и если начало ловится, то следующее уже никак...

Это сообщение отредактировал(а) damc - 16.8.2008, 01:13
PM MAIL ICQ   Вверх
JusTalionis
Дата 16.8.2008, 08:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Используй функцию INSTR, которая ищет заданный образец внутри строки. Формат такой:

InStr([start,] "строка", "образец" [,режим])

"строка" - строка в которой ведется поиск

"образец" - сочетание знаков, которое ищем

start - число; с какого по счету символа начинать поиск. Если не задано, то с начала строки.

режим - задание режима поиска. 0 - побитовое сравнение, 1 - текстовое сравнение. Если отсутствует, то режим задается оператором Option Compare (по умолчанию побитовое).

Возвращает число: позицию в строке первого найденного фрагмента (начиная счет с 1). Если не найден - возвращает 0.

Я бы при помощи нее задал поиск тега, непосредственно предшествующего "искомому" а затем тега, следующего после него. Таким образом получаешь место начала и конца "искомого", вычисляешь его длину и извлекаешь при помощи mid.


ЗЫ:
 (Есть еще InStrRev("строка","образец" [,start] [,режим]) - то же самое, но ищет от конца строки к началу).


PM MAIL   Вверх
Akina
Дата 16.8.2008, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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



Цитата(damc @  16.8.2008,  01:40 Найти цитируемый пост)
знаю постоянные номера строк с этим кодом... 

Это в HTML-то строки?

Цитата(JusTalionis @  16.8.2008,  09:50 Найти цитируемый пост)
Используй функцию INSTR

В дополнение - если каждый следующий фрагмент находится после предыдущего, отрезай использованную часть.

Но вообще для поиска по шаблону я бы использовал WScript.Match


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Machaon
Дата 20.8.2008, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


КаРолЬ АсьКи МуАЛя
*


Профиль
Группа: Участник
Сообщений: 160
Регистрация: 12.8.2008
Где: М.о. Красногорск

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



Вот мой пример попробуй но он будет работать только если параметры таблиц рисунков тедешников небудет меняться.
Код

Private Sub Command1_Click()
b = "<TD vAlign=center align=left bgColor=#858585>&nbsp;&nbsp;<A class=link_faq href=" & Chr(34) & "info=***èñêîìîå***" & Chr(34) & " target=_blank><IMG src=" & Chr(34) & Chr(46) & "/images/info.gif" & Chr(34) & " align=absMiddle border=0></A><FONT size=+0>***èñêîìîå***</FONT></TD>"
a = "<TD vAlign=center align=left bgColor=#858585>&nbsp;&nbsp;<A class=link_faq href=" & Chr(34) & "info=***èñêîìîå***" & Chr(34) & " target=_blank><IMG src=" & Chr(34) & Chr(46) & "/images/info.gif" & Chr(34) & " align=absMiddle border=0></A><FONT size=+0>"
c = a & b

Text1.Text = Split(Split(b, a)(1), "<")(0)
End Su

PM MAIL ICQ Skype   Вверх
neic
Дата 21.8.2008, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Ну можно варварским способом поступить и просто сохранить весь HTML код в файл.
Открываешь его, считываешь нужное кол-во строк и там уже обрезаешь как надо.

ПыСы это варварский способ, НО надёжный =))))
PM MAIL WWW ICQ Skype   Вверх
damc
Дата 29.8.2008, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



спасибо...если честно варварским воспользовался в совокупе со вторым и третим ответом... а так предпоследний вариант охота попробовать, но не совсем в него довъехал еще )))

Это сообщение отредактировал(а) damc - 29.8.2008, 23:35
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


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

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


 




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


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

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