| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как загрузить html код (с определенного сайта) в tmemo?
Ccill © (2007-06-20 21:27:00)У меня 3 вопроса. Есть ссылки на страницы. Необходимо загрузить только html код этой страницы. Соответственно 1 вопрос, каким компонентом воспользоваться, чтобы выполнить эту задачу.
2 вопрос. В полученном коде необходимо удалить весь текст, который находится до слова "<text>".
3 вопрос. После удаления текста до слова "<text>" в оставшемся блоке необходимо найти слово в котором есть определенные символы. К примеру, все слово "123абс.doc", а мне известно только "абс". Необходимо полностью узнать все слово где есть известные символы.
Я занимаюсь Делфи для души, пытаюсь упростить на работу обработку некоторых документов, поэтому просьба сильно не пинать. Очень нужен код ко 2 и 3 вопросу. Заранее спасибо.
{RASkov} (2007-06-20 23:19:00) [1]> [2] Ccill (20.06.07 22:44)
> Как же все таки найти слово? Очень нужно....
Ну что нибудь так:
i:=Pos('.doc' S);
while i>0 and S[i]<>'"' do begin
SWord:=S[i]+SWord;
Dec(i);
end;
S[i]<>'"' - заменить на то что считается началом слова...
Ccill (2007-06-20 22:44:00) [2]спасибо за ответы. в моем случае я стал использовать indy и первый вопрос так решил:
richedit1.lines.add(idhttp1.Get('....'))
во втором вопросе использовал pos()... остался 3 вопрос. Как же все таки найти слово? Очень нужно....
JanMihail (2007-06-20 21:40:00) [3]1 вопрос:Загружаешь страницу в WebBrowser компонент, затем делаешь следующее:
html: IHTMLDocument2;
...
html := WebBrowser1.Document as IHTMLDocument2;
Memo1.Lines.Add(html.outerHTML);
в usesне забудь прописать MsHtml
2 вопрос:
i := Pos('<text>', html.outerHTML);
delete(html.outerHTML, 1, i);
3 вопрос:Ну тут уже сам додумайся что делать нужно. В принципе не сложно!
| |
