Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
LABVB10.doc
Скачиваний:
33
Добавлен:
16.03.2016
Размер:
704 Кб
Скачать

Практическое занятие

Задание 1. Создать последовательный файл, содержащий следующие сведения о сотрудниках ООО “ЫЫЫ”: <фамилия, инициалы> <год рождения> <адрес>.

Предусмотреть пополнение списка сотрудников.

  1. Вывести содержимое файла в три массива, содержащих соответственно: фамилию и инициалы, год рождения, адрес. Найти средний возраст сотрудников.

  2. Осуществить поиск сведений о сотруднике по его фамилии. Предусмотреть два варианта поиска:

  • фамилия вводится непосредственно в текстовое поле ComboBox,

  • фамилия выбирается из комбинированного списка.

Доступ к текстовому полю элемента ComboBox осуществляется с помощью свойства Text этого элемента

Задание 2. Создать тип данных структура для представления информации о сотрудниках ООО “ЫЫЫ”, добавив поле <порядковый номер>.

Создать файл прямого доступа для записи вводимых данных.

Отобразить в первом списке данные о трех сотрудниках, начиная с заданного номера.

Осуществить редактирование данных о сотруднике с заданным номером.

Отобразить во втором списке данные о трех сотрудниках, кончая заданным номером.

Найти самого молодого сотрудника.

Задание 3. Создать на рабочем столе текстовый файл. Проверить наличие этого файла с искаженным именем, найти его с помощью окна OpenFileDialog. Отредактировать файл и скопировать в папку Projects на диск C. Предусмотреть два варианта сообщения в зависимости от того, с какой целью он открывается: для записи или для чтения.

Запись в файл прямого доступа происходит с помощью оператора

FilePut(<номер файла>,<>)

При записи данных в файл и считывании их из файла будет

Даже при создании числового файла данные оформляются, как записи, например

Type MyInteger

Int As Integer

End Type

Для работы с файлом прямого доступа его нужно открыть оператором Open.

Open <имя файла> For Random As #<номер файла> Len = <длина записи>

Имя и номер файла имеют тот же смысл, что и при работе с последовательными файлами. Ключевое слово Random указывает на то, что открываемый файл будет использован в режиме прямого доступа. Длина записи – это числовое выражение целого типа. Его значение должно совпадать с длиной переменной пользовательского типа, используемой для чтения информации из файла. Для определения длины записи можно использовать функцию Len, например,

Reclen = Len(Client1)

Для вывода информации в файл прямого доступа используется оператор Put, который указывает не только в какой файл и какую информацию писать, но и в какое место писать эту информацию:

Put #<номер файла>,[<номер записи>],<переменная>

номер записи указывает место в файле, где будет помещена запись, если оно не указано, то текущая запись будет помещена после последней записанной записи,

переменная – переменная пользовательского типа, используемая для записи, к моменту записи в файл все компоненты этой переменной должны получить соответствующие значения.

Для чтения информации из файла прямого доступа используется оператор Get:

Get #<номер файла>,[<номер записи>],<переменная>

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

Рассмотрим основные операции с файлами.

Переименование файла – Name<старое имя> As <новое имя>

Копирование файла – File Copy <имя первого файла>, <имя второго файла>

Удаление файла –Kill<имя файла>.

Имя файла в этих операторах представляет путь к файлу.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]