Spis treści

# 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.

### Składnia:

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

### Parametry:

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.

### 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

Prosimy o wsparcie!