Instrukcja Write

Spis treści
Indeks 🔎︎

# Instrukcja Write#

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

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

### Składnia:

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

### Parametry:

fileNum: dowolne wyrażenie liczbowe 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.

### Przykład:

      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

Tematy pokrewne

Instrukcja Open

Instrukcja Print#

Instrukcja Put#

Instrukcja Close