如何从取回的网页中获得表格的内容（高分） ( 积分: 100 )

从internet中某处取回一个网页，在文字信息中包含了2个表格，格式是固定的，可以在表格上点右键另存为excel文件，现在的问题是我怎么可以实现将这2个表格存为excel文件？

从internet中某处取回一个网页，在文字信息中包含了2个表格，格式是固定的，可以在表格上点右键另存为excel文件，现在的问题是我怎么可以实现将这2个表格存为excel文件？

去分析html吧

这个，分析起来比较麻烦啊，又没有简单一些的处理方法?？

自己顶，顺便问下，怎么解析html？在下没有做过

编译原理
自己做个记法分析与语法分析程序
这方面内容网上有.

先把表格里的内容取出来放在数组里，再将数组里的数据存入Excel中。
从表格中取数据的方法：

uses mshtml;

function GetHtmlTableCell(aTable:IHTMLTable;aRow,aCol:integer):IHTMLElement;
var
Row:IHTMLTableRow;
node:IHTMLElement;
begin

Row:=aTable.rows.item(aRow,aRow) as IHTMLTableRow;
Result:=Row.cells.item(aCol,aCol) as IHTMLElement;
end;

function GetHtmlTable(aDoc:IHTMLDocument2;aIndex:Integer):IHTMLTable;
var
list:IHTMLElementCollection;
begin
list:=aDoc.all.tags('table') as IHTMLElementCollection;
Result:=list.item(aIndex,aIndex) as IHTMLTable;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Docintf:IHTMLDocument2;
tblintf:IHTMLTable;
begin
docintf:=WebBrowser1.Document as IHTMLDocument2;
tblintf:=GetHtmlTable(docintf,0);
ShowMessage( GetHtmlTableCell(tblintf,1,1).innerText);

end;

直接使用正则表达式,就可以转为文本文件了