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