文本文件处理的问题的怪异问题,在线等
function TsmtFileEncoder.Encode:boolean;
var sf,tf: TextFile;
strLine, strtemp: string;
begin
count:=0;
result:=false;
if FileExists(FileName) then //如果文件存在
begin
//加载要处理的文件
AssignFile(tf,FileName);
Reset(tf);
//加载转换后的文件
AssignFile(sf,OutPutFileName);
if FileExists(OutPutFileName) then
Append(sf)
else
ReWrite(sf);
While not(eof(tf)) do
begin
ReadLn(tf,strTemp);
strline:=doSome(strTemp);
WriteLn(sf,strline);
end;
......//关闭文件等,我就没写了,问题不在那里
end;
问题时要处理的原文件有900多mb,处理到大概写目的文件写到100多MB时此过程正常退出了,即认为原文件已经到eof 了,难道TEXTFILE有大小限制?
问题点数:100、回复次数:6Top
1 楼cuilj(一云忆水)回复于 2005-09-01 15:29:14 得分 0
顶一下,确实没遇到过。Top
2 楼hthunter(茫茫然时光飞逝)回复于 2005-09-01 15:40:06 得分 0
900多M的textfile?-_-#Top
3 楼xixuemao(钱不是问题,问题是没钱)回复于 2005-09-01 15:48:43 得分 0
900多M的textfile?-_-#
同感!~Top
4 楼qzxyd(只会种菜)回复于 2005-09-01 16:28:58 得分 0
900多M的testfile 是不是太大啊。近量分成小文件来处理吧Top
5 楼firstrose(kots)回复于 2005-09-02 16:40:01 得分 0
你看看那个地方是不是有文件结束符$1ATop
6 楼qizhf(齐齐)回复于 2005-09-02 20:10:15 得分 0
900多M,我看见前面晕倒了一大堆哥们啊Top




