字串擷取問題 |
|
答題得分者是：eaglewolf
|
|
cursegold
一般會員   發表：16 回覆：36 積分：15 註冊：2006-08-22 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
1.針對所提問題解答
假設你的 cut(...) function 是自己寫好的, mstr:= CUT(',',MSTR); 就成了 2.要擷取字串, 可以用 copy( ), Delete( ), 可再搭配 StringReplace( ) function 就可以做到 提供你做參考 ======================================================================== 位大大好? 小弟我有一個問題想請教大家? 今天我在DELPHI裡面宣告一個字串變數 var mStr:string; 後我在程式裡面做 mstr:='A,B,C'; 後 把MSTR傳入一個FUNCTION 叫做CUT(XTOKEN,XSTR:STRING):STRING; RESULT:=CUT(',',MSTR); 此時CUT會回傳一個值假如是 A 所以RESULT為A 請教各為我要如何再跑完CUT這個FUNCTION後MSTR馬上就變成字串B,C了 而不是A,B,C
編輯記錄
P.D. 重新編輯於 2010-03-10 02:09:39， 註解 無‧
|
|
cursegold
一般會員 發表：16 回覆：36 積分：15 註冊：2006-08-22 發送簡訊給我 |
版主大 你好
今天主要是要寫一個FUNCTION CUT 只要我傳入一個字串跟TOKEN 就可以得到字串擷取後的2個值例如 我今天有一個字串 'ABC,BCD,CDE' 我把此字串丟入CUT FUNCTION後除了可以得到RESULT回傳值'ABC'以外 我原本丟進去的變數會變成被截斷後的值 'BCD,CDE' 所以我不能用mstr:= CUT(',',MSTR); 因為我CUT回傳出來值是'ABC'所以我式宣告另一個變數假如是 mTEMP:=CUT(',',MSTR);但我原本的MSTR希望變成'BCD,CDE' 謝謝 ===================引 用 P.D. 文 章=================== 1.針對所提問題解答 假設你的 cut(...) function 是自己寫好的, mstr:= CUT(',',MSTR); 就成了 2.要擷取字串, 可以用 copy( ), Delete( ), 可再搭配 StringReplace( ) function 就可以做到 提供你做參考 ======================================================================== 位大大好? 小弟我有一個問題想請教大家? 今天我在DELPHI裡面宣告一個字串變數 var mStr:string; 後我在程式裡面做 mstr:='A,B,C'; 後 把MSTR傳入一個FUNCTION 叫做CUT(XTOKEN,XSTR:STRING):STRING; RESULT:=CUT(',',MSTR); 此時CUT會回傳一個值假如是 A 所以RESULT為A 請教各為我要如何再跑完CUT這個FUNCTION後MSTR馬上就變成字串B,C了 而不是A,B,C
------
蔡志全 |
|
eaglewolf
資深會員 發表：4 回覆：268 積分：429 註冊：2006-07-06 發送簡訊給我 |
修改宣告
function CUT(XTOKEN:string; var XSTR:string):string; 在cut function中 最後一行加入 XSTR := RightStr(XSTR, Length(XSTR) - Pos(XTOKEN,XSTR)); ===================引 用 cursegold 文 章=================== 各位大大好 小弟我有一個問題想請教大家 今天我在DELPHI裡面宣告一個字串變數 var mStr:string; 後我在程式裡面做 mstr:='A,B,C'; 後 把MSTR傳入一個FUNCTION 叫做CUT(XTOKEN,XSTR:STRING):STRING; RESULT:=CUT(',',MSTR); 此時CUT會回傳一個值假如是 A 所以RESULT為A 請教各為我要如何再跑完CUT這個FUNCTION後MSTR馬上就變成字串B,C了 而不是A,B,C
------
先查HELP 再查GOOGLE 最後才發問 沒人有義務替你解答問題 在標題或文章中標明很急 並不會增加網友回答速度 Developing Tool: 1.Delphi 6 2.Visual Studio 2005 3.Visual Studio 2008 DBMS: MS-SQL |
|
cursegold
一般會員 發表：16 回覆：36 積分：15 註冊：2006-08-22 發送簡訊給我 |
eaglewolf 你好
XSTR := RightStr(XSTR, Length(XSTR) - Pos(XTOKEN,XSTR)); 我之前試過了 你只是改變了CUT 裡面的XSTR 他並不會引想你當初都給CUT 這個FUNCTION的變數 例如 MSTR:='ABC,BCD,DEF' MTEMP:=CUT(',',MSTR); 雖然CUT FUNCTION 裡面 XSTR := RightStr(XSTR, Length(XSTR) - Pos(XTOKEN,XSTR)); XSTR變成'BCD,DEF' 但是離開CUT FUNCTION 後MSTR還是'ABC,BCD,DEF' 謝謝 ===================引 用 eaglewolf 文 章=================== 修改宣告 function CUT(XTOKEN:string; var XSTR:string):string; 在cut function中 最後一行加入 XSTR := RightStr(XSTR, Length(XSTR) - Pos(XTOKEN,XSTR));
------
蔡志全 |
|
eaglewolf
資深會員 發表：4 回覆：268 積分：429 註冊：2006-07-06 發送簡訊給我 |
|
|
syntax
尊榮會員 發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
function CUT(XTOKEN:string; var XSTR:string):string;
還是標給他看吧，連這都不知道，肯定沒看書，所以這基本常識都沒有 cursegold 建議你自己花點時間，補足基本常識，沒有書，那看 Deplhi 自帶的 Help 也是一樣 新版還有 Wiki 可看 http://docwiki.embarcadero.com/RADStudio/en/Parameters_(Delphi) ===================引 用 eaglewolf 文 章=================== 你有修改宣告嗎? function CUT(XTOKEN:string; var XSTR:string):string; |
|
cursegold
一般會員 發表：16 回覆：36 積分：15 註冊：2006-08-22 發送簡訊給我 |
發表時間：2010-03-09 15:57:37
IP:59.125.xxx.xxx 未訂閱
系統時間：2024-05-17 6:58:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |