Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Помогите разобратся с получением текста из TWebBrowser   Найти похожие ветки 

← →
paul_k ©   (2004-03-30 10:12) [0]

Здравствуйте . наступил тут на очередные грабли.
пытаюсь получить текст из таблицы 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) [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

---

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

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c