Write # filenum , [ expressionlist ]

filenum
expressionlist

Выводит значения expressionlist в текстовый файл или устройство, связанное с filenum. Значения разделяются запятыми, а строки заключены в двойные кавычки. Числовые значения больше, чем ноль (0) и менее чем один (1) начинаются с нуля (0) если ничего не дается (например, значение -.123 будет выводиться как -0.123). Дополнительные нули отсекаются.

Если список выражение не дается, Write # выводит возврат каретки (обратите внимание, что запятая после filenum по-прежнему необходима, даже если ни один список выражений не дается).
Целью Write # является создание файла, который может быть прочитан обратно с помощью Input #.

Const filename As String = "file.txt"

Dim filenum As Integer = FreeFile()
If 0 <> Open(filename, For Output, As filenum) Then
    Print "error opening " & filename & " for output."
    End -1
End If

Dim i As Integer = 10
Dim d As Double = 123.456
Dim s As String = "text"

Write #filenum, 123, "text", -.45600
Write #filenum,
Write #filenum, i, d, s

будет производить файл:

123,"text",-0.456

10,123.456,"text"

• Нет
  
  

• Write
  
• Print #
  
• Input #