Как загрузить html код (с определенного сайта) в tmemo?

← →
Ccill (2007-06-20 21:27) [0]

У меня 3 вопроса. Есть ссылки на страницы. Необходимо загрузить только html код этой страницы. Соответственно 1 вопрос, каким компонентом воспользоваться, чтобы выполнить эту задачу.

2 вопрос. В полученном коде необходимо удалить весь текст, который находится до слова "<text>".

3 вопрос. После удаления текста до слова "<text>" в оставшемся блоке необходимо найти слово в котором есть определенные символы. К примеру, все слово "123абс.doc", а мне известно только "абс". Необходимо полностью узнать все слово где есть известные символы.

Я занимаюсь Делфи для души, пытаюсь упростить на работу обработку некоторых документов, поэтому просьба сильно не пинать. Очень нужен код ко 2 и 3 вопросу. Заранее спасибо.

← →
JanMihail © (2007-06-20 21:40) [1]

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 вопрос: Ну тут уже сам додумайся что делать нужно. В принципе не сложно!

← →
Ccill (2007-06-20 22:44) [2]

спасибо за ответы. в моем случае я стал использовать indy и первый вопрос так решил:
richedit1.lines.add(idhttp1.Get("...."))
во втором вопросе использовал pos()... остался 3 вопрос. Как же все таки найти слово? Очень нужно....

> [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]<>""" - заменить на то что считается началом слова...

Как загрузить html код (с определенного сайта) в tmemo? Найти похожие ветки