得到“”“I”使用 delphi 从 .log 文件读取时作为输出数据

Question

我正在尝试从 .log 文件读取数据并处理其内容。日志文件是由另一个应用程序创建的。当我在Delphi中使用readln命令并在备忘录中显示文件内容时，我只从具有超过6000行数据的文件中获取一行数据（ÿþI）。

    procedure TForm1.Button1Click(Sender: TObject);
    Var
        F : TextFile;
        s : string;
    begin
        AssignFile(F, 'data.log');
        Reset(F);

        while not Eof(F) do
        begin
            Readln(F, s);
            Memo1.Lines.Add(s);
        end;
    end;

有谁知道可能是什么问题？

Answer 1

正如 Michael 所说，您正在处理 UTF-16 编码的文件，因此您必须手动加载和解码它。网上有各种基于 WideString 的类似 TStringList 的类，或者 Borland 在 WideStrings 单元中有自己的实现，请尝试使用其中之一它们而不是 Pascal 文件 I/O，例如：

procedure TForm1.Button1Click(Sender: TObject);
var
  SL : TWideStringList;
  I: Integer;
  s : string;
begin
  SL := TWideStringList.Create;
  try
    SL.LoadFromFile('data.log');
    Memo1.Lines.BeginUpdate;
    try
      for I := 0 to SL.Count-1 do
        Memo1.Lines.Add(SL[I]);
    finally
      Memo1.Lines.EndUpdate;
    end;
  finally
    SL.Free;
  end;
end; 

或者：

uses
  .., WideStrings;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL : TWideStringList;
begin
  SL := TWideStringList.Create;
  try
    SL.LoadFromFile('data.log');
    Memo1.Lines.Assign(SL);
  finally
    SL.Free;
  end;
end; 

或者，安装 TNTWare 或 TMS 的副本，它们都具有支持 Unicode 的组件。然后您应该能够将 .log 文件直接 LoadFromFile() 放入您选择使用的 Unicode Memo 组件中。

Answer 2

您正在处理一个 UTF-16 文件（如前两个字符所示），而 Delphi 2007 没有为此做好准备，因此它会停止读取第一个 $0 字节，因为 Readln 认为线路到此结束。

您需要使用不同的方法来读取文件，并且必须读取 WideString（并且可能将其转换为字符串）。由于 Delphi 2007 不具备正确的 Unicode 功能，我想您还必须自己进行行分割，但我这里没有可用的功能，所以我不能完全确定。

Answer 3

正如我在对 Remy 的回答的评论中提到的，在 WideStrings 中声明了一个 TWideStrings/TWideStringList：

uses WidesStrings;
//...
var
  Ws: TWideStrings;
  s: string;
  i: Integer;
begin
  Ws := TWideStringList.Create;
  try
    ws.LoadFromFile('C:\temp\UniTest.txt');
    for i := 0 to ws.Count - 1 do
    begin
      s := ws[i];
      Memo1.Lines.Add(s);
    end;
  finally
    ws.Free;
  end;
end;

但请注意，这不是 TStrings 后代，因此它不能直接分配给像 TMemo 这样的 TStrings 属性.线，你得一一添加。

它似乎也无法处理 BOM（您的 ÿþ）或大端编码