大家好,我現在想從一行字串中取出欄位值,用的是TStringList , 但現在有一個問題,當某個欄位用字串"括號起來,而且裡頭有空白字元,請教各位先進,有什麼比較有效率的方法嗎 ? ex: S='date=2005-07-08 time=11:25:39 msg="This is a message(aaa)"'; List:=TStringList.Create; List.Delimiter :=#44; 可以取出 List.Values['date'] => 2005-07-08 List.Values['time'] => 11:25:39 但 List.Values['msg'] => This 請各位提點迷津,謝謝 ^^

你不要使用「空字串」做為資料的分隔，使用一些特殊字元做分隔，如#4做分隔，範例如下：    

 
var
  List: TStrings;
  S: String;
begin
  List:= TStringList.Create;
  try
    S='date=2005-07-08' #4 'time=11:25:39' #4 'msg=This is a message(aaa)';
    List.Text:= StringReplace(S,#4,#13#10);
    //List.Values['date']= '2005-07-08';
    //List.Values['time']= '11:25:39';
    //List.Values['msg']= 'This is a message(aaa)';
  finally
    FreeAndNil(List);
  end;
end;

發表人 - jeff377 於 2005/07/08 23:18:12

yuan1688您好： 试试如下

 procedure TForm1.Button1Click(Sender: TObject);
var
  List:TStringlist;
begin
  List:=TStringlist.Create;
  ExtractStrings([' '],[],'date=2005-07-08 time=11:25:39 msg="This is a message(aaa)"',List);
  showmessage(List.Values['date']);//结果：2005-07-08
  showmessage(List.Values['time']);//结果：11:25:39
showmessage(List.Values['msg']);//结果："This is a message(aaa)"
  List.Free;
end;

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================