ファイルに対する操作:txtファイル@Pascal学習日記を開く

あなたのCP Pascal Editorで次の文章のテストをしてください.
まず、pascalがtxtファイルを読み書きする方法を一例で示す.

Program Salaries;
Var F:Text;
    Salary,max:integer;
    Name:String[20];
    MaxName:String;
    Sex:0..1;
Begin
     Max:=0;
     Assign(F,'E:\Exam\Salary.txt');
     Reset(F);
     While not Eof(F) Do
     Begin
          ReadLn(F,Name,Sex,Salary);
          If (Sex=1) and (Salary>Max) then
          Begin
             Max:=Salary;
             MaxName:=Name;
      End
End;

     Close(F);
     Writeln;
     WriteLn('The highest ladis salary is for Mrs. ',MaxName,'By Value:',Max);
     Writeln;
     Writeln;
     Writeln;
     Writeln;
     WriteLn('Press Enter To Exit');
     ReadLn
End.

コードを実行する前に、E:\Exam\にSalary.txtファイル.txtファイルの内容を以下のように入れて、スペースまたはtabで区切ります.

Peter               0 3500
Helena              1 2000
John                0 0
Natalia             1 7000
Frank               0 7100

プログラムを実行すると、このプログラムは 。解釈を計算しました..txtファイルの中で、1は女性を表し、0は男性を表しています.コードのeofは、end of fileという意味です.Assignは分配、賦課という意味です.

txtファイルの作成

次に最も簡単なことをして、txtファイルを作成して、中に何かを書きます.次のコードを実行してください.

Program Lesson9_Program2;
Var FName, Txt : String[200];
    UserFile   : Text; 
Begin
 FName := 'PASCAL_Textfile';
 Assign(UserFile,'C:\'+FName+'.txt'); {assign a text file} 
 Rewrite(UserFile); {open the file 'fname' for writing}
 Writeln(UserFile,'PASCAL PROGRAMMING');
 Writeln(UserFile,' ,');
 Writeln(UserFile,' :');
 
 Writeln('Write some text to the file:');
 Readln(Txt);
 Writeln(UserFile,'');
 Writeln(UserFile,'The user entered this text:');
 Writeln(UserFile,Txt);
 Close(UserFile);
End.

実行が完了したら、自分のCディスクの下に行って、作成したばかりのファイルを見つけてください.PASCAL_Textfile.txtを見てください.コードを修正して、自分で10分間試して、自分にこのコードを熟知させます.

txtファイルを書き換える

Var UFile : Text;
Begin
 Assign(UFile,'C:\PASCAL_Textfile.TXT');
 ReWrite(UFile); 
 Writeln(UFile,'How many sentences, ' + 'are present in this file?');
 Close(UFile);
End.

元のtxtファイルの後に、(append)内容を追加します。

Var UFile : Text;
Begin
 Assign(UFile,'C:\PASCAL_Textfile.TXT');
 Append(UFile); 
 Writeln(UFile,'append:    hahahahaha, '+
              'oh my gooooooooooooood');
 Close(UFile);
End.

上記のコードを繰り返し実行すると、C:\PASCAL_Textfile.txtファイルの後に新しい内容が追加されます.

append:    hahahahaha, oh my gooooooooooooood

ファイルの削除

Var UFile : Text; { or it could be of 'file' type}
Begin
 Assign(UFile,'C:\\PASCAL_Textfile.txt');
 Erase (UFile); 
End.

ファイルが削除されていることに気づきます.
他の使い方は、このページを参考にすることができます.

最後に、次の操作を行います。

C 新規ファイルfile1.txtに任意に文字を書き込んで保存します.
実行コードは次のとおりです.

program CopyOneByteFile;
 
var
   mychar : string[200];
   filein, fileout : text;
 
begin
   assign (filein, 'c:\file1.txt');
   reset (filein);
   assign (fileout, 'c:\file2.txt');
   rewrite (fileout);
   read (filein, mychar);
   write (fileout, mychar);
   close(filein);
   close(fileout)
end.

Cディスクのfile2.txtの内容を確認します.
上記は操作ファイルの例で、プログラムはDOSの下で実行され、file1.txtの内容を読み出し、file2.txtに書き込まれます.
このプロセスでは、file2.txtが存在しない場合、作成されます.
以下のサイトでは、参考になる例がいくつかあります.http://pascal-programming.info/lesson9.php http://wiki.freepascal.org/Object_Pascal_Tutorial/zh_CN
http://www.tutorialspoint.com/pascal/pascal_variable_types.htm http://wiki.freepascal.org/Lazarus_Documentation/zh_CN http://progopedia.com/implementation/turbo-pascal/https://www.daniweb.com/software-development/pascal-and-delphi/threads/50487/pascal-examples