htm源文件为：
。。。
[code xml]

您好,
方法很多, 如果是我, 我會這麼做
-------------------
假設
< / t r > < t r >
< t d a l i g n = " c e n t e r " > 气 溫 < / t d >
< t d > 1 5 ℃ / 1 1 ℃ < / t d >
< t d > 1 6 ℃ / 1 1 ℃ < / t d >
< t d > 1 8 ℃ / 9 ℃ < / t d >
< t d > 2 0 ℃ / 1 0 ℃ < / t d >
< t d > 1 8 ℃ / 1 1 ℃ < / t d >
< t d > 1 9 ℃ / 1 0 ℃ < / t d >
< t d > 1 4 ℃ / 9 ℃ < / t d >
< / t r >
< t r >
存在 astr, 並注意每列尾都有兩個英文空白.
----------
mylist := tstringlist.create;
// 除掉前二列
astr := stringreplace(astr, '< / t r > < t r > ' #13#10 '< t d a l i g n = " c e n t e r " > 气 溫 < / t d > ' #13#10, '',[]);
// 除掉後二列
astr := stringreplace(astr, #13#10 '< / t r > ' #13#10 '< t r > ', '', []);
// 除掉所有 < t d >
astr := stringreplace(astr, '< t d >', '', [rfreplaceall]);
// 除掉所有 < / t d > 但保留每列的 crlf
astr := stringreplace(astr, ' < / t d >, '', [rfreplaceall]);
// 利用 stringlist 來切資料
mylist.text := astr;
// mylist 的每一列就是各筆溫度資料

參考一下.

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

以上是我最近較常採用的方式,
另外, 有興趣的話也可以參考一下我以前寫的一些 取 html 中 < t a b l e > 資料的
functions

http://blog.xuite.net/st33chen/delphi/23157317

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

敢问ST大大，astr是指什么啊？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

就是String...
也就是
var astr : String;

谢谢楼上，另外还有，ST大大，你给我的连接打不开啊。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

以前為了分析網頁資料寫了一些關於讀取 h t m l 中 < t a b l e >資料的 functions,
最近, 看到 roviury 大大的啟示, 又正好您正在問, 所以我翻出來用 roviury 大大提示的 delete procedure
改寫了一下, 由於我比較習慣用 function, 所以把 delete 功能寫成一個 cropstr function.
還沒測, 您要幫我測的話, 歡迎哦.
參考一下.

// 以下是新版 html functions : 引用網友介紹的 delete 改寫舊版, 看起來比較清爽
// 並加註解

// 把 procedure delete 改成 function 型, 比較習慣
function cropstr(htmstr: string; bgnpos, numchars: integer) : string;
begin
result := htmstr;
delete(result, bgnpos, numchars);
end;
// 找到 < t a b l e 並去掉本身及其前面子字串
function findtable(htmstr: string) : string;
var ii: integer;
begin
result := htmstr;
ii:=pos('< T A B L E',uppercase(result)); // 怕會影響顯示, 加空格
if ii>0 then result := cropstr(result, 1, ii 5)
end;
// 找到 < t r 並去掉本身及其前面子字串
function findtr(htmstr: string) : string;
var ii:integer;
begin
result := htmstr;
ii:=pos('< T R',uppercase(result);
if ii>0 then result := cropstr(result,1, ii 2);
end;
// 跳到第一個 tag 外的字元,
// 例如跳到 < t d > < f o n t ...>資料< / f o n t>< / t d > 中的 資 字
function skiptag(htmstr : string) : string;
var ii:integer;
begin
result := result:='<' htmstr;
while copy(result,1,1)='<' do begin
ii:=pos('>',result);
result := trim(cropstr(result, 1, ii));
end;
end;
// 找到 < t d 並跳到第一個 tag 外的字元, 也就是他的資料
function findtd(htmstr : string) : string;
var ii:integer;
begin
result := htmstr;
ii:=pos('< T D',uppercase(result));
if ii>0 then begin
result := cropstr(result, 1, ii-1);
while copy(result,1,1)='<' do begin
ii:=pos('>',result);
result := trim(cropstr(result, 1, ii));
end;
end;
end;
// 找到 < t h 並跳到第一個 tag 外的字元, 也就是他的資料
function findth(htmstr : string) : string;
var ii:integer;
begin
result := htmstr;
ii:=pos('< T H',uppercase(result));
if ii>0 then begin
result := cropstr(result, 1, ii-1);
while copy(result,1,1)='<' do begin
ii:=pos('>',result);
result := trim(cropstr(result, 1, ii));
end;
end;
end;

// 取得 td 或 th 的資料(在 findtd 或 findth 後使用)
function getdata(var htmstr: string) :string;
var ii:integer;
begin
ii:=pos('<',htmstr)-1;
result := trim(copy(htmstr,1,ii));
delete(htmstr,1, ii);
end;
// 去掉 < t d > 到 < / t d > 也就是去掉一欄資料
function skiptd(htmstr : string) : string;
var ii,jj:integer;
begin
result := htmstr;
ii:=pos('< T D',uppercase(result));
if ii>0 then begin
result := trim(cropstr(result, 1, ii 2));
end;
ii := pos('< / T D',uppercase(result));
if ii>0 then begin
result := trim(cropstr(result, 1, ii 4));
end;
end;
// 找到某字串並去掉本身及其前面子字串, 保持原大小寫
// 主要用在去掉目標 < t a b l e 之前的一大段廢話.
function findstr(astr:string; htmstr:string) : string;
var ii:integer;
begin
result := htmstr;
ii := pos(astr, result);
if ii>0 then begin
result := cropstr(result, 1, ii length(astr)-1);
end;
end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄