ПОНЯТНО О Visual Basic NET (том 3)




Типизированные файлы «Старый» доступ к файлам - часть 2


        FileOpen (1,  "E:\Папка\База.gor",  OpenMode.Random)

        Dim i As Integer

        For i = 1 To 4

            FilePut(1, Сп(i))

        Next

        FileClose(1)

End Sub

Пояснения: Первая половина процедуры в пояснениях не нуждается. Поговорим о второй половине.

Для работы с типизированными файлами мне показалось проще использовать не модель .NET System.IO, методами которой мы пользовались для работы с текстовыми файлами, а процедуры модуля FileSystem пространства имен Microsoft.VisualBasic, доставшиеся в наследство от Visual Basic 6.0.

Открывается файл процедурой FileOpen. Второй параметр этой процедуры – адрес файла на диске, а первый параметр – придуманный вами номер файла, по которому вы в дальнейшем будете для краткости к нему обращаться. Вы можете одновременно открыть несколько файлов, но только под разными номерами.

Обратите внимание на расширение, которое мы придумали файлу База.gor. Типизированные файлы – это не текстовые файлы и просматривать их при помощи Блокнота не имеет особого смысла. Информация в них кодируется совсем по-другому, чем в текстовых файлах, и поэтому «текстовыми глазами» Блокнота мы увидим только вводящий в заблуждение кроссворд непонятных символов. Поэтому и расширение txt не приносит никаких удобств. Раз так, то в качестве расширения я использовал первые попавшиеся буквы –  gor. Мог бы и вовсе обойтись без расширения.

Третий параметр – Random – элемент перечисления OpenMode. Именно он и приказывает считать этот файл типизированным файлом с произвольным доступом.

Осуществляет запись информации в файл с произвольным доступом процедура FilePut. Первый ее параметр – номер файла, а второй – переменная, значение которой записывается в файл. В нашем случае это Сп(i) – структура информации об очередном спортсмене. Мы можем указать и третий параметр – номер записи в файле, но у нас он не указан, поэтому записи будут писаться подряд одна за другой, как при выводе информации в текстовый файл. О номере – чуть позже.




Содержание  Назад  Вперед