用indy提取网页中的部分内容

發文回覆瀏覽次數：1699

推到 Plurk!

推到 Facebook!

答題得分者是：st33chen

','', [rfreplaceall]);
mylist.text := astr;
showmessage(mylist.strings[0]);
[/code]
而相关的网页源代码为：
<tr>

<td><img src="/image/b1.gif" alt="多云" /><img src="/image/b0.gif" alt="晴" /><br/>多云转晴td>

<td><img src="/image/b4.gif" alt="雷阵雨" /><img src="/image/b3.gif" alt="阵雨" /><br/>雷阵雨转阵雨td>

<td><img src="/image/b0.gif" alt="晴" /><img src="/image/b1.gif" alt="多云" /><br/>晴转多云td>

<td><img src="/image/b1.gif" alt="多云" /><img src="/image/b0.gif" alt="晴" /><br/>多云转晴td>

<tr>
我只是要提取第一个“多云转晴”的数据，但是，这个代码一运行就出错。知道是什么原因吗？

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

編輯記錄

zhouying82 重新編輯於 2009-04-18 00:46:15，註解無‧

zhouying82 高階會員發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我	#1 引用回覆回覆發表時間：2009-04-18 00:44:42 IP:222.70.xxx.xxx 訂閱我的代码如下 [code delphi] procedure TForm1.Button1Click(Sender: TObject); var rStream: TStringStream;astr:string;mylist:TStringList; begin rStream:= TStringStream.Create('', TEncoding.Default); IdHTTP1.Get('http://qq.ip138.com/weather/zhejiang/hangzhou.htm',rstream); astr := rStream.DataString; astr:=stringreplace(astr,'/> ','',[rfreplaceall]); astr:=stringreplace(astr,'
老大仔尊榮會員發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我	#2 引用回覆回覆發表時間：2009-04-18 01:41:13 IP:59.114.xxx.xxx 未訂閱請問您的出錯是怎樣的出錯呢? 是連compile都不行嗎? 假如是的話請改成以下試看看： [code delphi] var s : String; begin s:=IdHTTP1.Get('http://qq.ip138.com/weather/zhejiang/hangzhou.htm'); //以下如同你的程式碼，恕我不補上了 end: [/code] 編輯記錄老大仔重新編輯於 2009-04-18 01:41:57，註解無‧
st33chen 尊榮會員發表：15 回覆：591 積分：1201 註冊：2005-09-30 發送簡訊給我	#3 引用回覆回覆發表時間：2009-04-18 06:49:32 IP:122.116.xxx.xxx 未訂閱您好, 若只是專為取第一個多云转晴的特殊目的可用 : ii := pos(' / > < b r / >', astr) 7; // 第一參數字串內無空格 astr := copy(astr, ii, 1000); ii := pos('< / t d ', astr)-1; // 第一參數字串內無空格 bstr := copy(astr, 1, ii); // 取資料若還有其他欄位要取, 取第一個多云转晴只是舉例, 可以 : 1. 參考 http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=97809 中的 html functions. 2. 取第一個多云转晴的用例是 : astr := findtr(astr); astr := skiptd(astr); // 去掉天气這一欄 astr := findtd(astr); // 找到下一欄 bstr := getdata(astr); // 取資料參考一下 ---------------------------------------- 若要從您的頁面取出第一天的天氣文字說明 : astr := findstr('让你感受当老板的乐趣', astr); // 去掉特殊字及其之前所有文字 astr := findtr(astr); // 找到第一個 < t r 就是 table 的 t h 那一列, 不處理 astr := findtr(astr); // 找到第二個 < t r astr := skiptd(astr); // 去掉天气這一欄 astr := findtd(astr); // 找到下一欄 bstr := getdata(astr); // 取資料用 function 會比較方便. 不過, 若 < t a b l e 中還有 < t a b l e 可能就不適用, 需要額外處理. ------ IS IT WHAT IT IS 我是李慕白請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. 編輯記錄 st33chen 重新編輯於 2009-04-18 06:55:24，註解無‧ st33chen 重新編輯於 2009-04-18 07:32:19，註解無‧
zhouying82 高階會員發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我	#4 引用回覆回覆發表時間：2009-04-18 07:36:10 IP:222.70.xxx.xxx 訂閱谢谢ST33CHEN大大，真的是一个好人，帮了我许多。谢谢啊 ------ 断断续续的学了几年，还是一个初学者，永远支持Delphi !

系統時間：2024-05-19 13:04:26

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

zhouying82 高階會員發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我	#1 引用回覆回覆發表時間：2009-04-18 00:44:42 IP:222.70.xxx.xxx 訂閱我的代码如下 [code delphi] procedure TForm1.Button1Click(Sender: TObject); var rStream: TStringStream;astr:string;mylist:TStringList; begin rStream:= TStringStream.Create('', TEncoding.Default); IdHTTP1.Get('http://qq.ip138.com/weather/zhejiang/hangzhou.htm',rstream); astr := rStream.DataString; astr:=stringreplace(astr,'/> ','',[rfreplaceall]); astr:=stringreplace(astr,'
老大仔尊榮會員發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我	#2 引用回覆回覆發表時間：2009-04-18 01:41:13 IP:59.114.xxx.xxx 未訂閱請問您的出錯是怎樣的出錯呢? 是連compile都不行嗎? 假如是的話請改成以下試看看： [code delphi] var s : String; begin s:=IdHTTP1.Get('http://qq.ip138.com/weather/zhejiang/hangzhou.htm'); //以下如同你的程式碼，恕我不補上了 end: [/code] 編輯記錄老大仔重新編輯於 2009-04-18 01:41:57，註解無‧
st33chen 尊榮會員發表：15 回覆：591 積分：1201 註冊：2005-09-30 發送簡訊給我	#3 引用回覆回覆發表時間：2009-04-18 06:49:32 IP:122.116.xxx.xxx 未訂閱您好, 若只是專為取第一個多云转晴的特殊目的可用 : ii := pos(' / > < b r / >', astr) 7; // 第一參數字串內無空格 astr := copy(astr, ii, 1000); ii := pos('< / t d ', astr)-1; // 第一參數字串內無空格 bstr := copy(astr, 1, ii); // 取資料若還有其他欄位要取, 取第一個多云转晴只是舉例, 可以 : 1. 參考 http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=97809 中的 html functions. 2. 取第一個多云转晴的用例是 : astr := findtr(astr); astr := skiptd(astr); // 去掉天气這一欄 astr := findtd(astr); // 找到下一欄 bstr := getdata(astr); // 取資料參考一下 ---------------------------------------- 若要從您的頁面取出第一天的天氣文字說明 : astr := findstr('让你感受当老板的乐趣', astr); // 去掉特殊字及其之前所有文字 astr := findtr(astr); // 找到第一個 < t r 就是 table 的 t h 那一列, 不處理 astr := findtr(astr); // 找到第二個 < t r astr := skiptd(astr); // 去掉天气這一欄 astr := findtd(astr); // 找到下一欄 bstr := getdata(astr); // 取資料用 function 會比較方便. 不過, 若 < t a b l e 中還有 < t a b l e 可能就不適用, 需要額外處理. ------ IS IT WHAT IT IS 我是李慕白請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. 編輯記錄 st33chen 重新編輯於 2009-04-18 06:55:24，註解無‧ st33chen 重新編輯於 2009-04-18 07:32:19，註解無‧
zhouying82 高階會員發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我	#4 引用回覆回覆發表時間：2009-04-18 07:36:10 IP:222.70.xxx.xxx 訂閱谢谢ST33CHEN大大，真的是一个好人，帮了我许多。谢谢啊 ------ 断断续续的学了几年，还是一个初学者，永远支持Delphi !