0

我需要做的就是解析一个再见文件以将内容读取到屏幕上,但我不知道如何解析,谁能给我一些粗略的编码,我可以在其中输入文件地址或任何关于如何解析的想法?

这是我目前所在的地方

program Reordering;

uses crt;

  var f, i: text;
  s: string;
  skyf: array [1..256] of byte;
  j: integer;
  result: array [1..256] of char;

begin
  assign(f, 'C:\Users\Peter John Arnold\Documents\Coding\EDID1.LOG_JVC_TV_Model_LT19DK8ZJ.file');
  j := 1;
  Assign(i, 'C:\Users\Peter John Arnold\Documents\Coding\TV File\TvFile.txt');
  rewrite(f);
  reset(f);
  rewrite(i);

  repeat
    readln(f, skyf[j]);
    Result[j] := char(skyf[j]);
    Append(i);
    write(i, (skyf[j]));
    j := j + 1;
  until EOF(f);
  close(f);
  close(i);
  s := result[1..256];
  write(s);
  readln();
end.
4

1 回答 1

0

解析二进制文件:

  1. 从文件中读取字节数组(如何读取和更改二进制文件
  2. 将从文件获得的字节数组转换为字符串(每个字节到相应的 ASCII 字符 - “chr”-function)
  3. 使用现有的解析库(例如“regexpr”单元)

注意:使用“AnsiString”类型

于 2012-08-08T18:01:07.357 回答