Buka Pernyataan

Membuka kanal data.

Sintaksis:

Membuka NamaBerkas Sebagai String [For Mode] [Access IOMode] [Protected] Sebagau [#]FileNumber Sebagai Integer [Len = DatasetLength]

Parameter:

NamaBerkas: Nama dan alamat berkas untuk dibuka. Jika anda mencoba untuk membaca berkas yang tidak ada (Akses = Baca), pesan kesalahan akan muncul. Jika anda mencoba untuk menulis ke file yang tidak ada (Akses = Tulis), berkas baru dibuat.

Mode: Kata Kunci yang menentukan mode berkas. Nilai yang valid: Tambah (tambahkan ke berkas sekuensial), Biner (data dapat diakses oleh byte menggunakan Get and Put), Masukan (membuka saluran data untuk membaca), Keluaran (membuka saluran data untuk menulis), dan Acak (mengedit berkas relatif)

ModeIO: Kata kunci yang mendefinisikan jenis akses. Nilai yang valid: Baca (hanya baca), Tulis (hanya tulis), Baca Tulis (keduanya).

Dilindungi: Kata kunci yang mendefinisikan status keamanan file setelah dibuka. Nilai yang valid: Berbagi (file dapat dibuka oleh aplikasi lain), Kunci Pembaca (file dilindungi terhadap pembacaan), Kunci Penulis (file dilindungi terhadap penulisan), Kunci Pembacaan Penulisan (menolak akses file).

NomorBerkas: Ekspresi integer apa pun dari 0 hingga 511 untuk menunjukkan jumlah sisa saluran data. Anda kemudian dapat mengirimkan perintah melalui saluran data untuk mengakses berkas. Nomor berkas harus ditentukan oleh fungsi FreeFile segera sebelum pernyataan Terbuka.

DatasetLength: Untuk akses berkas secara acak, atur panjang rekaman.

Ikon Catatan

Anda hanya dapat mengubah isi file yang dibuka dengan pernyataan Buka. Jika Anda mencoba membuka file yang sudah terbuka, pesan kesalahan akan muncul.


Contoh:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    Print #iNumber, "Ini adalah baris teks"

    Print #iNumber, "Ini adalah baris teks yang lain"

    Close #iNumber

    iNumber = Freefile

    Open aFile For Input As iNumber

    While Not eof(iNumber)

        Line Input #iNumber, sLine

        If sLine <>"" Then

            sMsg = sMsg & sLine & chr(13)

        End If

    Wend

    Close #iNumber

    MsgBox sMsg

End Sub