Write Statement
Записывает данные в последовательный файл.
Синтаксис
Write [#ИмяФайла], [СписокВыражений]
Параметры:
Имя_файла: любое числовое выражение, содержащее номер файла, который был задан выражением Open для соответствующего файла.
СписокВыражений. Переменные или выражения для записи в файл (разделённые запятыми).
Если список выражений пропущен, оператор Write добавляет к файлу пустую строку.
Чтобы добавить список выражений к новому или существующему файлу, этот файл должен быть открыт в режиме Output или Append.
Вводимые строки заключаются в кавычки и разделяются запятыми. В списке выражений необходимость в использовании разделителей отсутствует.
Каждое выражение Write выводит символ конца строки в виде последней записи.
Числа с десятичными разделителями преобразовываются в соответствии с настройками локали.
Пример:
Sub ExampleWrite
Dim iCount As Integer
Dim sValue As String
iCount = Freefile
Open "C:\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