file ......

FILE TEXT

File yang telah dibahas sebelumnya adalah file bertipe ,, bagaimana dengan file text ?? file text tidak jauh berbeda dengan file bertipe ,tetapi ada perbedaan dalam membuat suatu sintax,, di file bertipe mencetak data harus menggunakan perintah write.. anda tidak bisa menggunakan writeln,,, tetapi di file text ,kita dapat membuat dua perintah diatas ,baik anda membuatnya dengan membuat write(horizontal) ataupun writeln(vertical)

Berikut listing program …

uses wincrt;

var fhuruf:text;

begin

writeln('merekam data ke file tex');

assign(fhuruf,'C:\pascal\huruf1.txt');

rewrite(fhuruf);

writeln(fhuruf,'A');

writeln(fhuruf,'B');

writeln(fhuruf,'C');

close(Fhuruf);

writeln('selesai');

end.

Nah,, diatas adalah cara membuat suatu program file text,, dari kata assign kita mengaitkan file huruf1,txt ke variable Fhuruf …

Setelah itu ,ada sintax rewrite ,,, apaaan tu>:>?? Yah,,,itu gunanya untuk mengisi kembali fhuruf ,, tpi ingat data yang ada di fhuruf sebelumnya akan hilang ,, dan akan digantikan dengan  A,B,C yang ditulis dengan vertikall….. nah setelah itu tutup deh …. File na …

Coba … deh buka file1..txt na …. Kalo udah ada  tulisan A,B dan C maka berhasil tu….

Nah… pas kita jalnin ne program maka dipascal hanya akan ada tulisan Selesai…

DONK??? Gak Y??? MOga DOnk deh..  HEHEHEH

Sekarang kita masuk kebagian menambah isi file text ,, dengan tidak merubah isi seblumnya …berikut,,, sintax na ….

Listing program

uses wincrt;

var fhuruf:text;

begin

writeln('merekam data ke file tex');

assign(fhuruf,'C:\pascal\huruf1.txt');

append(fhuruf);

write(fhuruf,'X');

write(fhuruf,'Y');

write(fhuruf,'Z');

close(fhuruf);

writeln('selesai');

end.

Nah… sekarang file text yang dibuat akan dituliskan dengan horizontal karena penulisan write … dan data yang tadinya sudah ada ,, tidak akan terhapus karena adanya perintah Append ,, yang dimana menambahkan isi file text dengan huruf X,Y,Z.

Sekarang ,, memasukkan isi kedlam file udah bisa ,, nah ,,, sekarang bagaimana seh cara agar isi file tampil di program pascal yang kita buat ….???? Berikutini adalah contoh listing sederhana nya ….

uses wincrt;

var fhuruf:text;

baris:string;

begin

writeln('membaca data file teks');

assign(fhuruf,'C:\pascal\huruf1.txt');

reset(fhuruf);

while not eof(fhuruf) do

begin

readln(fhuruf,baris);

writeln(baris);

end;

close(fhuruf);

writeln('selssai....');

end.

FINISh J

Posted in: file