Delphi 快速读取TXT 指定行的数据

继上次的问题。在提取了大量的Email 数据后。现在读取数据成了一个问题。今天我取过1~100w的数据。明天我要取100w~200w的数据。在不用数据库的情况下,我搞了一个下午。Delphi Tstringlist 和 textfile 的简单读取是满足不了的。Tstringlist加载不了大数据。普通的textfile 读取指定行,必须循环count到指定行。


想了一下午,然后想到另类点的解决方法。先对齐数据,每行规定一样的长度。比如每行是 255字节。那么100w行就是 255*100w。直接用流seek到相应位置。动手过程中,发现了更加简单的方法。是对齐数据后,配合textfile read实现的。


定义数据结构:

type
  TEmail = packed record
    Address : string[32];
    end;

var
  MyData : file of TEmail;
  Email  : TEmail;

把TXT数据,对齐一下,按照格式生成。

procedure TForm1.btn2Click(Sender: TObject);
var
  txt:TextFile;
  str:string;
begin
  AssignFile(MyData,'NewSave.txt');
  Rewrite(MyData);
  AssignFile(txt,'saved.txt');
  Reset(txt);
  while not Eof(txt) do
  begin
    str := '';
    Readln(txt,str);
    Email.Address := str;
    write(MyData,Email);
  end;
  CloseFile(MyData);
  CloseFile(txt);
  ShowMessage('OK');
end;

然后下面是读写的示例:

{ 读取指定行测试 }
procedure TForm1.btn1Click(Sender: TObject);
var
  txt:TextFile;
  str:string;
begin
  AssignFile(MyData,'NewSave.txt');
  Reset(MyData);
  Seek(MyData,StrToInt(Trim(edt1.Text)));
  Read(MyData,Email);
  ShowMessage(Email.Address);
  CloseFile(MyData);
end;

{ 读取1万行测试 }
procedure TForm1.btn3Click(Sender: TObject);
var
  txt:TextFile;
  str:string;
  i:Integer;
begin
  AssignFile(MyData,'NewSave.txt');
  AssignFile(txt,'10000email.txt');
  Rewrite(txt);
  Reset(MyData);
  Seek(MyData,StrToInt(edt2.Text));
  for I := StrToInt(edt2.Text) to StrToInt(edt3.Text) do
  begin
    Read(MyData,Email);
    Writeln(txt,Email.AddRess);
  end;
  CloseFile(txt);
  CloseFile(MyData);
  ShowMessage('OK');
end;


简单粗暴 快速。

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/MichaelJScofield/article/details/41869785
个人分类: Delphi 个人挫品
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭