GAMBAS 3 BAB 9 : BEKERJA DENGAN FILE (Bagian 1)

========================================================================

"Postingan ini adalah bagian dari terjemahan buku "A Beginner's Guide to Gambas - Revise for version 3" yang ditulis oleh John W. Rittinghouse dan Jon Nicholson. Seperti tertulis pada judul postingan, berarti terjemahan ini membahas tentang operasi file yang ada dalam Chapter 9 dengan judul Working with Files. Mungkin dimulai terjemahan Bab 8 dan seterusnya saya akan mempostingkannya secara berseri atau bersambung atau apalah namanya, setiap selesai menyelesaikan sebuah terjemahan, dengan tujuan memaksaku untuk menyempatkan waktu menterjemahkan buku tersebut dan menyelesaikannya penterjemahannya dengan cepat sehingga dapat segera menyatukan semua file-file tersebut dalam satu buku. Saya berharap semoga Allah senantiasa memberikan kesehatan, kekuatan dan kesempatan kepadaku untuk menuntaskan terjemahan ini, semoga ada yang terbantu dengan kegiatan penterjemahan ini-Pen".

========================================================================

Kami akan memperkenalkan kepada Anda manajemen file Gambas dan operasi file input / output (file i / o) dalam bab ini. Gambas memiliki seperangkat fitur lengkap dari fungsi dan subrutin untuk mendukung hampir semua operasi file i / o yang mungkin Anda perlukan untuk mengimplementasikannya dalam program Anda.

(Pada bab ini akan dibahas tentang-pen)

✔ Access

✔ Dir

✔ Eof

✔ Exist

✔ IsDir

✔ Lof

✔ Stat

✔ Temp / Temp$

✔ OPEN and CLOSE

✔ INPUT, LINE INPUT, and PRINT

✔ READ, SEEK, WRITE and FLUSH

✔ COPY, KILL and RENAME

✔ MKDIR and RMDIR

✔ LINK

Access

Access adalah fungsi yang digunakan untuk menentukan apakah file dapat diakses atau tidak. konvensi pemanggilannya adalah :

Accessible = Access ( Path [ , Mode ] )

Fungsi panggilan Access mengembalikan TRUE jika file yang ditentukan oleh path dapat diakses. Jika nilai Mode gb.Read, maka fungsi mengembalikan TRUE jika file tersebut dapat dibaca. Ini adalah nilai default untuk semua file. Jika Mode adalah gb.Write, maka akses mengembalikan TRUE jika file tersebut dapat ditulis. Ketika gb.Exec ditentukan untuk Mode, fungsi mengembalikan TRUE jika file tersebut dapat dieksekusi. Flag sebelumnya dapat dikombinasikan dengan operator OR. Untuk direktori, flag eksekusi berarti bahwa direktori dapat diakses. Sebagai contoh:

PRINT Access("/home/benoit", gb.Write OR gb.Exec)

akan mengembalikan

True

ketika pernyataan

PRINT Access("/root", gb.Write)

False

Dir

Dir mengembalikan sebuah array string yang berisi nama-nama file yang berada dalam direktori yang cocok dengan pola berkas yang ditentukan. Jika tidak ada pola yang ditentukan, setiap nama file yang ada di direktori dikembalikan. Pola ini mungkin berisi karakter generik yang sama diijinkan untuk operator LIKE. Dengan kata lain, karakter-karakter yang ditemukan pada tabel berikut:

 

Generic Character	Matches
*	Setiap jumlah dari setiap karakter atau string.
?	Placeholder untuk menentukan posisi string (s) untuk mencari-untuk karakter (s)
[abc]	Setiap karakter pada tanda kurung
[x-y]	Setiap karakter dalam interval.
[^x-y]	Setiap karakter tidak dalam interval.

Karakter khusus generik \ karakter pencegah berikut dari yang ditafsirkan sebagai generik. Standar konvensi pemanggilannya adalah:

File name array = Dir ( Directory [ , File pattern ] )

Berikut adalah segmen contoh kode untuk membantu Anda

' Print a directory

SUB PrintDirectory(Directory AS String)

DIM sFile AS String

FOR EACH sFile IN Dir(Directory, "*.*")

PRINT sFile

NEXT

END

Eof

Fungsi EoF mengembalikan nilai Boolean TRUE jika kita berada di ujung urutan. Standar konvensi pemanggilan adalah:

Boolean = Eof ( File )

Berikut sebuah contoh bagaimana EOF digunakan :

...

OPEN FileName FOR READ AS #hFile

WHILE NOT Eof(hFile)

LINE INPUT #hFile, OneLine

PRINT OneLine

WEND

CLOSE #hFile

...

Exist

The konvensi pemanggilan untuk Exist adalah:

Boolean = Exist ( Path )

Ia mengembalikan TRUE jika sebuah file atau direktori ada. CATATAN: Menggunakan ~ sebagai identifier direktori tidak bekerja. Jika path yang ditentukan tidak ada, FALSE dikembalikan. Berikut adalah contoh penggunaan Exist untuk menentukan apakah file yang ada sebelum memanggil OPEN untuk membaca file:

...

DIM sCurrentFileName AS String

sCurrentFileName = "The Raven.txt"

IF Exist(sCurrentFileName) THEN

... 'open the file

ELSE

Message.Info("File " & sCurrentFileName & " does not exist.")

ENDIF

...

Bersambung ke Bagian 2