請問各位： 我想要將資料匯出至Excel，但是取出資料後因為格式有些不整齊，故想要將資料取出後使用Excel的【資料剖析精靈】(此功能位於主功能表<資料\資料剖析>)做格式化文字的動作，請問delphi能夠做這類較複雜的精靈呼叫動作嗎?? 謝謝~~ 範例資料如下： 0.25 3200 800 0.50 1000 500 (此資料因為儲存於同一欄，故必須在excel中將它們分成三欄，其中，本資料為三段文字構成，各段間以一個至兩個空白分開<這就是我說的資料不整齊的原因>資料做為識別。) 發表人 - landochu 於 2004/05/29 21:33:10

你的問題看起來似乎是要切一個以空白做為切割符號的字串,只是當切割符號連續出現時必需視為一個切割符號,其實只要略做處理即可. 先以ExtractStrings把字串切割到TStrings裡,然後再對TStrings裡一一檢查,凡是Trim掉後為空字串的就一律delete,這樣,在TStrings裡的就是格式化後的資料,就可以再做後續轉excel的處理了,程式碼如下:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  ss:TStringList;
  str:String;
begin
  str:='0.50  1000 500';
  ss:=TStringList.Create;
  ExtractStrings([' '],[],PChar(str),ss);
  for i:=ss.Count-1 downto 0 do
    if trim(ss.Strings[i]) = '' then
      ss.Delete(i);
  Memo1.Lines.Text:=ss.Text; //放進Memo裡只是方便觀察結果
  ss.free;
end;

不知道以上是不是你想要的