![]() |
Модераторы: Akina |
![]() ![]() ![]() |
|
damc |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 16.8.2008 Репутация: нет Всего: нет |
vb6, дамы и господа...
есть код хтмл страниц (их очень много)....все как близнецы почти... мне из них нужно только словосочетание, заключенное между тегами: <TD vAlign=center align=left bgColor=#858585> <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 |
|||
|
||||
JusTalionis |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 576 Регистрация: 11.7.2006 Репутация: 6 Всего: 17 |
Используй функцию INSTR, которая ищет заданный образец внутри строки. Формат такой:
InStr([start,] "строка", "образец" [,режим]) "строка" - строка в которой ведется поиск "образец" - сочетание знаков, которое ищем start - число; с какого по счету символа начинать поиск. Если не задано, то с начала строки. режим - задание режима поиска. 0 - побитовое сравнение, 1 - текстовое сравнение. Если отсутствует, то режим задается оператором Option Compare (по умолчанию побитовое). Возвращает число: позицию в строке первого найденного фрагмента (начиная счет с 1). Если не найден - возвращает 0. Я бы при помощи нее задал поиск тега, непосредственно предшествующего "искомому" а затем тега, следующего после него. Таким образом получаешь место начала и конца "искомого", вычисляешь его длину и извлекаешь при помощи mid. ЗЫ: (Есть еще InStrRev("строка","образец" [,start] [,режим]) - то же самое, но ищет от конца строки к началу). |
|||
|
||||
Akina |
|
|||
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Это в HTML-то строки? В дополнение - если каждый следующий фрагмент находится после предыдущего, отрезай использованную часть. Но вообще для поиска по шаблону я бы использовал WScript.Match -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Machaon |
|
|||
![]() КаРолЬ АсьКи МуАЛя ![]() Профиль Группа: Участник Сообщений: 160 Регистрация: 12.8.2008 Где: М.о. Красногорск Репутация: нет Всего: 3 |
Вот мой пример попробуй но он будет работать только если параметры таблиц рисунков тедешников небудет меняться.
|
|||
|
||||
neic |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 839 Регистрация: 28.1.2007 Репутация: нет Всего: 7 |
Ну можно варварским способом поступить и просто сохранить весь HTML код в файл.
Открываешь его, считываешь нужное кол-во строк и там уже обрезаешь как надо. ПыСы это варварский способ, НО надёжный =)))) |
|||
|
||||
damc |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 16.8.2008 Репутация: нет Всего: нет |
спасибо...если честно варварским воспользовался в совокупе со вторым и третим ответом... а так предпоследний вариант охота попробовать, но не совсем в него довъехал еще )))
Это сообщение отредактировал(а) damc - 29.8.2008, 23:35 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |