VPF::WebBrowser и hlml - Форум программистов

Garmahis

Дата 13.12.2005, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

У меня в веббороузере отображается страничка. Мне надо програмно часть текста выделить и скопировать. Конечно можно реализовать это вывылив весь код штмл в мемо и там работать как с текстом но это геморой потому что страничка с кучей вложеных фреймов и компонентами управления. а мне бы просто взять кусок текста оттуда. Как это можно сделать?

p0s0l

Дата 13.12.2005, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 6
Всего: 112

Выделение:

Код


var
  doc : IHTMLDocument2;
  tr : IHTMLTxtRange;

begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  tr := (doc.body as IHTMLBodyElement).createTextRange;
  tr.moveStart('character', 10); // с 10 символа
  tr.moveEnd ('character', 500); // по 500-й символ
  tr.select; // выделяем
end;

Вместо 'character' могут быть и другие параметры:
http://msdn.microsoft.com/library/default....ods/moveend.asp
Добавлено @ 14:38
А, погоди, тебе просто текст надо скопировать ?
Почему бы просто не сделать так:
Txt := Copy(Doc.Body.InnerText, 10, 20); ?

Это сообщение отредактировал(а) p0s0l - 13.12.2005, 14:34

--------------------

С уважением, г-н Посол.

Garmahis

Дата 13.12.2005, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

Да мне надо просто скопировать текст. Но желательно не весь а скажем со слова "Арбуз" до слова "сыр"

p0s0l

Дата 13.12.2005, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 6
Всего: 112

Получив текст

Код

Txt := Doc.Body.InnerText;

делай с ним что хочешь...

Код


P1 := Pos('Арбуз', Txt);
P2 := Pos('сыр', Txt);
Txt2 := Copy(Txt, P1, P2-P1);
ShowMessage(Txt2);

Добавлено @ 16:23
Т.е. это вопрос не касаемо TWebBrowser'а, а вопрос про работу со строками...

--------------------

С уважением, г-н Посол.

Garmahis

Дата 13.12.2005, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

Всё разобрался! Большое спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »