請問不固定長度的字串處理方法?? |
答題得分者是:jow
|
wwwbbs
初階會員 發表:41 回覆:59 積分:25 註冊:2003-05-23 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
wwwbbs
初階會員 發表:41 回覆:59 積分:25 註冊:2003-05-23 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
bennykyp
一般會員 發表:11 回覆:31 積分:8 註冊:2004-10-21 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
sLev1 : String;
pLev1 : Integer;
begin
sLev1 := 'AAA-BB-CCCC-DD-EEEE-FF'; repeat
pLev1 := Pos('-',sLev1);
sLev1 := Copy(sLev1,(pLev1 1),Length(sLev1));
Showmessage(sLev1);
until
pLev1 = 0;
end;
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
這一篇應該能滿足你的需求
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=61140
|
peterpcc
一般會員 發表:6 回覆:37 積分:13 註冊:2004-09-27 發送簡訊給我 |
我把自己寫的一段小程式給您參考看看吧.
//判定有多少個字串 function tTokenNum(vData:string; vWord:string ):integer; var v_v1:integer; v_n:integer; begin vData:=trim(vdata); v_v1:=length(vData); if rightBstr(vData,length(vWord))=vWord then vData:=copy(vData,1,v_v1-length(vWord)); // 遇尾去尾 v_n:=1; while pos(vWord,vData)>0 do begin vData:=copy(vData,pos(vWord,vData) length(vWord),v_v1-pos(vData,vWord) length(vWord) 1); v_n:=v_n 1; end; result:=v_n; end; // 取第幾個字串出來 function tToken(vData:string; vWord:string; vNum:integer):string; var v_v1:integer; v_n:integer; v_txt:string; begin vData:=trim(vdata); v_v1:=length(vData); if rightBstr(vData,length(vWord))<>vWord then //沒尾補尾 vData:=vData vWord; v_n:=1; while v_n |
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
請參考
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=61140">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=61140
function Split(s, delimiter: string): TStrings; begin Result := TStringList.Create; Result.Text := StringReplace(s,delimiter,#13,[rfReplaceAll, rfIgnoreCase]); end; procedure TForm1.Button1Click(Sender: TObject); var S: TStrings; begin S := Split('AA-BBBB-CCCCC-DDD-EE-FFFF-GGG','-'); try if Assigned(S) then ShowMessage(S[4]); finally FreeAndNil(S); end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |