Скачать: CL | DM;

Как загрузить 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 вопрос. Как же все таки найти слово? Очень нужно....

---

← →
{RASkov} ©   (2007-06-20 23:19) [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]<>""" - заменить на то что считается началом слова...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c