Pascal‎ > ‎

File Text

WARNING / PERHATIAN

  • Bekerja dengan file dapat menghapus file penting Anda. Anda harus yakin dulu dengan maksud setiap karakter dari perintah Anda sebelum mencoba menjalankannya. Tidak ada tombol UNDO di DOS.
  • Backup file Anda secara teratur, terutama kode sumber pascal Anda. Ukurannya cuma beberapa kilobytes, tapi Anda akan sangat sedih sekali saat harus mengetik ulang semuanya.
  • Gunakan fitur Backup di WinRar, copy kode sumber Anda ke drive lain, ke folder lain, ke flashdisk, ke CD secara reguler.
  • Better safe than sorry

Introduction

Untuk membuat sebuah variable file teks, Anda cukup menggunakan perintah:

var
   F : text;

Anda dapat mengubah nama F dengan sesuatu yang lain, selagi masih valid sebagai nama suatu variable.



TEXT01.pas

Kodesumber ini menjelaskan penggunaan perintah
assign(F,s);

yang berarti meng-assign a.k.a menunjukkan bahwa file teks yang akan kita otak atik adalah isi variable string s.

Logic progam kita adalah:
  • membersihkan layar dengan perintah
    clrscr;
  • menuliskan tulisan Input file name to read : di layar dengan perintah
    write('Input file name to read : ');

  • meminta user untuk memasukkan nama file yang akan dibaca oleh program kita dengan perintah
     
    readln(s);
  • menunjukkan bahwa F sekarang merupakan sebuah file yang namanya sesuai dengan apa yang diisi oleh pengguna (isi variable s, dengan perintah:
    assign(F,s);

  • membuka file dengan perintah
    reset(F);

    setelah perintah ini, posisi kursor kita ada di awal file F
  • membaca file baris per baris hingga EOF (End of File) a.k.a kursor kita sampai ke ujung akhir file dengan menyimpan setiap baris file F ke variable s kita, kemudian menuliskan isi s tadi ke layar.
  • menutup file

TEXT02.pas

Sama seperti TEXT01.pas, tapi kali ini, setiap kita ingin mencetak s, kita tuliskan dahulu nomor baris kita. Perhatikan variable i berisi nomor baris dan ditambahkan/di-increment setiap saat kita membaca setiap baris.
Perhatikan juga penggunaan i:3, yang artinya mencetak i dengan 3 spasi, sehingga lebih rata.

TEXT03.pas

Penggunaan Error Handling, sehinga apabila ternyata terjadi kesalahan dalam membuka file, program tidak langsung menutup. Bandingkan dengan dua program kita sebelumnya jika ternyata file yang dicoba baca tidak ada. Dua program sebelumnya akan crash.

Perhatikan bahwa {$I-} dan {$I+} bukanlah komentar!

TEXT04.pas

Perhatikan: program ini akan MEMBUAT FILE BARU a.k.a MENIMPA file lama jika Anda memasukkan nama file yang sudah ada.

Append.pas

Demo menimpa file, dan juga demo membuka file secara append (untuk menambah isi file)

Rewrite.pas

Demo membuat file baru dengan perintah rewrite
ċ
TEXT01.pas
(0k)
Muhammad Jazman,
15 Dec 2010, 07:12
ċ
TEXT02.pas
(0k)
Muhammad Jazman,
15 Dec 2010, 07:12
ċ
TEXT03.pas
(1k)
Muhammad Jazman,
15 Dec 2010, 07:12
ċ
TEXT04.pas
(0k)
Muhammad Jazman,
15 Dec 2010, 07:12
ċ
append.pas
(0k)
Muhammad Jazman,
15 Dec 2010, 07:12
ċ
rewrite.pas
(0k)
Muhammad Jazman,
15 Dec 2010, 07:12
Comments