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