Страница: 1 |
Страница: 1 |
Вопрос: Текст
Добавлено: 27.03.06 09:48
Автор вопроса: Billi Gates | ICQ: 242-026-281
Наверно всех достал уже со своими вопросами? Но тем не менее задам ещё один. Допустим есть хтмл код, из которого мне нужно вытащить все ссылки(это я к примеру)любой абсолютно, но это нухно сделать не апи функцией а др. способом(если код хтмл в текстовом виде и там a href="" вот всё начиная от <a href=""> до </a> (в хтмл коде ссылок может быть бесконечно! Если что-то не понятно по вопросу пишите! Потому, что лучше изяснить суть проблемы не мог!
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
zulus
Вопросов: 2
Ответов: 23
Профиль | | #1
Добавлено: 27.03.06 10:03
Все просто. html_text - это твой код.
dim clinks()as string
cindex=0: cpos=1
for i=1 to len(html_text)
cstart=instr(cpos,html_text,"<a href"
if cstart=0 then exit for
cend=instr(cstart+8,html_text,"</a>"
redim preserve clinks(cindex)
clinks(cindex)=mid$(html_text,cstart,cend-cstart+4)
cindex=cindex+1: cpos=cend+4
next i
Все. У тебя в массиве будет вся строчка с "<a href" до "</a>".
Номер ответа: 2
Автор ответа:
Billi Gates
ICQ: 242-026-281
Вопросов: 25
Ответов: 57
Профиль | | #2
Добавлено: 27.03.06 10:27
спасибо!!!!!!! работает ))))))))))))))))))))))))))))))))
Номер ответа: 3
Автор ответа:
Neco
ICQ: 247906854
Вопросов: 133
Ответов: 882
Web-сайт:
Профиль | | #3
Добавлено: 28.03.06 04:29
имхо, это не сработает в коде <a href="www.ms.com </a> etc.">some text</a>
Номер ответа: 4
Автор ответа:
zulus
Вопросов: 2
Ответов: 23
Профиль | | #4
Добавлено: 29.03.06 10:43
ну ежели так, то все еще проще - делаешь парсер хтмл и вперед к светлому будущему