Инструкция Write#

Writes data to a sequential text file with delimiting characters.

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

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

fileNum: Any numeric expression that contains the file number that was set by the Open statement for the respective file.

expression list: Variables or expressions that you want to enter in a file, separated by commas.

Если список выражений пропущен, инструкция Write добавляет к файлу пустую строку.

Чтобы добавить список выражений к новому или существующему файлу, этот файл должен быть открыт в режиме Output или Append.

Вводимые строки заключаются в кавычки и разделяются запятыми. В списке выражений необходимость в использовании разделителей отсутствует.

Каждая инструкция Write завершает вывод символом конца строки.

Числа с десятичными разделителями преобразовываются в соответствии с настройками локали.

  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