如果我在一個文件內，把我想要的東西抽出了，有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");