Penjelasan Tentang FILE
FILE (BERKAS)
File adalah kumpulan byte-byte yang disimpan dalam media penyimpanan. Merupakan komponen yang bertipe data sama, yang jumlahnya tidak tentu, yang dapat ditambah atau dikurangi jika dibutuhkan.
Pointer file adalah bagian yang
menunjuk ke komponen file yang akan diakses (dibaca atau direkam) untuk
keperluan pengaksesan file (akan dibahas kemudian).
File
pada Pascal dikenal dalam 3 jenis, yaitu :
1.
File Text
2.
File bertipe
3.
File
tidak bertipe
Selain kita akan mempelajari tentang
bagaimana membuat sebuah file atau menambahkan isi suatu file, kita dapat pula
melakukan manipulasi File, yaitu :
1.
Menggunakan
parameter
2.
Mengenai
Atribut File
3.
Menghapus
file
4.
Mengubah
nama file
5.
Mengenai
tanggal dan waktu file
6.
Mencari
file
7.
Mengecek
keberadaan file
8.
Memberikan
directory file
1. File Text
1.1. Karakteristik
·
Berisi
data karakter ASCII
·
Tiap
record boleh memiliki panjang yang bervariasi
·
Setiap
record diakhiri tanda EOL (end of Line)
·
Hanya
dapat diakses secara sequensial (berurutan).
·
Isi
filenya dapat dilihat oleh perintah dos type atau editor text
1.2. Membuat file text
Urutan Prosesnya :
1.
Mendeklarasikan
variabel file
Var NmVar:TEXT;
Dengan :
NmVar : Nama variabel file text
2.
Menghubungkan
variabel file dengan nama file
Assign (NmVar, nama file);
Dengan :
NmVar : Nama variabel file text
nama file : Nama file dalam bentuk string,
format 8:3 penamaan dos, ditulis
dalam bentuk string.
3.
Membuat
file text aktif
Rewrite(NmVar);
Dengan :
NmVar : Nama variabel file text yang sudah di- assign
4.
Menulis
ke dalam file text
Write / writeln (NmVar, data
item1, data item 2, …)
Dengan :
NmVar : Nama variabel file text
Data item : text / string yang akan
dituliskan, atau bisa juga berupa isi suatu
variabel
5.
Menutup
file
Close (NmVar);
Dengan:
NmVar : Nama variabel file text
Contoh :
Program
membuat_file_text_namafile_HALLO_TXT;
Uses
crt;
Var
var_teks:TEXT;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Rewrite(var_teks);
Writeln(var_teks,’Hallo…
ini program pertamaku!’);
Writeln(var_teks,’Contoh
file teks’);
Writeln(var_teks,’---------------------------------------’);
Close(var_teks);
End.
1.3. Membaca File Text
Urutan Prosesnya :
1.
Mendeklarasikan
variabel file
Var NmVar:TEXT;
2.
Menghubungkan
variabel file dengan nama file
Assign (NmVar, nama file)
3.
Membaca
isi file dan menampilkannya di layar
While not
eof (NmVar) do
Begin
Read / readln ( NmVar, data item 1, data item 2, … );
Write /
writeln ( data item1, data item 2, … );
End;
4.
Menutup
file
Close (NmVar);
Contoh :
Program
membaca_file_HALLO_TXT;
Uses crt;
Var
var_teks:TEXT;
Pesan:string;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Reset(var_teks);
While
not eof (var_teks) do
Begin
Readln (
var_teks, pesan );
Writeln
(pesan);
End;
Close(var_teks);
End.
1.4. Menambah isi File Text
Urutan Prosesnya :
1.
Mendeklarasikan
variabel file
Var NmVar:TEXT;
2.
Menghubungkan
variabel file dengan nama file
Assign (NmVar, nama file)
3.
Menambah
isi file
Append(NmVar)
4.
Menampilkannya
di layar
Write / writeln (NmVar, data item1, data item 2, …)
5.
Menutup
file
Close (NmVar);
Contoh :
Program
menambah_isi_file_HALLO_TXT;
Uses crt;
Var
var_teks:TEXT;
Pesan:string;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Append(var_teks);
Writeln(var_teks,’Ini
penambahan data file hallo.txt!’);
Writeln(var_teks,’Contoh
file teks’);
Writeln(var_teks,’-----------------------------------------’);
Close(var_teks);
End.
1.5. Metode Pembacaan file oleh Turbo
Pascal
q Menggunakan statemen operasi READ / READLN
q Bergantung pada tipe data variabel yang digunakannya
:
¨ Variabel berjenis numerik (byte,integer,
real)
Ø Tanda batas akhir pembacaan variabel jika
ditemui blank(spasi), EOL (end of line), EOF (End of File) atau TAB.
Ø Jika sebelum membaca data (atau dengan kata
lain tidak ada datanya) pointer pascal menemukan EOL / EOF, maka variabel
tersebut akan diisi NOL.
Ø Jika string yang dibaca oleh variabel
numerik tidak sah, maka terjadi kesalahan I/O : Invalid numerik format.
¨ Variabel berjenis string
Karakter-karakter
file aakan dibaca sampai ditemui EOL / EOF tercapai atau lebih besar dari
ukuran stringnya.
¨ Variabel berjenis Char
Yang dibaca hanya
satu karakter saja.
q Agar pembacaan file sesuai dengan yang
diharapkan, kadangkala perlu kita deklarasikan secara jelas jumlah byte yang
disediakan untuk suatu variabel, atau mesti kita selipkan pencetakan spasi
diantara dua variabel yang akan dibaca.
q Perlu diperhatikan kesesuaian tipe data,
antara yang dituliskan dengan metode WRITE/WRITELN dan dengan yang akan kita
baca.
2.
File Bertipe
2.1. Karakteristik
·
Berisi
data format biner, ukurannya lebih kecil dari file teks.
·
Tiap
record memiliki tipe dan panjang yang sama. Bisa saja memiliki berbagai tipe
asalkan dikelompokkan dalam RECORD.
·
Dapat
diakses secara random, elemen-elemennya bisa dibaca secara acak yang keberapa
saja.
2.2. Membuat file Bertipe
Urutan Prosesnya :
1.
Mendeklarasikan
variabel file
Var NmVar:FILE OF
TypeVariabel;
Dengan :
NmVar : Nama variabel file bertipe
TypeVariabel : Char, variabel tipe RECORD, variabel
tipe array, real, variabel
array tipe record.
Untuk satu file satu tipe elemen.
Contoh :
Type
DaftarBarang = Array [1..100] of
integer;
DataKonsumen = RECORD
Nama
:string[15];
Alamat :string[30];
Kode :1..3;
DaftarKonsumen = Array [1..100] of Datakonsumen ;
Var
FileBarang : File of Daftarbarang;
FileJumlah : File of
integer;
FileData : File of DataKonsumen;
FileKode : File of Char;
2.
Menghubungkan
variabel file dengan nama file
Assign (NmVar, nama file);
Dengan :
NmVar : Nama variabel file bertipe
nama file : Nama file dalam bentuk string,
format 8:3 penamaan dos, ditulis
dalam bentuk string.
3.
Membuat
/membuka file bertipe
Rewrite(NmVar);
=> untuk membuat
Reset(NmVar); => untuk membuka
4.
Menulis
/ membaca file Bertipe
Write (NmVar, data item1, data item 2, …)
=> untuk menulis
Read (NmVar, data item1, data item 2, …) => untuk membaca
Data item1, data
item 2 dan seterusnya, harus berupa variabel, tidak bisa dituliskan secara
langsung dalam bentuk konstanta. Variabelnya harus sama dengan deklarasi tipe file-nya.
Fungsi Writeln dan
Readln tidak dapat digunakan pada file bertipe.
5.
Menutup
file
Close (NmVar);
2.3. Fungsi-fungsi yang digunakan dalam file Bertipe
Seek (VarFile,N);
Menempatkan pointer ke posisi record ke-N
Contoh :
Seek(namafile,4); {pointer akan menunjuk posisi record ke-4, dengan nomor
record 3}
FilePOS (VarFile);
Untuk menunjuk nomor record (nomor record
dimulai dari record 0)
Contoh :
Posisi:=Filepos(Varfile); {mengetahui
posisi pointer aktual di record mana, dan
hasilnya diletakkan
pada variabel posisi}.
Filesize(VarFile);
Mengukur besar file bertipe, yaitu
mengetahui jumlah record yang berada dalam suatu file (jika file baru dibuat =
0)
Contoh :
..
Begin
Write(‘input
nomor record yang ingin dilihat’);readln(NoRec);dec(NoRec)
If
NoRec >=filesize(VarFile) then
Writeln(‘Nomor
record terlalu besar’);
Else
begin
seek(VarFile,NoRec); {Pointer menuju nomor record yang dimaksud}
Read(VarFile,data);
End;
..
end.
EOF(VarFile);
Untuk menunjuk akhir dari file.
Truncate(VarFile);
Untuk menghapus sebagian file
Contoh :
Seek(varfile,5); {pointer menuju record nomor 5}
Truncate(VarFile);
{menghapus
mulai record nomor 5 sampai habis }
Contoh Program File Bertipe :
Program
menambah_dan_membuat_file_bertipe
Uses crt;
Type mhs =
Record
NPM
: string[8];
Nama:
string[25];
Alamat
: string[20];
End;
Var vfilemhs : FILE of mhs;
Recmhs : mhs;
I : integer;
Oke
: char;
Begin
Clrscr;
Assign
(vfilemhs,’Dataku.dat’);
{$I-}reset(vfilemhs);{$I+}
if
IOResult <>0 then rewrite(vfilemhs);
I:=filesize(vfilemhs);
With
recmhs do
Begin
Write(‘NPM
:’);readln(NPM);
While
NPM <>’ ‘ do
begin
Write(‘Nama
:’);readln(Nama);
Write(‘Alamat
:’);readln(Alamat);
repeat
Write(‘Save
file…(Y/N)?’);readln(oke);
Until
oke in [‘Y’,’y’,’n’,’N’];
If
oke in [‘Y’,’y’] then
Begin
Seek(vfilemhs,I);
Write(vfilemhs,recmhs);
I:=I+1;
End;
Writeln;
Write(‘NPM:’);readln(NPM);
End;
End;
Close(vfilemhs);
End.
Program_Melihat_file_bertipe
Uses crt;
Type mhs =
Record
NPM :
string[8];
Nama:
string[25];
Alamat :
string[20];
End;
Var vfilemhs:
FILE of mhs;
Recmhs:mhs;
I: integer;
Begin
Clrscr;
Assign(vfilemhs,’dataku.dat’);
Reset(vfilemhs);
Writeln(‘----------------------------------------------------------------------‘);
Writeln(‘No. NPM Nama Alamat ‘);
Writeln(‘----------------------------------------------------------------------‘);
With
recmhs
Begin
For
I:=1 to filesize(vfilemhs) do
Begin
Seek(vfilemhs),I-1);
Read(vfilemhs),recmhs);
Writeln(I:2,’
‘,NPM:8,Nama:25,Alamat:20);
End;
End;
Close(vfilemhs);
End.
3. File Tidak Bertipe
3.1. Karakteristik
·
File
yang mengakses langsung ke media penyimpanan tanpa adanya pengenalan record dan
sebagainya.
·
Digunakan
untuk tugas-tugas yang berhubungan dengan file biner yang dapat diproses tanpa mengenal
jenis recordnya.
3.2. Membuat file Tidak Bertipe
Urutan Prosesnya :
1.
Mendeklarasikan
variabel file
Var NmVar:FILE;
2.
Menghubungkan
variabel file dengan nama file
Assign (NmVar, nama file);
Dengan :
NmVar : Nama variabel file bertipe
nama file : Nama file dalam bentuk string,
format 8:3 penamaan dos, ditulis
dalam bentuk string.
3.
Membuka
file bertipe
Rewrite(NmVar[,brec]);
=> untuk membuat
Reset(NmVar[,brec]); => untuk membuka
Dengan :
Brec : Menunjukkan besar file dalam byte,
opsional, boleh ditulis, boleh tidak,
dan besarnya kita
tentukan sendiri. Defaultnya 128 Byte.
4.
Menulis
/ membaca file tidak Bertipe
Blockwrite (NmVar, Buffer, jumlah[,jumtulis])
=> untuk menulis
Dengan :
Buffer : daerah penyimpanan data yang akan
ditulis ke dalam file. Buffer dapat
berupa suatu variabel dengan tipe
apa saja sesuai dengan ukuran data yang akan ditulis di file.
Jumlah : jumlah data yang akan ditulis ke file
dalam ukuran byte.
Jumtulis : suatu parameter yang tidak tetap yang
boleh digunakan dan boleh juga
tidak digunakan, bila digunakan
akan berisi jumlah byte yang dapat ditulis ke file.
Read (NmVar, data item1, data item 2, …) => untuk membaca
Dengan :
Buffer : daerah penyimpanan yang tipe
variabelnya disesuaikan dengan jumlah
data yang dibaca.
Jumlah : jumlah byte yang akan dibaca dari file,
dapat merupakan suatu variabel
dengan tipe word. Jumlah harus
sama dengan besar buffer yang diberikan dan tidak boleh lebih dari 64 Kilobyte.
Jumbaca : merupakan variabel yang berisi laporan
jumlah byte yang dapat dibaca
dari file.
Contoh File tidak bertipe ::
Program menyalin_file
Uses crt;
Var
Fileasal, filetuju :file;
Besar :real;
Buf :array [1..10240] of
char;
Hbaca, Hatulis :word;
nfile1,nfile2 :string;
Begin
besar:=0;
clrscr;
write (‘Input nama
file asal :’);readln(nfile1);
write (‘Input nama
file tujuan :’);readln(nfile2);
{$I-}
Assign(fileasal,nfile1);
Assign(filetuju,nfile2);
Reset(fileasal,1);
If IOResult
<>0 then
Begin
Writeln(‘File asal
tidak ada !’);
Halt(0);
End;
Rewrite(filetuju,1);
If IOResult
<>0 then
Begin
Writeln(‘File tujuan
tidak bisa dibuat !’);
Halt(0);
End;
{$I+}
Repeat
Blockread(fileasal,buf,10240,hbaca);
Besar:=besar +
hbaca;
Blockwrite(filetuju,buf,hbaca,htulis);
If hbaca <> htulis then
Begin
Writeln(‘Tujuan
tidak bisa menampung besar file’);
Halt(0);
End;
Until hbaca
<>10240;
Close (fileasal);
Close (filetuju);
Writeln (‘Besar file
yang dipindahkan :‘,besar:10:0);
End.
4. Menangani Kesalahan I/O pada File
Beberapa operasi pada file yang dapat
mengalami kesalahan I/O :
Reset, rewrite, read, readln, write,
writeln, close, append, seek
Agar program tidak berhenti, maka harus
digunakan Compiler Directive Fungsi I/O result
Untuk pengecekan I/O file tersebut.
Bentuk Umum :
{$ Kode Kondisi}
Dengan :
·
Kode : Karakter kode, untuk
fungsi I/O result adalah I.
·
Kondisi : OFF (-) / ON (+)
·
Secara
default {$I+} => ON
·
I/O
Result => bernilai 0 jika operasi
berhasil
·
Isi
nilai selalu dihapus sendiri setiap kali dipanggil
·
Penulisannya
mengapit operasi-operasi yang rentan kesalahan
Contoh :
…
Assign(VarFile,
‘data.dat’);
{$I-}
Reset(VarFile);
{$I+}
fileada :=
IOResult = 0;
if fileada
then
begin
writeln(‘file
sudah ada…’);
…
end
else {
Kondisi bila file tidak ada }
begin
rewrite(VarFile);
{ Buat file
baru }
…
write
(VarFile, var1, var2, …);
…
close(VarFile);
end;
…
5. Manipulasi File
5.1. Parameter
Parameter disebut juga command tail,
merupakan informasi tambahan bagi program utama yang dapat diketikkan sesuai
keperluan, untuk menjalankan rutin khusus dalam program tersebut.
Contoh : program scan.exe
Biasanya dituliskan
pada prompt :
C:\scan a: /clean
String ‘a:’ dan string ‘/clean’
merupakan parameter, yang akan membuat scan program ke drive a dan kemudian
menjalankan prosedur CLEAN.
Ada dua perintah untuk membuat parameter :
Ø ParamCount : untuk
mengetahui jumlah parameter yang diberikan
Bentuk Umumnya :
Var_word := ParamCount;
Ø ParamString : untuk mengambil parameter tersebut dalam bentuk
string
Bentuk Umumnya :
Var_string :=
ParamString(index);
5.2. Atribut File
Atribut file adalah satu byte data yang
berisi keterangan dari suatu file. Karena bit –nya merupakan kode biner, maka
dibuat lambang untuk mewakili bit-bit tersebut, sebagai berikut :
|
Lambang
|
Angka
|
|
ReadOnly
|
1
|
|
Hidden
|
2
|
|
SysFile
|
4
|
|
VolumeId
|
8
|
|
Directory
|
16
|
|
Archive
|
32
|
Ada 2 perintah yang berhubungan dengan
atribut file, yaitu :
Ø GetFAttr (Get File Atribut) : Mengambil informasi atribut file.
Bentuk umumnya :
GetFAttr(nm_var,attr);
Ø SetFAttr (Set File Atribut) : Mengeset atribut file.
Bentuk umumnya :
GetFAttr(nm_var,attr);
Dengan :
Nm_var :
nama suatu file yang telah di-assign dengan tipe apa saja.
Attr :
Bilangan atribut yang akan diambil/diketahui dari suatu file.
Catatan :
1.
File
yang akan dilihat atau diset atributnya mesti di-assign terlebih dahulu.
2.
Kedua
perintah ini berada pada unit DOS dan WINDOWS Turbo Pascal, maka perlu
menggunakan ‘Uses DOS’ atau ‘Uses Windows;’ pada deklarasi unit.
5.3. Menghapus File
Untuk menghapus suatu file, file tersebut
harus di-assign terlebih dahulu. Bentuk umum perintahnya :
Erase(nm_var);
Contoh :
Program hapus;
Uses crt;
Var f:file;
Begin
Clrscr;
Assign(f,paramstr(1));
Write( ‘File ‘,paramstr(1));
{$I-}
erase(f);
{$I+}
if IOResult <>
0 then writeln(‘Gagal mengapus’);
else
writeln(‘Menghapus sukses …’);
end.
5.4. Mengubah nama file
Untuk mengubah nama file, file tersebut
harus di-assign terlebih dahulu. Bentuk umum perintahnya :
Rename(nm_var,nm_baru);
Contoh :
Program Ubah_nama;
Uses crt;
Var f:file;
Begin
Clrscr;
Assign(f,paramstr(1));
Write( ‘File
‘,paramstr(1));
{$I-}
rename(f,ParamStr(2));
{$I+}
if IOResult <>
0 then writeln(‘Gagal mengubah nama’);
else
writeln(‘Mengubah nama menjadi ’, ParamStr(2));
end.
5.5. Tanggal dan waktu File
Guna memanipulasi tanggal dan waktu file,
Turbo Pascal menyediakan variabel khusus bernama DateTime dengan tipe data
record dengan field-field sebagai berikut :
Type datetime =
record;
Year, month,day,hour,min,sec:word;
End;
Setelah dideklarasikan, baru kita dapat
mengambil dan menset informasi date dan time dengan menggunakan perintah :
Ø GetFTime : mengambil informasi tanggal dan jam file. Bentuk
Umum :
GetFTime(nm_var,waktu);
Ø SetFTime : mengeset
informasi tanggal dan jam file. Bentuk Umum :
SetFTime(nm_var,waktu);
Dengan :
Nm_var :
variabel file yang telah di-assign.
Waktu :
waktu yang akan diambil (dalam bentuk LongInt).
1.
Pada
saat GetFTime, variabel waktu masih
merupakan tipe data sistem(LongInt), maka perlu diubah terlebih dahulu sebelum
ditampilkan, yaitu dengan perintah :
UnpackTime(waktu,var_datetime);
Waktu : dideklarasikan dalam bentuk
longint
Var_datetime : variabel dari record datetime.
2.
Sebelum
melakukan SetFTime, variabel waktu masih merupakan variabel dari record
datetime, maka perlu dikembalikan ke tipe data sistem(LongInt), yaitu dengan
perintah :
PackTime(var_datetime,
waktu);
Var_datetime : variabel dari record datetime.
Waktu : dideklarasikan dalam bentuk
tipe data sistem (longint).
3.
Harus
menggunakan deklarasi unit ‘Uses DOS;’
atau ‘Uses WinDOS;’
5.6. Mencari File
Menggunakan perintah :
Findfirst(path,attr,var_searchrec);
FindNext(var_searcRec);
Dengan :
path :
file yang akan dicari, dapat diisi dengan wildcard seperti ‘*’ dan ‘?’. Pada
unit
DOS menggunakan tipe
string. Harus deklarasi unit ‘Uses Dos;’.
Attr :
atribut file yang dicari
Var_searchrec : variabel dengan tipe searchrec sebagai berikut ini :
Type
Searchrec = record
Fill : array [1..2]
of char;
Attr : byte;
Time : longint;
Size : longint;
Name : string;
End;
Contoh :
Program
cari;
Uses
crt,dos;
Var dirinfo
:searchrec;
Begin
Clrscr;
Findfirst(paramstr(1),archive,dirinfo);
Writeln
(‘File-file yang dicari adalah :’);
While
doserror=0 do
Begin
Write(dirinfo.name:15,
‘ ‘);
Writeln(dirinfo.size:10);
Findnext(dirinfo);
End;
End.
5.8. Mengecek Keberadaan File
Menggunakan perintah :
Ø Fsearch : untuk deklarasi unit DOS
Bentuk :
Var_pathstr := Fsearch(path,dirlist)
Dengan :
Path : file yang akan dicari
Dirlist : letak dimana akan dicari yang
didefinisikan di path tersebut.
Ø FileSearch : untuk deklarasi unit Windows
Bentuk :
FileSearch(var_string1,
var_string2, var_string3)
Dengan :
Var_string1 : variabel tempat menaruh hasil
proses.
Var_string2 : variabel tempat menaruh file yang
dicari.
Var_string3 : variabel tempat melakukan pencarian
file.
5.9. Memberikan directory File
Menggunakan 2 perintah di bawah ini:
Ø FExpand
Bentuk umum :
Var_pathstr1 :=
FExpand(Var_pathstr2);
Dengan :
Var_pathstr1 : hasil dari proses dengan penulisan
file secara panjang
Var_pathstr2 : nama file yang akan diperpanjang
penulisannya
Fungsi ini tidak
mengecek keberadaan file yang dimanipulasinya. Bila file tidak ada, maka tetap
akan menghasilkan path yang sedang aktif.
Ø FileExpand
Bentuk umum :
FileExpand(hasil,file_asal);
Dengan :
Hasil : merupakan hasil proses.
File_asal : nama file yang akan
diperpanjang penulisannya.
Komentar
Posting Komentar