Помогите разобратся с получением текста из TWebBrowser [D7, Win2k]
paul_k © (2004-03-30 10:12:00)
Здравствуйте . наступил тут на очередные грабли.
пытаюсь получить текст из таблицы HTML документа загруженного
в
TWebBrowser
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
ovTable: OleVariant;
begin
ovTable :=
WebBrowser1.OleObject.Document.all.tags('TABLE').item(0);
for i := 0 to (ovTable.Rows.Length - 1) do
begin
for j := 0 to (ovTable.Rows.Item(i).Cells.Length
- 1) do
begin
Memo1.Lines.Add(ovTable.Rows.Item(i).Cells.Item(j).InnerText;
end;
end;
end;
Все бы хорошо, но интересующие данные находятся в таблице,
вложенной в ячейку, следовательно данным способом получаю их
сплошным текстовым блоком
Вопрос в следующем - как добратся до ячеек таблицы, вложенной
в ячейку.
Заранее спасибо за содержательные ответы
paul_k (2004-03-30 11:31:00) [1]
хмм.. а ларчик просто открылся... только не понятно как это
эффективно сделать... если добиратся нужно до n-ной вложеной
таблицы... подозреваю что этот самолет тут не полетит.. а вот
почему?
var
i,j: integer;
ovTable,ovSTable: OleVariant;
s: string;
begin
ovTable :=
WB.OleObject.Document.all.tags('TABLE').item(1);
ovSTable :=ovTable.all.tags('TABLE').item(0);
for i := 2 to (ovSTable.Rows.Length - 3) do
begin
s:='';
for j := 0 to
(ovSTable.Rows.Item(i).Cells.Length - 1 ) do
begin
s:=s+ovSTable.Rows.Item(i).Cells.Item(j).InnerText+'; ';
end;
Memo1.Lines.Add(s);
end;
end
Наверх 
ЧАТ |
Орешник |
|
