Write Statement

рдЕрдиреБрдХреНрд░рдордгрд┐рдХ рдлрд╛рдЗрд▓рдорд╛ рдбреЗрдЯрд╛ рд▓реЗрдЦреНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


Write [#FileName], [Expressionlist]

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдлрд╛рдЗрд▓ рдирд╛рдо:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рдорд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ рддреНрдпреЛ рд╕рдореНрдмрдиреНрдзрд┐рдд рдлрд╛рдЗрд▓рдХрд╛ рд▓рд╛рдЧрд┐ рдЦреБрд▓реЗрдХреЛ рдХрдердирджреНрд╡рд╛рд░рд╛ рд╕реЗрдЯ рднрдЗрд╕рдХреЗрдХреЛ рд╣реБрдиреНрдЫ ред

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕реВрдЪреА:рддрдкрд╛рдИрдБрд▓реЗ рдлрд╛рдЗрд▓рдорд╛ рдШреБрд╕рд╛рдЙрдирд▓рд╛рдИ рдЪрд╛рд╣реЗрдХреЛ рдЪрд▓рд╣рд░реВ рд╡рд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдорд╣рд░реВрджреНрд╡рд╛рд░рд╛ рдмрд┐рднрд╛рдЬрд┐рдд рднрдПрдХрд╛ рд╣реБрдиреНрдЫрдиреН ред

рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕реВрдЪреА рд╣рдЯрд╛рдЗрдПрдХреЛ рдЦрдгреНрдбрдорд╛, рд▓реЗрдЦреНрдиреБрд╣реЛрд╕реНрд╕реНрдЯреЗрдЯрдореЗрдиреНрдЯ рдЦрд╛рд▓реА рд▓рд╛рдЗрдирд▓рд╛рдИ рдлрд╛рдЗрд▓рдорд╛ рдердкреНрдЫ ред

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕реВрдЪреАрдорд╛ рдирдпрд╛рдБ рд╡рд╛ рдЕрд╡рд╕реНрдерд┐рдд рдлрд╛рдЗрд▓рд▓рд╛рдИ рдердкреНрдирд▓рд╛рдИ рдлрд╛рдЗрд▓рдирд┐рд░реНрдЧрдд рд╡рд╛ рдЬреЛрдбреНрдиреБрд╣реЛрд╕реНрдореЛрдбрдорд╛ рдЦреЛрд▓реНрдиреБ рдкрд░реНрджрдЫ ред

рд▓реЗрдЦрд┐рдПрдХреЛ рдХрдердирд╣рд░реВ рдЙрджреНрдЧрд╛рд░ рдЪрд┐рдиреНрд╣рджреНрд╡рд╛рд░рд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реАрдиреНрдЫ рднрдиреЗ рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдорджреНрд╡рд╛рд░рд╛ рдЫреБрдЯреНрдЯрд┐рдПрдХреЛ рд╣реБрдиреНрдЫ ред рдпреЛ рд╕реВрдЪреАрдорд╛ рдбреЗрд▓рд┐рдорд┐рдЯрд░рд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рдЖрд╡рд╢реНрдпрдХ рдЫреИрди ред

Each Write statement outputs a line end symbol as last entry.

Numbers with decimal delimiters are converted according to the locale settings.

рдЙрджрд╛рд╣рд░рдг:


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