全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:846
推到 Plurk!
推到 Facebook!

StringGrid 再問

答題得分者是:gemi0305
arthurxu
一般會員


發表:9
回覆:8
積分:3
註冊:2003-09-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-10 10:21:17 IP:218.167.xxx.xxx 未訂閱
各位前輩 安安喔     我使用下列程式來讀入一個 文字檔      TStringList *Tempfile=new TStringList;
  Tempfile->LoadFromFile("d:\\test.txt");
  StringGrid->RowCount=Tempfile->Count;
  for(int i=0; iCount; i  )
    {
      TStringList *Temptext=new TStringList;
      Temptext->CommaText=Tempfile->Strings[i];
      if (StringGrid->ColCountCount) StringGrid->ColCount=Temptext->Count;
      for(int j=0; jCount; j  )
        {
          StringGrid->Cells[j][i]=Temptext->Strings[j];
        }
      delete Temptext;
    }
  delete Tempfile;    昨天在測試的時後 又發生了 一個問題 就是使用    Temptext->CommaText=Tempfile->Strings[i];    去讀入字串時 假如某個欄位中間有半形空白 如 "I Love BCB"
那會被分割成 3 欄,假如我想以 \t 才斷欄 (就是不管半形的空白)
該如何判斷,因為要對齊的關係,每筆資料中間的 \t 數量不定
(可能第一筆資料欄與欄中間以 1 個 \t 分開,第二筆有 2 個 \t)    
曾經在某本書看過一句話 (記不太清楚了,可能文字有錯但意思一樣) 在程式設計的領域中,可以滿足你無限的想像空間;但是在你學會走之前,想飛想都不要想 目前我只是在學習爬行的階段,連走都走不穩 @@
------
曾經在某本書看過一句話 (記不太清楚了,可能文字有錯但意思一樣)

在程式設計的領域中,可以滿足你無限的想像空間;但是在你學會走之前,想飛想都不要想

目前我只是在學習爬行的階段,連走都走不穩 @@
gemi0305
版主


發表:81
回覆:564
積分:629
註冊:2003-05-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-10 22:19:47 IP:61.224.xxx.xxx 未訂閱
之前的程式: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37237 來,我把你自己寫的程式加了一段,試試看 遇到幾個\t都沒關係 < class="code"> TStringList *Tempfile=new TStringList; Tempfile->LoadFromFile("c://Test.txt"); StringGrid->RowCount=Tempfile->Count; int TempCol=0; for (int i = 0;iCount;i ) { String Temptxt=Tempfile->Strings[i]; Temptxt.Insert("\t",Temptxt.Length() 1); while (!Temptxt.IsEmpty()) { if (Temptxt.SubString(1,1)=="\t") Temptxt.Delete(1,1); else { StringGrid->Cells[TempCol][0]=Temptxt.SubString(1,Temptxt.Pos("\t")); Temptxt.Delete(1,Temptxt.Pos("\t")); if (StringGrid->ColCountColCount=TempCol; TempCol=TempCol ; } } } 國泰平安
系統時間:2024-06-15 23:16:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!