读取 Pascal 中的整数

Question

我用的是帕斯卡。我在处理读取文件时遇到问题。

我有一个包含整数的文件。我读取文件的帕斯卡是：

read(input, arr[i]);

如果我的文件内容是 1 2 3 那么它很好，但如果它是 1 2 3 或 1 2 3（在此处输入) （末尾有一个空格或空行）那么我的 arr 将是 1 2 3 0。

Answer 1

您可以将字符串读入临时文件，然后在转换之前修剪它。

提及诸如您正在使用什么平台上的 Pascal 类型之类的基础知识并没有什么坏处，以便人们可以给出具体的答案（正如文章所指出的，在许多 Pascal 中没有一个很好的 OOTB 方式）

Answer 2

据我所知，read字面上将文件读取为字符流，其中有空格和回车符，但我相信当您读入整数数组时，这些应该被忽略。您的文件实际上在每个数字之间包含空格字符吗？

另一种方法是使用 readLn 并将所需的整数存储为文件中的新行，例如

1

2

3

Answer 3

我已经在 Delphi 2009 控制台应用程序上测试了该问题。这样的代码的

var
  F: Text;
  A: array[0..99] of Integer;
  I, J: Integer;

begin
  Assign(F, 'test.txt');
  Reset(F);
  I:= -1;
  while not EOF(F) do begin
    Inc(I);
    Read(F, A[I]);
  end;
  for J:= 0 to I do write(A[J], ' ');
  Close(F);
  writeln;
  readln;
end.

工作原理与您编写的完全一样。可以使用跳过所有空白字符的 SeekEOLN 函数来改进；下一个代码不会产生错误的附加零：

var
  F: Text;
  A: array[0..99] of Integer;
  I, J: Integer;

begin
  Assign(F, 'test.txt');
  Reset(F);
  I:= -1;
  while not EOF(F) do begin
    if not SeekEOLN(F) then begin
      Inc(I);
      Read(F, A[I]);
    end
    else Readln(F);
  end;
  for J:= 0 to I do write(A[J], ' ');
  Close(F);
  writeln;
  readln;
end.

由于所有这些工作人员只是 Delphi 中的遗产，我认为它必须在 Turbo Pascal 中工作。

Answer 4

如果我记得有一个名为 Val 的字符串函数，它将字符串转换为数字......我对 Pascal 的了解有点生疏（Turbo Pascal v6）

var
   num : integer;
   str : string;
begin
   str := '1234';
   Val(str, num); (* This is the line I am not sure of *)
end;

希望这会有所帮助，
此致，
汤姆.