Instrukcja Write#

Zapisuje dane do sekwencyjnego pliku tekstowego ze znakami rozdzielającymi.

Użyj instrukcji Print#, aby zapisać dane do sekwencyjnego pliku tekstowego. Użyj instrukcji Put#, aby zapisać dane do pliku binarnego lub losowego.

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

fileNum: Dowolne wyrażenie numeryczne zawierające numer pliku ustawiony przez instrukcję Open dla odpowiedniego pliku.

Lista expression: zmienne lub wyrażenia, które chcesz wprowadzić do pliku, oddzielone przecinkami.

W przypadku braku listy wyrażeń instrukcja Write dołącza do pliku pustą linię.

Aby dodać listę wyrażeń do nowego lub istniejącego pliku, musi on być otwarty w trybie Output lub Append.

Ciągi, które piszesz są ujęte w cudzysłów i oddzielone przecinkami. Nie musisz wprowadzać ograniczeń na liście ekspresji.

Każda instrukcja Write jako ostatnią pozycję wstawia symbol końca wiersza.

Liczby z separatorami dziesiętnymi są konwertowane zgodnie z ustawieniami lokalnymi.

  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