我需要做的就是解析一个再见文件以将内容读取到屏幕上,但我不知道如何解析,谁能给我一些粗略的编码,我可以在其中输入文件地址或任何关于如何解析的想法?
这是我目前所在的地方
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.