Файл это поименованная область диска. Чтобы записать информацию в файл надо проделать следующие операции 1.Открыть файл 2.Вывести данные в файл 3.Закрыть файл Чтобы извлечь информацию из файла надо 1.Открыть файл 2.Ввести данные из файла 3.Закрыть файл

Поэтому говорится, что открывают файл с типом доступа 1.Только для ввода 2.Только для вывода 3.Для ввода и вывода Одновременно программа может работать с несколькими файлами, поэтому для каждого файла назначается канал. Канал - как бы труба через которую данные из программы поступают в файл или из файла в программу. В соответствии с этими представлениями созданы команды для работы с файлами.

Команды для работы с текстовыми файлами Открытие файла Open имя файла For тип доступа As #номер канала имя файла - переменая или константа типа String; тип доступа - Input или Output или Random. Input ввод из файла. Output вывод в файл. Random одновремннно для ввода и вывода номер канала - численное значение. Закрытие файла. Close #номер канала.

Вывод в файл (Запись) Print #номер канала, выражение Ввод из файла в переменную типа String (Чтение) переменная = Input(LOF(номер канала), #номер канала)

Рассмотрим пример создания простейшего текстового редактора, позволяющего сохранять созданный текст в файле a.txt и возвращать сохраненный текст.

В новом проекте создайте меню

Установите на форме элемент Text1. Свойство MultiLine измените на True.

Щелчком по пунктам меню открывая соответствующие процедуры обработки событий впишите в них программный код. Краткий комментарий к программе на следующих слайдах

Dim Buffer As String - объявление переменной (для хранения удаленного текста). On Error GoTo ex - в этой строке указание при возникновения ошибки перейти к метке ex. Ошибка в процедуре может произойти только в случае отсутствия файла a.txt Open "a.txt" For Input As #1 - открытие файла для ввода Text1.Text = Input(LOF(1), #1) - ввод содержимого файла в элемент. Input(длина,канал) -функция переносящая данные из текстового файла в переменную. LOF() - Функция определяющая длину открытого файла Close #1 - закрытие файла Exit Sub - выход из процедуры ex: - метка MsgBox "Файла нет.Сделайте сохранение файла", 1, "Ошибка" вывод сообщения об ошибке

Open "a.txt" For Output As #1 - открыть файл для вывода Print #1, Text1.Text - запись в файл содержимого элемента Close #1 - закрытие файла Buffer = Text1.SelText - передача в переменную выделенного текста в элементе Text1.SelText = «» - удаление выделенного текста Text1.SelText = Buffer - вставка из переменной текста

Сделайте программу сохраните и откомпилируйте.