程式有問題了(字串處理)~ |
|
|
|
bastard
一般會員   發表：13 回覆：19 積分：6 註冊：2002-03-18 發送簡訊給我 |
|
|
bastard
一般會員 發表：13 回覆：19 積分：6 註冊：2002-03-18 發送簡訊給我 |
對不起~因為留言版支援html tag的關係~所以上篇文章顯示有問題~
我再重po一遍好了，把原先的tag換成*kkk*,*lll*
~~浪費網路了資源真抱歉! pagecode:='*kkk*DBdata*lll*'; //假設要取出DBdata這個字串
While Pos(*kkk*,pagecode) > 0 do
begin
spanpos:=Pos('*kkk*',pagecode);
span2pos:=Pos('*lll*',pagecode);
span3pos:=span2pos-spanpos-5;
ADOTable1.Insert;
ADOTable1['search_content']:=Copy(pagecode,spanpos 5,span3pos);
delete(pagecode,spanpos,5); //刪除*kkk* tag
delete(pagecode,span2pos,5); //刪除*lll*tag
ADOTable1.Post;
end; [Delphi]=*VaKa*=is~me
------
[Delphi]=*VaKa*=is~me |
|
bastard
一般會員 發表：13 回覆：19 積分：6 註冊：2002-03-18 發送簡訊給我 |
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
發表時間：2002-03-18 18:08:47
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-04-26 15:55:37
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |