文字檔(.txt)中，每N筆資料換一行 |
|
答題得分者是：paf
|
|
clarkkent
初階會員   發表：29 回覆：83 積分：32 註冊：2003-01-23 發送簡訊給我 |
各位先進大家好： 小弟這兒有一個問題想請教各位先進
我的文字檔(1.txt)中有M筆資料(M可能為上百萬筆)，想將資料每N筆加入一分行動作，且開頭資料設定為其他顏色，該如何下手呢？
結果存成2.txt 【例】 資料內容(M=16)
123456789abcdefg 當N=100時(N大於原始資料內容M)，變成
123456789abcdefg(顯示全部) 當N=7時，變成
1234567(每七個資料換一行)
89abcde
fg 當N=2時，變成
12(每二個資料換一行)
34
56
78
9a
bc
de
fg 煩請各位先進賜教
謝謝您
------
JUST DO IT |
|
gemi0305
版主 發表：81 回覆：564 積分：629 註冊：2003-05-11 發送簡訊給我 |
|
|
paf
初階會員 發表：36 回覆：70 積分：41 註冊：2002-12-27 發送簡訊給我 |
引言: 各位先進大家好： 小弟這兒有一個問題想請教各位先進 我的文字檔(1.txt)中有M筆資料(M可能為上百萬筆)，想將資料每N筆加入一分行動作，且開頭資料設定為其他顏色，該如何下手呢？ 結果存成2.txt 【例】 資料內容(M=16) 123456789abcdefg 當N=100時(N大於原始資料內容M)，變成 123456789abcdefg(顯示全部) 當N=7時，變成 1234567(每七個資料換一行) 89abcde fg 當N=2時，變成 12(每二個資料換一行) 34 56 78 9a bc de fg 煩請各位先進賜教 謝謝您 |
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
clarkkent, 您好
如前二位前輩所言，txt檔無法對字型及字型顏色做變更。
我用RichEdit元件做了一個類似功能的Project，
但是並沒有另存到其他檔案，只做顯示而已。
供您參考看看。
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35027 =================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之
|
|
clarkkent
初階會員 發表：29 回覆：83 積分：32 註冊：2003-01-23 發送簡訊給我 |
|
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
clarkkent, 您好
引言:在此想請教各位的是，如果資料是用空格分開的話 那是不是可以設定一個count來計算空格數，再根據這個來判別是否資料筆數符合需求可以的，但是如果您將資料透過RichEdit1的分行處理後，可以直接用RichEdit1->Lines->Count的指令得到目前的資料分了幾行。 我之前的程式速度比較慢是因為：我用兩個for迴圈處理資料，一個處理資料的分行，一個處理顯示字型的顏色。所以等於花了兩倍的時間。(或許將資料顯示到RichEdit1裡及顯示字型顏色都會影響速度) 以下的code是透過RichEdit1將txt檔案的資料讀入，再將資料分行，然後另存到硬碟裡。供您參考看看。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int M, N, i, j;
char *buf;
String str; RichEdit1->Clear();
if(OpenDialog1->Execute())
{
TMemoryStream *ms = new TMemoryStream();
ms->LoadFromFile(OpenDialog1->FileName);
M = ms->Size;
N = Edit1->Text.ToInt();
buf = (char *)ms->Memory;
buf[M] = 0x00;
RichEdit1->Text = buf;
str = buf;
if(N < M)
{
j = M / N;
for(i = 0; i < j 1; i )
RichEdit1->Lines->Strings[i] = str.SubString((i * N 1), N) "\r\n";
buf = RichEdit1->Text.c_str();
ms->Clear();
ms->Write(buf, RichEdit1->Text.Length());
ms->SaveToFile("C:\\RichEditTest2.txt");
}
delete ms;
}
}
=================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之
|
|
paf
初階會員 發表：36 回覆：70 積分：41 註冊：2002-12-27 發送簡訊給我 |
引言: 在此想請教各位的是，如果資料是用空格分開的話 那是不是可以設定一個count來計算空格數，再根據這個來判別是否資料筆數符合需求假設資料為1_2_3_4_5_6_7_8_9_1_2_3_4_5_6_7_8 _指空格
int count=1,space_count=1;
ifstream FILE;
ofstream output;
char ch;
FILE.open("c:\\1.txt",ios::in);
output.open("c:\\2.txt",ios::out);
while((ch=FILE.get())!=EOF)
{
if(ch==' ')
space_count ;
else
{
output.write(&ch,1);
if(count%7==0)
output.write("\n",1);
count ;
}
}
結果space_count為17 ，其實只有16個空格
但您要求以空格來得知資料的筆數
所以space_count的初始值我就設為1
|
|
gofome
一般會員  發表：23 回覆：9 積分：6 註冊：2003-05-14 發送簡訊給我 |
|
|
paf
初階會員 發表：36 回覆：70 積分：41 註冊：2002-12-27 發送簡訊給我 |
引言: 請問一下讀進來3筆資料如 A150.0 B100.5 C50.7 A25.3 B50.7 C75.9 A100.0 B200.05 C300.8 可不可以將每筆資料A,B,C及後面的值分別用三種頻色區分呢 如A150.0為藍色,B100.5藍色,50.7為綠色呢 (A,B,C後面的資料筆數不定,但會用空白隔開,且資料筆數前一定為英文字開頭) 如何把資料show在ListBox或Memo或RichEdit裡呢 忙煩各位,謝謝假設您的資料為 A150.0 B100.5 C50.7 A25.3 B50.7 C75.9 A100.0 B200.05 C300.8
ifstream FILE;
char ch;
AnsiString s;
int CharCount=0;
FILE.open("c:\\1.txt",ios::in);
while((ch=FILE.get())!=EOF)
{ RichEdit1->SelStart=CharCount;
if(ch=='A')
RichEdit1->SelAttributes->Color=clBlue;
else if(ch=='B')
RichEdit1->SelAttributes->Color=clRed;
else if(ch=='C')
RichEdit1->SelAttributes->Color=clGreen;
RichEdit1->SelText=ch;
CharCount++;
}
FILE.close();
完整檔案如下:
http://delphi.ktop.com.tw/loadfile.php?TOPICID=10988817&CC=245763 發表人 - paf 於 2003/08/01 22:51:35
|
發表時間：2003-07-31 22:49:07
IP:211.74.xxx.xxx 未訂閱
系統時間：2025-01-31 1:37:37
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |