請問各位前輩： 請問不固定長度的字串處理方法?? 字串如下 AAA-BB-CCCC-DD-EEEE-FF AA-BBBB-CCCCC-DDD-EE-FFFF-GGG    我要如何得到每個區段的字串，但不含- 如字串1 AAA BB CCCC DD EEEE FF

參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24685 其中分隔字元改為 - 試試. -- QBQ: 我能做什麼？

hagar您好： 謝謝您的相助，可否再請教，若是節區數量不固定的話，那該如何處理呢？ 例如 123-456-789//共3個節區 12-34567-890-aaa-bbb//共5個節區

用 TStringList 的話 那以 TStringList.Count 便知道有幾個節區了. -- QBQ: 我能做什麼？

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;

這一篇應該能滿足你的需求 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=61140

我把自己寫的一段小程式給您參考看看吧.

    //判定有多少個字串
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     
        

請參考 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;