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

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

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

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

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

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

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

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

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

9 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, "Ошибка" вывод сообщения об ошибке

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

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