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