Работа с текстовыми файлами
Текстовые файлы - самый простой формат хранения данных. Программы пакета Microsoft Office также могут сохранять свои файлы в этом формате. Рассмотрим наиболее полезные приемы работы с ними.
Открываются файлы командой Open, а закрываются - командой Close.
Sub Test()
Open "file.txt" For Input As #1
Close #1
End Sub
Команда Open может открывать файлы для чтения Input и для записи Output. Цифра после as - это идентификатор файла. Этот идентификатор передается в качестве первого аргумента операторам чтения и записи.
Следующий пример демонстрирует запись и чтение файла
Sub Test()
Open "file.txt" For Output As #1
Print #1, "Этот текст будет записан в файл"
Close #1
Open "file.txt" For Input As #1
Dim s As String
Input #1, s
MsgBox s
Close #1
End Sub
Для записи используется оператор Print, а для чтения - Input.
У этих операторов есть свои особенности.
Print #1, "Hello , File"
Оператор Input #1 прочитает только Hello и все. Запятая воспринимается как разделитеть.
Чтобы прочитать строку целиком, используется оператор Line Input.
Sub Test()
Open "file.txt" For Output As #1
Print #1, "Hello , File"
Close #1
Open "file.txt" For Input As #1
Dim s As String
Line Input #1, s
MsgBox s
Close #1
End Sub
Этот код прочитает строку целиком. Чтобы определить конец файла, используется вункция EOF(идентификатор),
которая возвращает TRUE если обнаружен конец файла.
Sub Test()
Open "file.txt" For Output As #1
Print #1, "Hello , File"
Close #1
Open "file.txt" For Input As #1
Dim s As String
While Not EOF(1)
Input #1, s
MsgBox s
Wend
Close #1
End Sub