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

如何把txt檔讀取後再分為數個文件儲存?

 
scorpiotang
一般會員


發表:4
回覆:0
積分:0
註冊:2006-08-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-08-21 10:37:31 IP:202.71.xxx.xxx 未訂閱

如果我在一個文件內,把我想要的東西抽出了,有220行字串。
我現在想程式可以自動的吧讀取到的220行,分開成50行一個的檔用一個button來save
檔案的名字是xxx0.txt xxx1.txt xxx2.txt xxx3.txt
不足五十個的當五十個計算

以下是程式碼:

String tmp, email, saemail, sfname;
int lineno, len, tolm, sfnum;
TStringList* load_file = new TStringList();
load_file->LoadFromFile(Edit1->Text);//Load file用
lineno = load_file->Count;//Cheak檔案的行數
tolm = 0;
sfnum = 0;
for(int i=1; i {
tmp = load_file->Strings[i];
len = strlen(tmp.c_str());
if( tmp.SubString(1, 6)== "E-mail")//Cheak以E-mail行頭的行數
{
tolm ;
if (tolm%StrToInt(edt_eno->Text)!=0)//把Cheak到的字行,以自己想一個檔有多少字行來除
{
sfnum = tolm/StrToInt(edt_eno->Text);
sfname = sfnum;
sfnum ;
}
else
{
sfnum = tolm/StrToInt(edt_eno->Text);
sfname = sfnum;
sfnum ;
}
email = Trim(tmp.SubString(8, len));
saemail =email "\r\n";
}
}
TStringList* csvemail = new TStringList();
AnsiString semail="";
csvemail->Add(saemail);
sa_email->FileName = edt_e_paht->Text "Email" sfname ".cvs";
csvemail->SaveToFile(sa_email->FileName);
ShowMessage(tolm);
delete csvemail;
csvemail = NULL;
delete load_file;
load_file=NULL;
ShowMessage("File Saved");

系統時間:2024-05-13 7:59:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!