Tulis Pernyataan

Menulis data ke berkas berurutan.

Sintaksis:


Write [#NamaBerkas], [DaftarEkspresi]

Parameter:

NamaBerkas:Ekspresi numerik apa pun yang berisi nomor berkas yang ditetapkan oleh pernyataan terbuka untuk berkas masing-masing.

Daftar Ekspresi: Variabel atau ekspresi yang ingin Anda masukkan dalam berkas, dipisah dengan koma.

Jika daftar ekspresi dihilangkan, makaPnulispernyataan menambahkan baris kosong ke berkas.

Untuk menambahkan daftar ekspresi ke berkas baru atau yang sudah ada, file harus dibuka di Keluaran atauMenambahkanmode.

String yang Anda tulis diapit oleh tanda kutip dan dipisahkan dengan koma. Anda tidak perlu memasukkan pembatas ini dalam daftar ekspresi.

Setiap pernyataan Tulis menampilkan simbol akhir baris sebagai entri terakhir.

Angka dengan pembatas desimal dikonversi sesuai dengan pengaturan lokal.

Contoh:


Sub ExampleWrite
Dim iCount As Integer
Dim sValue As String
    iCount = Freefile
    Open "C:\data.txt" For Output As iCount
    sValue = "Hamburg"
    Write #iCount,sValue,200
    sValue = "New York"
    Write #iCount,sValue,300
    sValue = "Miami"
    Write #iCount,sValue,450
    Close #iCount
End Sub