Закрытие файлов

После окончания работы с файлом его необходимо корректно закрыть, иначе возможны неконтролируемые сбои.

Close # [ СписокДескрипторов ]

Close # 1

Close # 2,3

Close #

В списке указываются через запятую дескрипторы файлов, которые должны быть закрыты. Если СписокДескрипторов отсутствует, значит будут закрыты все открытые файлы.

Пример:

Open “C:\Педколледж\студенты\2в\Петрова\test1.txt” For Input As # 1

Fname=“D:\ttt.txt”

Open Fname For Output As # 2

Open txtAdres.Text For Append As # 3

….

……

Close # 1,2

Close # 3

Запись в файл

Текстовая строка – последовательность символов, которая заканчивается знаком перехода на новую строку или знаком возврата каретки (Chr(13) или Chr(10)).

Текстовый файл – последовательность текстовых строк.

Запись всегда осуществляется в файл, открытый для записи (Output) или для добавления (Append).

Существуют два оператора записи в текстовой файл, синтаксис этих операторов одинаков, а работают они по-разному.

Write #ДескрипторФайла, [СписокЗначений]

Print #ДескрипторФайла, [СписокЗначений]

Если СписокЗначений отсутствует, в файл будет записана пустая строка.

Write- значения в списке разделяются запятой и в файл записываются тоже через запятую в одну текстовую строку. После записи последнего элемента записывается символ перехода на новую строку. Элементы типа String заключаются в кавычки. Этот оператор удобен, если файл в дальнейшем будет использоваться в программах.

Write # 2, "количество", 25

F="Иванова"

N=30

Write # 3, F, N

В файле значения будут тоже записаны через запятую, строковые выражения в кавычках.

Print – значения могут разделяться точкой с запятой и запятой, и в файл записываются или подряд, или в 14-символьные зоны. Можно применять функции Chr(n), Spc(n)-вставка пробелов, Tab(n). Оператор Print удобен для дальнейшего редактирования текста файла. Этот оператор работает аналогично методу формы Print.

Print #3, "Маша"; "Иванова"

В 3 файле будет МашаИванова

Print #4, "Маша", "Иванова"

В 4 файле будет Маша Иванова

Write #5, "Маша", "Иванова"

В 5 файле будет "Маша", "Иванова"

При определении пути к файлу можно использовать системный объект App, который содержит информацию о приложении. Свойство App.Path хранит путь к текущему каталогу.

Fname = App.Path + “\test.txt” – если использовать это имя, то запишется файл под именем ‘test’ в текущий каталог (откуда запущен проект).

Fname = App.Path + “\” + Text1.Text

Рекомендуется файлы, к которым обращается программа, хранить в одном каталоге с этой программой и использовать системный объект Аpp.

Задание1. В проект 3 Командные кнопки ‘Write’, ‘Print’ и ‘Append’ и 2 Текстовых Окна. По первым двум кнопкам записать несколько значений, используя имя файла в текстовом окне, в два файла разными операторами.

В одном случае используйте полное имя(путь) файла. А в другом берите только имя файла из Текстового Окна и используйте объект App. Сравнить полученные файлы.

По кнопке ‘Append’ добавлять в файл информацию из 2-го Текстового Окна.