Ajuda del LibreOffice 7.2
Writes data to a sequential text file with delimiting characters.
Write [#fileNum] {,|;} expression [, …]
fileNum Qualsevol expressió numèrica que contingui el número de fitxer establert per l'expressió Open per al fitxer respectiu.
Expressió llista variables o expressions que voleu introduir en un fitxer separats per comes.
Si la llista d'expressions s'omet, l'expressió Write afegeix una línia buida al fitxer.
Per afegir una llista d'expressions a un fitxer nou o existent, cal obrir el fitxer en mode Sortida o Afegeix.
Les cadenes que escriviu es col·loquen entre cometes i se separen amb comes. No cal que introduïu aquests delimitadors a la llista d'expressions.
Cada expressió de Write produeix un símbol de final de línia com a última entrada.
Els nombres amb delimitadors decimals es converteixen segons la configuració regional.
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