線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1680
推到 Plurk!
推到 Facebook!

請問如何將StringGrid存成*.txt檔

答題得分者是:taishyang
心的停機坪
一般會員


發表:31
回覆:41
積分:14
註冊:2003-07-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-28 21:47:22 IP:163.13.xxx.xxx 未訂閱
各位先進: 我想請教如何將StringGrid內的資料加以儲存文字檔... 謝謝各位大大 ~我是個新手,若有不當之處,還望耐心指教~
------
~我是個新手,若有不當之處,還望耐心指教~
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-28 22:03:28 IP:140.135.xxx.xxx 未訂閱
心的停機坪您好:  試試下面的code  
 
  TStringList*sl=new TStringList();
  for (int y=0;yColCount;y  )
  {
   for (int x=0;xRowCount;x  )
   {
    sl->Add(StringGrid1->Cells[x][y]);
   }
  }
  sl->SaveToFile("文字檔.txt");
  delete sl;
 
順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
心的停機坪
一般會員


發表:31
回覆:41
積分:14
註冊:2003-07-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-29 11:05:43 IP:163.13.xxx.xxx 未訂閱
taishyang您好: 謝謝您熱心的幫忙... 我想再請教一下,存成文字檔後,該如何將同一raw的cells資料存在同一列 ?該如何以空白或逗號分隔? 再一次感謝您的幫忙... ~我是個新手,若有不當之處,還望耐心指教~
------
~我是個新手,若有不當之處,還望耐心指教~
心的停機坪
一般會員


發表:31
回覆:41
積分:14
註冊:2003-07-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-29 11:35:16 IP:163.13.xxx.xxx 未訂閱
taishyang您好: 上個問題我已經解決了,讓您費心了... 另外,我想再請教一下,若我想將StringGrid存成Excel檔,該如何做呢? 謝謝您... ~我是個新手,若有不當之處,還望耐心指教~
------
~我是個新手,若有不當之處,還望耐心指教~
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-29 14:37:14 IP:140.135.xxx.xxx 未訂閱
心的停機坪您好:    
引言:若我想將StringGrid存成Excel檔,該如何做呢?
請參考下面連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22993 // 原作者:Yudi Wibisono XLSFILE元件 // CCCHEN:改為Function版 // 領航天使:除錯 // dllee: 加入 StringGridToXLS(), 修正一些小 BUG, 指定此格式最大 Rows 數,以免爆了產生出的檔案不能用 順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
心的停機坪
一般會員


發表:31
回覆:41
積分:14
註冊:2003-07-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-07-29 22:35:25 IP:163.13.xxx.xxx 未訂閱
taishyang您好: 我想再請教您一下,若我想從文字檔中讀取資料該如何做? 例如一列中可能有好幾個不同的資料(即不同行,以逗點分開),我該如何讀取呢 11,22,33 44,55,66 : : : : : : 該如何依序讀取11,22,33(第一筆資料),44,55,66(第二筆資料),... 謝謝您 ~我是個新手,若有不當之處,還望耐心指教~
------
~我是個新手,若有不當之處,還望耐心指教~
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-07-29 22:47:22 IP:140.135.xxx.xxx 未訂閱
心的停機坪您好:   請參考下面連結的方式   http://delphi.ktop.com.tw/topic.php?topic_id=27455 或是試試下面的code test.txt的內容為 1,2.3,4,5 6,7,8,9,10
 TStringList *Source=new TStringList();
 TStringList *Data=new TStringList();
 Source->LoadFromFile("test.txt");
 Memo1->Lines->LoadFromFile("test.txt");
 for(int i=0; iCount; i  )
  {
   Data->CommaText=Source->Strings[i];
   for(int j=0; jCount; j  )
   {
    Memo2->Lines->Add(Data->Strings[j]);
   }
  }
 delete Source;
 delete Data;
 
P.S: 新問題請開新標題,不然問題難以歸類 順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~ 發表人 -
心的停機坪
一般會員


發表:31
回覆:41
積分:14
註冊:2003-07-14

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-07-29 23:18:20 IP:163.13.xxx.xxx 未訂閱
taishyang您好: 謝謝您的幫忙... 不好意思造成您的困擾... ~我是個新手,若有不當之處,還望耐心指教~
------
~我是個新手,若有不當之處,還望耐心指教~
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-07-29 23:28:19 IP:140.135.xxx.xxx 未訂閱
心的停機坪您好:      因為希望能將問題有效率的歸類,所以若是與原題目相差太多的問題   希望能開新的標題,將來使用站上[搜尋]功能時才能找到有用的資訊   希望您不要介意    順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
心的停機坪
一般會員


發表:31
回覆:41
積分:14
註冊:2003-07-14

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-07-29 23:47:45 IP:163.13.xxx.xxx 未訂閱
taishyang您好: 我明白了...謝謝您 ps:您真是客氣...^_^ ~我是個新手,若有不當之處,還望耐心指教~
------
~我是個新手,若有不當之處,還望耐心指教~
系統時間:2024-05-18 5:09:10
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!