Write Statement
āĻāĻāĻāĻŋ āĻĒāϰā§āϝāĻžāϝāĻŧāĻā§āϰāĻŽāĻŋāĻ āĻĢāĻžāĻāϞ⧠āϞāĻŋāĻāĻž āĻšā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Write [#FileName], [Expressionlist]
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
FileName: āϝā§āĻā§āύ⧠āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āϏāĻāĻļā§āϞāĻŋāώā§āĻ āĻĢāĻžāĻāϞā§āϰ āĻāύā§āϝ āĻāĻĒā§āύ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĻā§āĻŦāĻžāϰāĻž āύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻĢāĻžāĻāϞā§āϰ āĻā§āϰāĻŽ āϧāĻžāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
Expressionlist: āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻĒāύāĻŋ āĻāĻāĻāĻŋ āϏāύā§āύāĻŋāĻŦā§āĻļ āĻāϰāĻžāϤ⧠āĻāĻžāύ, āĻāĻŽāĻž āĻĻā§āĻŦāĻžāϰāĻž āĻāϞāĻžāĻĻāĻž āĻāϰāĻžāĨ¤
āϝāĻĻāĻŋ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϤāĻžāϞāĻŋāĻāĻž āĻŦāĻžāĻĻ āĻĻā§āĻā§āĻž āĻšāϝāĻŧ, āϤāĻžāĻšāϞ⧠āϞā§āĻāĻž āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāĻāĻāĻŋ āĻĢāĻžāĻāϞā§āϰ āĻāĻžāϞāĻŋ āϞāĻžāĻāύā§āϰ āĻļā§āώ⧠āϝā§āĻ āĻšāϝāĻŧāĨ¤
āĻāĻāĻāĻŋ āύāϤā§āύ āĻ āĻĨāĻŦāĻž āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĢāĻžāĻāϞ⧠āĻāĻāĻāĻŋ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϤāĻžāϞāĻŋāĻāĻž āϝā§āĻā§āϤ āĻāϰāϤā§, āĻĢāĻžāĻāϞāĻāĻŋ āĻ āĻŦāĻļā§āϝāĻ āĻāĻāĻāĻĒā§āĻ āĻ āĻĨāĻŦāĻž āĻĒāϰāĻŋāĻļā§āώ⧠āϝā§āĻ āĻŽā§āĻĄā§ āĻā§āϞāϤ⧠āĻšāĻŦā§āĨ¤
āĻāĻĒāύāĻžāϰ āϞāĻŋāĻāĻŋāϤ āϏā§āĻā§āϰāĻŋāĻ āĻāĻāĻāĻŋ āĻāĻĻā§āϧā§āϤāĻŋ āĻāĻŋāĻšā§āύ āĻĻā§āĻŦāĻžāϰāĻž āĻāĻŦāĻĻā§āϧ āĻĨāĻžāĻā§ āĻāĻŦāĻ āĻāĻŽāĻž āĻĻā§āĻŦāĻžāϰāĻž āĻŦāĻŋāĻāĻā§āϤ āĻĨāĻžāĻā§āĨ¤ āĻāĻĒāύāĻžāϰ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϤāĻžāϞāĻŋāĻāĻžāϤ⧠āĻāĻ āĻŦāĻŋāϰāϤ⧠āĻāĻŋāĻšā§āύāϏāĻŽā§āĻš āϏāύā§āύāĻŋāĻŦā§āĻļ āĻāϰāĻžāύā§āϰ āĻĒā§āϰā§ā§āĻāύ āύā§āĻāĨ¤
āĻĒā§āϰāϤāĻŋāĻāĻŋ āϞā§āĻāĻž āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āϏāϰā§āĻŦāĻļā§āώ āĻāύā§āĻā§āϰāĻŋ āĻšāĻŋāϏā§āĻŦā§ āϞāĻžāĻāύ āϏāĻŽāĻžāĻĒā§āϤāĻŋāϰ āĻĒā§āϰāϤā§āĻ āĻāĻāĻāĻĒā§āĻ āĻšāĻŋāϏā§āĻŦā§ āĻĒāĻžāĻā§āĻž āϝāĻžā§āĨ¤
āĻĻāĻļāĻŽāĻŋāϤ āĻŦāĻŋāϰāϤā§āĻāĻŋāĻšā§āύ āϏāĻš āϏāĻāĻā§āϝāĻž āϏā§āĻĨāĻžāύā§ā§ āϏā§āĻāĻŋāĻ āĻ āύā§āϏāĻžāϰ⧠āϰā§āĻĒāĻžāύā§āϤāϰ āĻāϰāĻž āĻšā§ā§ āĻĨāĻžāĻā§āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
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