Write# sakinys

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

tip

Naudokite Print# sakinį duomenims spausdinti į nuoseklųjį tekstinį failą. Naudokite Put# sakinį duomenims rašyti į dvejetainė arba atsitiktinį failą.


Sintaksė:

Rašymo sakinio diagrama


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

Parametrai:

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.

Pavyzdys:


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