Write Statement
αααααβαα·ααααααβαα βα―αααΆαβαβααααΆΒ α
ααΆαααβααααααα α
Write [#FileName], [Expressionlist]
αααΆαααΆαααααα α
αααααβα―αααΆαΒ α ααααααβαααβαααβααΆαβαααβα―αααΆα αααβααααΌαβααΆαβαααααβαααβααα ααααΈβαααααααΆααα Open αααααΆααβα―αααΆαβααΈαα½ααΒ α
Expressionlist α α’ααα α¬βααααααβαααβα’αααβα ααβαααα αΌαβαααα»αβα―αααΆαβαα½α ααααβααΆα αβααΈβααααΆβαααβαααααΆβααααα (,)Β α
ααααα·αβααΎββαααααΈβααααααβααααΌαβααΆααα»α ααα ααααΈαααααααΆααα Write ααααααβαααααΆααβαααβαα βααΆαβα α»αβα―αααΆαΒ α
ααΎααααΈβααααααβαααααΈβααααααβαα½αβαα βα―αααΆαβααααΈβαα½α α¬βααΆαβααααΆαα α―αααΆαβααααΌαβααβααΎαβαααα»αβαααα Output α¬βAppendΒ α
ααααα’ααααβαααβα’αααβαααααβααααΌαβααΆαβααΆααβαααα»αβαααααΆβαααααα α αΎαβαααααβαααβαααααΆ (,)Β α α’αααβαα·αβα αΆαα αΆααβαααα αΌααααααΆβαααααβαααααααβαα βαααα»αβαααααΈβααααααβααΒ α
ααα ααααΈβαααααααΆααα Write ααΈαα½ααβαααα αΆαβααααααβαα·αα·ααααααααΆβα α»αβαααααΆααβααΆβααΆαα»βα α»ααααααΒ α
αααβαααβααΆαβαααααΆβαααααβαααααααβαααααα ααααΌαβααΆαβααααααβαααβαααβααΆαβααΆαβαααααβααΌαααααΆαΒ α
α§ααΆα ααα α
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