назад | содержание | вперед
Запись данных
Данные в файл последовательного доступа записываются с помощью операторов print # и write #. Оператор write # дополнительно автоматически вставляет в файл разделители, но не дает гибкости при управлении форматированием данных. Как можно было заметить при изучении функций чтения данных, каждая из функций записи работает в паре с определенной функцией чтения. Для оператора print # это функции Input или Line Input #, а для оператора write #t — это Input #.
Совет
Рекомендуется при применении операций записи/чтения данных из файлов использовать именно такие пары функций и операторов записи/чтения.
Рассмотрим оператор print #. Он имеет следующий синтаксис:
Print #fileNumber, [outputlist]
где:
Оператор write ft имеет следующий синтаксис:
Write #fileNumber, [outputlist]
где:
При выполнении записи данных в файл оператор write # после каждой строки автоматически вставляет символ перевода каретки CHR(13) и символ новой строки CHR(10).
Заменим код в нашем приложении MyFileProject на следующий:
Dim strFileName As String
Dim strFileContent As String
Dim nFreeFile As Integer
Private Sub cbStart_Click()
nFreeFile = FreeFile
cdCommonDialog.ShowSave
strFileName = cdCommonDialog.FileName
If strFileName <> "" Then
Open strFileName For Output As nFreeFile
strFileContent = txtFile.Text
Print #nFreeFile, strFileContent
Close
End If
End Sub
В полученном приложении данные, введенные в текстовое поле, будут записываться оператором print # в файл, найденный при помощи диалогового окна сохранения файлов.
назад | содержание | вперед