Buka Pernyataan

Membuka kanal data.

Sintaksis:


Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]i37502

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 catatan.

note

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

Mohon dukung kami!