File Teks

Disusun Oleh Dosen : Elisawati, S.Kom, M.Kom

Pascal mempunyai dua macam file. File teks dan file binary. Bagian ini membicarakan file teks. Fiel teks tidak mempunyai besar yang eteap. Untuk menandai akhir suatu file, komputer menempatkan karakter khusus end-of-file () setelah karakter yang paling akhir. Untuk menandai akhir suatu baris, komputer menampatkan karakter khusus end- of-line pada akhir baris.

Dalam perogram yang interaktif biasanya kita menuliskan nilai sentinel untuk menandai akhir suatu baris atau file. Sebagai contoh, pecahan program semacam ini digunakan membaca suatu nama (kumpulan karakter) dengan nilai sentinel titik.

Read(nama);
While(nama<>’.’) Do
    Read(nama);

Dalam file teks, untuk mengetes apakah baris sudah berganti, kita bias menggunakan fungsi eoln. Berikut ini pecahan program diatas yang ditulis deng fungsi eoln.

While not EoLn Do
    ead(nama);

Untuk mengetes apakah akhir suatu file, kita bias menggunakan fungsi eof seperti berikut ini.

While not Eof(InfileData) Do
Begin
    While Not EoL Do
    Read(Nama);
    Readln(Gaji);
End;

InfileData diatas merupakan nama file yang bertipe teks. Program diatas membaca variable-variabel Nama dan gaji dalam File Infile. Apabila akhir baris dtidak ditemui, nilai Eoln berarti false yang berarti program membaca variable nama. Setelah akhir baris ditemui, nilai EoLn menjadi true dan program membaca variable berikutnya yaitu Gaji. Setelah akhir file ditemui, nilai Eof menjadi true dan program keluar dari loop.