Write Statement

ЗаписываСт Π΄Π°Π½Π½Ρ‹Π΅ Π² ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ Ρ„Π°ΠΉΠ».

Бинтаксис

Write [#ИмяЀайла], [БписокВыраТСний]

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹:

Имя_Ρ„Π°ΠΉΠ»Π°: любоС числовоС Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, содСрТащСС Π½ΠΎΠΌΠ΅Ρ€ Ρ„Π°ΠΉΠ»Π°, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π±Ρ‹Π» Π·Π°Π΄Π°Π½ Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ΠΌ Open для ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰Π΅Π³ΠΎ Ρ„Π°ΠΉΠ»Π°.

БписокВыраТСний. ΠŸΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Π΅ ΠΈΠ»ΠΈ выраТСния для записи Π² Ρ„Π°ΠΉΠ» (Ρ€Π°Π·Π΄Π΅Π»Ρ‘Π½Π½Ρ‹Π΅ запятыми).

Если список Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ ΠΏΡ€ΠΎΠΏΡƒΡ‰Π΅Π½, ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ 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