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

寫入文字檔的問題

答題得分者是:taishyang
kraen4468
初階會員


發表:66
回覆:112
積分:35
註冊:2003-12-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-05 16:15:43 IP:61.222.xxx.xxx 未訂閱
請問大大誰知道怎麼寫入文字檔而已可以一行一行記錄下來 我是知道有一個辨法可是很麻煩 char buff[65535]; int f; String temp; ifstream infile; infile.open("12.txt"); if(!infile) return;while(!infile.eof()) { infile.getline(buff,sizeof(buff)); temp=buff; //if (Trim(temp)=="") continue; //StrToInt(temp)+2; temp="tyyff";//IntToStr(f); } infile.close() ; ofstream outfile("12.txt"); outfile<
taishyang
站務副站長


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-05 16:37:15 IP:140.135.xxx.xxx 未訂閱
kraen4468您好: 請參考下面連結版規說明,讓您的程式碼更方便閱讀 < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=42706">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=42706 順心
kraen4468
初階會員


發表:66
回覆:112
積分:35
註冊:2003-12-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-01-05 16:49:21 IP:61.222.xxx.xxx 未訂閱
可能我表答方試不好~請大大多多包容 我想要寫的是可以touch按鈕就寫入.txt 例如vb寫的一樣意思
    Open "c:\test.txt" For Append As #1        
        Write #1, Now()         
    Close #1 
taishyang
站務副站長


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-01-05 16:56:37 IP:140.135.xxx.xxx 未訂閱
kraen4468您好:
引言: 我想要寫的是可以touch按鈕就寫入.txt
您可以參考下面的code
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList* TXT = new TStringList();
 TXT->Add("1");
 TXT->Add("2");
 TXT->Add("3");
 TXT->SaveToFile("文字檔.txt");
 delete TXT;
}
順心
kraen4468
初階會員


發表:66
回覆:112
積分:35
註冊:2003-12-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-01-05 17:05:47 IP:61.222.xxx.xxx 未訂閱
請問大大: 可以寫像這樣的嗎 "2004/1/5 上午 10:59:35 === Audio Test Passed === " "2004/1/5 上午 11:00:40 === Audio Test Passed === " "2004/1/5 下午 03:05:59 === Audio Test Passed === " "2004/1/5 下午 03:06:08 === Audio Test Passed === " 因為我想記錄下來所以不能洗掉之前的 還有加日期跟時間 謝謝大大~
taishyang
站務副站長


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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-01-05 17:24:14 IP:140.135.xxx.xxx 未訂閱
kraen4468您好: 那試試下面的code
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 AnsiString Data = Date() Time();
 Data = Data "===Audio Test Passed===";
 TStringList* TXT = new TStringList();
 if (FileExists("文字檔.txt"))
 {
   TXT->LoadFromFile("文字檔.txt");
   TXT->Add(Data);
   TXT->SaveToFile("文字檔.txt");
 }
 else
 {
   TXT->Add(Data);
   TXT->SaveToFile("文字檔.txt");
 }
 delete TXT;
}
順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
kraen4468
初階會員


發表:66
回覆:112
積分:35
註冊:2003-12-04

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-01-05 17:32:02 IP:61.222.xxx.xxx 未訂閱
謝謝Taishyang 我可以了 以後希望多多跟您學習
taishyang
站務副站長


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

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-01-05 17:33:53 IP:140.135.xxx.xxx 未訂閱
kraen4468您好:
引言: 以後希望多多跟您學習
我很嫩的,站上有相當多資料供您學習
系統時間:2024-11-25 12:30:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!