一个文本文件用内存映射打开后，如何一行一行地进行读取？(50分)

星空 · 2003-03-20

如题。因为每一行要进行处理，所以只能一行一行地读。

cwmdelpher · 2003-03-20

TStream 只对字节流读写，不管这些字节的含义的，你可以用 TextFile 类型的文件格式 读写文本文件，下面是 AssignFile 函数帮助中的例子： var   F: TextFile;   s: string; begin   if OpenDialog1.Execute then  //选择文件   begin     AssignFile(F, OpenDialog1.FileName);  //将 F 变量与指定文件关联     Reset(F);           //打开文件     Readln(F, s);       //读出第一行     Edit1.Text := s;     CloseFile(F);       //关闭文件   end; end; 还有 ReWrite,Writeln 等函数可以写入一行。

cwmdelpher · 2003-03-20

如果你想一次操作一行，可以用 TStringList 读入文件后就自动按照里面的回车换行分好行了： var   s: TStringList;   ss: string; begin   s := TStringList.Create;   s.LoadFromFile('abc.txt');   ss := s.Strings[0];   showmessage('这就是第1行：' + #13#10 + ss);   s.Free; end;

cwmdelpher · 2003-03-20

讲一下操作系统文件读行的原理了: 内存中开辟二个Buffer,Buf1, Buf2，打开文件读一个块到Buf1, 用串搜索算法找到<CR><LF>或找到<EOF>，遇到<EOF>结束算法。若找到，把开始 制针到目前位置之间的字节复制到Buf2中，Buf2中就是一行，若找不到，先把 Buf1完全复制到Buf2中,超过255个字节就当一行。没超过把剩余的复制到Buf2， 再从文件流中读一块到Buf1中，重复该算法。

星空 · 2003-03-20

谢谢cwmdelpher。因为文件比较大，而要求的速度要快，所以想知道速度最快的方法是什么。

爱元元的哥哥 · 2003-03-20

最快就是自己搜索换行符

cwmdelpher · 2003-03-20

多少行？？如果有5000行，如果算每行80个字符，那么5000*80=400000=400K 用FileStream读进去，所需时间可以忽略！！

星空 · 2003-03-20

大概1000000行吧，还可能更多。

晨曦工作室 · 2003-03-20

如果像这样的文本怎么解决呢 123.34    345.6    333.33    444.444 444.5     456.5    334.56    4454.5 如何取得数据

星空 · 2003-03-21

发分了！

一个文本文件用内存映射打开后，如何一行一行地进行读取？(50分)

星空

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

星空

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

星空

Unregistered / Unconfirmed

晨曦工作室

Unregistered / Unconfirmed

星空

Unregistered / Unconfirmed

Similar threads