6

问题：我最近购买了一台 1989 年的 IBM PS2，我正在尝试通过软盘将大文件从我较新的基于 UNIX 的机器移动到这台 IBM。我有一个 bash 脚本，可以将我的文件分成 ~2MB 块，现在我正在尝试编写一个 pascal 程序来在这些文件被传输后重建它们。

我无法在这台计算机上找到正确的文件读/写方法。我已经尝试过各种 pascal 教程网站，但它们都是针对较新版本的（我在 Pascal 中使用文件处理的网站）。我能够创建一个空文件（如下所述），但我无法写入它。有谁知道这种计算机的正确帕斯卡读写方法？

我知道这是一个晦涩难懂的问题，所以提前感谢您能给我的任何帮助！

详情：

当前正确创建文件的测试代码是这样的：

program testingFiles;
uses Crt, Win;

const FILE_NAME = 'testFile.txt';
var outFile : File;

begin
writeln('creating file ...');
Assign(outFile, FILE_NAME);
rewrite(outFile);    

end.

这是一些不起作用的测试代码，方法append()和close()找不到：

program testingFiles;
uses Crt, Win;

const FILE_NAME = 'testFile.txt';
var outFile : File;

begin
writeln('creating file ...');
Assign(outFile, FILE_NAME);

append(outFile);
writeln('this should be in the file');
close(outFile);

end.

这是一个也不起作用的替代方法，该writeln()方法只打印到终端。但否则这确实编译。

program testingFiles;
uses Crt, Win;

const FILE_NAME = 'testFile.txt';
var outFile : File;

begin
writeln('creating file ...');
Assign(outFile, FILE_NAME);

rewrite(outFile);
writeln('this should be in the file');
close(outFile);

end.

系统：如前所述，这是一台 1989 年的IBM PS2。

  • 它安装了 Windows 3.0，还可以运行 DOS 和 MS-DOS 终端。
  • 它具有 Microsoft SMARTDrive 磁盘缓存版本 3.06
  • 它安装了 Turbo Pascal 5.5，我将turbo其用作我的命令行 pascal 编辑器。（自述文件最后一次更新是在 1989 年）
  • 它安装了 Turbo 调试器 1.5。

再说一次，我知道这是一个晦涩难懂的问题，所以提前感谢您能给我的任何帮助！

4

2 回答 2

2

我的帕斯卡记忆非常生疏......但正如其他人指出的那样，这是你应该考虑的：

program testingFiles;
uses Crt, System;
//No need of importin Win Win is for Windows enviorment, however I'm not sure if you need to use System, Sysutils or was there a Dos class???

const FILE_NAME = 'testFile.txt';
var outFile,inFile : File;

begin
writeln('creating file ...');
Assign(outFile, FILE_NAME);
rewrite(outFile);

//Now Open the first chunk of the file you want to concatenate

AssignFile(inFile, "fisrt_chunk.dat");
reset(inFile);

while not eof(inFile) do
 begin
   readln(inFile, s);
   writeln(outFile,s);
 end;
close(inFile);

end.

我没有再安装 Turbo/Borland Pascal，所以我无法自己编译它，不保证它会工作它更像是一个想法：

  • 要记住的关键点，readln 和 writeln 总是会在字符串/行的末尾添加一个 return，另一方面，read 和 write 会将光标留在任何地方，而不会跳转到新行。
于 2016-02-17T22:30:21.680 回答
1

这是一些旧的 Delphi 代码，它们至少应该接近语法兼容，这将为您提供复制文件的要点（在错误的情况下进行有限的错误检查和资源处理 - 我将把它留给您作为练习）。它可以复制二进制和文本内容。

program Project2;

uses
  SysUtils;

var
  NumRead, NumWritten: LongInt;
  pBuff : PChar;
  SrcFile, DstFile: File;
const
  BuffSize = 2048;  // 2K buffer. Remember not much RAM available    

  InFileName = 'somefile.txt';
  OutFileName = 'newfile.txt';
begin
  NumRead := 0;
  NumWritten := 0;

  AssignFile(SrcFile, InFileName);
  AssignFile(DstFile, OutFileName);

  // Allocate memory for the buffer
  GetMem(pBuff, BuffSize);

  FileMode := 0;            // Make input read-only
  Reset( SrcFile, 1 );

  FileMode := 2;            // Output file read/write
  Rewrite( DstFile, 1 );

  repeat
    // Read a buffer full from input
    BlockRead(SrcFile, pBuff^, BuffSize, NumRead);

    // Write it to output
    BlockWrite(DstFile, pBuff^, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);

  // Cleanup stuff. Should be protected in a try..finally,
  // of course.
  CloseFile(SrcFile);
  CloseFile(DstFile);
  FreeMem(pBuff);
end.

上面的代码目前在 Delphi 2007 下编译（我安装的最旧的版本）。（请参阅下面的注释。）

作为旁注，这是来自我为 16 位 Delphi 1 编译的一些代码的存档版本，并在 90 年代中后期扩展为也在 32 位 Delphi 2 下编译。它仍然在我的源代码库中的一个旧标记分支中徘徊。我想我需要做一些修剪。:-) 我清理它以删除一些其他功能并{$IFDEF WIN32} ... {$ELSE} ... {$ENDIF}在发布之前删除了很多东西。）

于 2016-01-29T23:44:37.220 回答