Write# sakinys

Rašo duomenis į nuoseklųjį tekstinį failą su skiriamaisiais simboliais.

Use Print# statement to print data to a sequential text file. Use Put# statement to write data to a binary or a random file.

Write [#fileNum] {,|;} expression [, …]

fileNum: bet kuri skaitinė išraiška, kurioje yra failo numeris, kurį nustatė atitinkamo failo atvėrimo sakinys.

reiškinių sąrašas: Kintamieji ar reiškiniai, kuriuos norite įvesti į failą, atskirtus kableliais.

Jei reiškinių sąrašas praleistas, sakinys Rašyti prie failo prideda tuščią eilutę.

Norėdami pridėti reiškinių sąrašą prie naujo ar esamo failo, failas turi būti atvertas naudojant vieną iš veiksenų Atverti arba Pridėti.

Jūsų rašomos eilutės yra kabutėse ir atskirtos kableliais. Šių skirtukų nereikia įvesti į reiškinių sąrašą.

Kiekvienas sakinys Write pateikia eilutės pabaigos simbolį paskutiniu įrašu.

Skaičiai su dešimtainiais skyrikliais konvertuojami pagal lokalės nustatymus.

  Sub ExampleWrite
      Dim iCount As Integer
      Dim sValue As String
      iCount = Freefile
      Open "C:\Users\ThisUser\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
  

  Sub ExampleWrite
      Dim iCount As Integer
      Dim sValue As String
      iCount = Freefile
      Open "~/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