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




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


Вот процедура чтения из файла одной нужной нам записи с указанным номером:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim Спортсмен As типСпортсмен

        Dim Номер As Integer = CInt(TextBox1.Text)

        'Считываем из файла информацию об одном спортсмене:

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

        FileGet(1, Спортсмен, Номер)

        FileClose(1)

        'Отображаем информацию об одном спортсмене:

        TextBox2.Text = Спортсмен.Фамилия

        TextBox3.Text = Спортсмен.Дата

        TextBox4.Text = Спортсмен.Мужчина

        TextBox5.Text = Спортсмен.Вес

    End Sub

Пояснения: Создаем рабочую переменную Спортсмен типа структуры типСпортсмен. Пусть нас интересует информация, хранящаяся в файле в записи №3. Мы вводим число 3 в поле TextBox1. Функция CInt на всякий случай преобразует то, что мы ввели, в тип Integer. Результат присваивается переменной Номер. В процедуре FileGet мы указали параметр Номер, поэтому она считывает из файла в переменную Спортсмен запись с номером 3. Обратите внимание – записи 1 и 2 не считываются, время на них не тратится, компьютер сразу «прыгает» к записи 3. В текстовых полях появляется информация о спортсмене №3.

Исправляем одну запись. Вот процедура исправления записи с указанным номером:

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim Спортсмен As типСпортсмен

        Dim Номер As Integer = CInt(TextBox1.Text)

        'Создаем в памяти компьютера информацию об одном спортсмене:

        Спортсмен.Фамилия = TextBox2.Text

        Спортсмен.Дата = CDate(TextBox3.Text)

        Спортсмен.Мужчина = CBool(TextBox4.Text)

        Спортсмен.Вес = CInt(TextBox5.Text)

        'Записываем эту  информацию в файл:

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

        FilePut(1, Спортсмен, Номер)

        FileClose(1)




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