請問資料庫匯出至Excel時使用資料剖析精靈的問題 |
尚未結案
|
landochu
一般會員 發表:23 回覆:20 積分:8 註冊:2003-12-24 發送簡訊給我 |
請問各位: 我想要將資料匯出至Excel,但是取出資料後因為格式有些不整齊,故想要將資料取出後使用Excel的【資料剖析精靈】(此功能位於主功能表<資料\資料剖析>)做格式化文字的動作,請問delphi能夠做這類較複雜的精靈呼叫動作嗎?? 謝謝~~ 範例資料如下: 0.25 3200 800
0.50 1000 500 (此資料因為儲存於同一欄,故必須在excel中將它們分成三欄,其中,本資料為三段文字構成,各段間以一個至兩個空白分開<這就是我說的資料不整齊的原因>資料做為識別。) 發表人 - landochu 於 2004/05/29 21:33:10
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
你的問題看起來似乎是要切一個以空白做為切割符號的字串,只是當切割符號連續出現時必需視為一個切割符號,其實只要略做處理即可.
先以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;不知道以上是不是你想要的 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |