Ведущий
рассылки:
Сёмин Герман
Сергеевич akaFerrUM
Привет
всем!!! Вот мы и
перешли на
средний
уровень. В
этом и в
следующих
выпусках вы
научитесь
работать в VisualBasicс
файлами и
базами
данных.
Урок
– 12
“Работа с
файлами”
Работа
с ASCII-файлами
В VisualBasicвам
придётся
работать с
двумя типами
файлов,
хранящихся
на диске-
базами
данных и ASCII– файлами. К ASCII– файлам вы
будете
обращаться,
когда вам
нужно будет,
например,
создать
таблицу
рекордов,
работать с INI или TXT-файлами
или с
чем-либо
другим. Работа
с файлом
любого типа
начинается с
его открытия,
для этого
используется
оператор Open.
Минимальный
набор
параметров
для
оператора Openсоставляет
имя файл,
режим
доступа и
файловый
номер.
Синтаксис
оператора Open выглядит
так:
OpenимяфайлаForрежимдоступаAsномерфайла
Параметр имяфайла
определяет
имя
открываемого
файла.
Параметр режимдоступа
может иметь
значения Append(дополнение),
Input (Ввод), Output
(Вывод), Binary
(Двоичный) и Random(Произвольный).
И наконец,
параметр номерфайлаопределяет
так
называемый
номер файла -
целое число, по
которому идентифицируется
открываемый
файл.
При
попытке
открыть не
существующий
файл в
режимах Append,Binary,Outputили RandomVBсоздаст
новый пустой
файл.
После
завершения
работы с
файлом его
следует
закрыть:
Closeномерфайла
Последовательный
доступ
При
сохранении
или чтении
данных в VBнередко
используется
последовательные
файлы.
Последовательный
файл состоит
из ASCII– строк(например
txt– файл). Для
записи
данных в файл
его следует
открыть в
режиме Outputили Append.
Если файл не
существует,
то VBсоздаст
новый, а если
существует,
то при его
открытии в
режиме Outputсуществующие
данные
стираются, а в
режиме Appendновые
данные
добавляются
в конец файла.
Чтобы
прочитать
данные из
файла, его
нужно
открыть в
режиме Input.
При открытии
всегда
используется
номер файла и
не забывайте
закрывать
файл
командой Close.
Ниже
приведён
пример
программы,
который
создаёт в
каталоге C:\Data|
файл и
записывает в
него две
строки:
DimFileNoasInteger‘
Объявление
переменной
номера файла.
FileNo
= FreeFile‘FreeFileвозвращает
свободный
файловый
номер,
который
будет ‘использоваться
в операторах Close, Print
#, Open
Open
“C:\data\test.txt” For Append as FileNo ‘Открываемфайл
Print
#FileNo, “Работа
с” ‘Записываем
в него строки
Print
#FileNo, “файлами”
Close
FileNo ‘Закрываем
файл
Приведённый
выше код
можно
использовать
при нажатии
на любую
кнопку.
На
этом урок
закончен, о
том, как
считывать
данные и о
многом
другом в
следующих
выпусках. !!!!