Урок: Работа с файлами в Visual Basic
Цель: Познакомить учащихся с возможностями записи в файл и считывания из файлов в Visual Basic. Развивать навыки работы с файлами. Воспитывать грамотных пользователей ПК.
I орг. момент (посадка, перекличка)
II Объяснение нового материала.
Иногда бывает нужно, чтобы после завершения работы программы, данные, созданные в оперативной памяти компьютера, не пропали а были записаны на диск. При запуске программы тогда можно воспользоваться уже имеющимися данными. Для этого необходимо уметь читать данные с диска и сохранять их на диске. Этими вопросами мы займемся в настоящем занятии.
В проекте Анимация предыдущего при копировании элемента Image1 мы получили элементы с именами Image1(0), Image1(1), Image1(2) и т.д. Такие элементы называются массивом. Предположим, что нам надо сформировать массив не элементов, а некоторого списка названий предметов. В случаях, когда информационный массив не очень велик, его можно формировать прямо в окне программы, но если массив большой, а в реальной жизни мы имеем дело именно с такими задачами, его целесообразно хранить на диске в отдельном файле. Когда это необходимо, данные из файла нужно уметь взять с помощью программы для использования, а полученные после обработки данные записать на диск в виде файла. Так можно, например, было бы не только распечатать свой массив названий предметов на форме, но и записать его на диск.
Рассмотрим основные принципы работы с файлами.
В Visual Basic реализованы три типа доступа к файлам:
последовательный – для чтения и записи текстовых файлов;
произвольный – для чтения и записи текста с записями структурированной длины;
двоичный – для чтения и записи произвольно структурированных файлов.
Мы в настоящей тетради будем рассматривать только последовательный доступ. Данные в файле хранятся при этом в неструктурированном виде.
Работа с файлами данных всегда состоит из нескольких этапов:
Рассмотрим все перечисленные этапы поочередно.
Дескриптор файла. Чтобы работать с файлами, нужно понимать, как связывается система с файлом. Для этого имеется канал ввода-вывода. При открытии файлу ставится в соответствие канал с определенным номером. Каждый открытый файл имеет собственный канал, с помощью которого записываются или считываются данные. Для ввода и вывода данных имеет значение не имя файла, а номер канала.
Функция Visual Basic FreeFile возвращает номер свободного канала, который можно использовать для работы с файлом. intFh = FreeFile( )
В этом примере переменной intFH присваивается целое значение, которое можно использовать для открытия файла.
Открытие файла. Способ открытия файла с последовательным доступом (для чтения, записи или добавления) задается при вызове оператора Open.
Open Имя_файла For [Input \ Output \ Append] As FileHandle
Если в операторе использовано слово Input, то файл открывается только для чтения из файла. Если файл не существует и открывается для чтения, то Visual Basic выдает сообщение об ошибке.
Если в операторе использовано слово Output, то файл открывается для записи. Если файл с таким именем уже существует, то его содержимое удаляется. Если файла с таким именем нет на диске, то создается новый файл.
Если в операторе использовано слово Append, то файл открывается для добавления. Если файла с таким именем нет, то он создается.
В конце оператора указывается номер канала, возвращаемый функцией FreeFile. Приведем несколько примеров использования оператора Open при последовательном доступе.
Open “Text . txt” For Input As intFH1
Open “C: / DAN / Text . txt” For Output As intFH2
Open “Proba . txt” For Append As intFH3
Чтение данных из файла. Для считывания данных из файла, открытого для последовательного доступа, существует несколько возможностей. В общем случае это осуществляется с помощью оператора Input, имеющего несколько разновидностей.
1)Line Input # считывает одну строку;
2)Input # считывает последовательность символов, обычно записанных с помощью оператора Write #;
3)Input$ считывает определенное количество символов.
Существует несколько вариантов чтения всей информации из файла. Перед чтением нужно открыть файл с помощью оператора Open…For Input:
IntFH = FreeFile
Open “Tex t .txt” For Input As intFH
Первый вариант
Do Until EOF(intFH)
Line Input #intFH, strString
StrText = strText & strString & vbLf
Loop
Второй вариант
StrText = Input $ (LOF(intFH), intFH)
Оба варианта приводят к одинаковому результату. В первом варианте оператор Input выполняется в цикле, пока не будет достигнут конец файла. Функция EOF(End Of File) возвращает значение True при достижении конца файла. При этом на каждом шаге цикла считывается отдельная строка и к ней добавляется символ конца строки, который отбрасывается оператором Line Input.
Во втором варианте весь файл считывается функцией Input $. Функция LOF (Length Of File) позволяет определить длину файла в битах.
Независимо от вида оператора Input указывается не имя файла, а только номер канала, т.е. дескриптор файла (intFH).
Запись данных в файл. В Visual Basic для записи информации в файл используются операторы Print # и Write #.
Оператор Print #. Для сохранения данных в файле нужно открыть файл для записи или добавления оператором Open (Open… For Output или Open … For Append), а потом применить оператор Print #.
Если в операторе данные разделять запятыми, то в файле они будут разделены символами табуляции:
Print #intFH, “Фрагмент1”, “Фрагмент2”
Эта строка соответствует строке:
Print #intFH, “Фрагмент1”; Tab ;“Фрагмент2”
Если в операторе для разделения данных использовать точку с запятой, то данные в файл записываются без разделителей:
Print #intFH, “Фрагмент1” ; “Фрагмент2”
Эта строка соответствует строке
Print #intFH, “Фрагмент1 Фрагмент2”
Оператор Write #. Этот оператор имеет такой же синтаксис, что и оператор Print #. Отличие состоит в форматировании вывода. Если Print # сохраняет данные в виде обычного текста, то Write # заключает текстовые строки в кавычки, а цифры выводятся без кавычек.
Print #intFH, “Мама”,”Папа”, 7645
В файле будет: Мама Папа 7645
Write #intFH, “Мама”,”Папа”, 7645
В файле будет: “Мама”, “Папа”, 7645
Данные, сохраненные с помощью оператора Write#, можно считать оператором Input #.
Закрытие файла Для закрытия открытого файла или канала предназначен оператор Close. Например,
Close #intFH
III Практическая работа на компьютере. Модификация проекта prjSubjects
Попробуем модифицировать проект prjSubjects таким образом, чтобы стандартный массив названий предметов считывался из файла Standart.txt, а итоговый массив названий предметов, которые в настоящий момент времени изучает пользователь, он будет иметь возможность записать в файл MySubject.txt.
Предварительно создадим файл Standart.txt и запишем в него с помощью отдельной процедуры массив из 16 наименований предметов. Будем использовать для этого оператор Write #.
Dim S(15) As String
Dim intFH As Integer
Dim i As Integer
S(0) = "родной язык"
S(1) = "литература"
S(2) = "алгебра"
S(3) = "геометрия"
S(4) = "физика"
S(5) = "химия"
S(6) = "иностранный язык"
S(7) = "биология"
S(8) = "география"
S(9) = "информатика"
S(10) = "технология"
S(11) = "музыка"
S(12) = "изобразительное искусство"
S(13) = "физкультура"
S(14) = "астрономия"
S(15) = "психология"
intFH = FreeFile
Open "Standart.txt" For Output As intFH
For i = 0 To 15
Write #intFH, S(i)
Next i
Close #intFH
В приведенном листинге используется "короткое" имя файла Standart.txt. Имеется в виду относительная адресация. (Проект запускается из текущего каталога и файл Standart.txt помещается в этот же каталог). Если же вы загружаете проект из среды VB, то нужно прописывать полный путь файла Standart.txt.
Теперь рассмотрим, какие изменения нам придется произвести в проекте. Нам придется изменить процедуру Inpt( ), которая находится в модуле кода, так, чтобы массив наименований предметов считывался из файла Standart.txt. Считывать информацию из файла будем с помощью оператора Input #, так как записана она была оператором Write #. Тогда процедура примет вид:
Public Sub Inpt( )
Dim intFH As Integer
Dim i As Integer
intFH = FreeFile( )
Open "Standart.txt" For Input As intFH
Do Until EOF(intFH)
Input #intFH, nameSubject(i)
i = i + 1
Loop
Close #intFH
End Sub
Во второй форме frmMySubj необходимо предусмотреть возможность записи значений полученного пользователем массива nameSubject. Для этого поместим на вторую форму еще одну командную кнопку cmdWrite с значением свойства Caption “Запись в файл”. Составим соответствующий код:
Private Sub cmdWrite_Click( )
Dim i As Integer
intFH = FreeFile
Open "MySubject.txt" For Output As intFH
For i = 0 To 15
Write #intFH, nameSubject(i),
Next i
Close #intFH
End Sub
Везде имеется в виду относительная адресация. (Загружаете проект вы из текущего каталога).
Внесите все эти изменения в свой проект и опробуйте его работу.
IV Итог урока
