Page 182 - 4192

полі екранної форми. Для цього необхідно визначити довжину
файла в байтах за допомогою функції LOF(нф).
Наприклад, для читання всієї інформації з файла можна
запропонувати один з двох варіантів:
Варіант 1
Do Until EOF (1)
Line Input #1, String
Text= Text & String
Loop
Варіант 2
Text=Input$(LOF(1),1)
Close #1
Обидва варіанти приводять до однакового результату.

3 ОБРОБКА ФАЙЛОВИХ СТРУКТУР ДАНИХ З
ДОВІЛЬНИМ ДОСТУПОМ

Відкриття файлу з довільним доступом
Для роботи з файлом у режимі довільного доступу його
потрібно відкрити оператором Open, що має вигляд:
Open Ім’яФайла For Random As [#] Дескриптор
[Len=ДожинаЗапису]
де Ім’яФайла – вираз рядкового типу, що подає ім’я
файлу. Наприклад:
“D:\TK17\Файли_даних\Ціна.dat”
“Ціна.dat”
У першому випадку зазначено папку, в якій зберігається
файл Ціна.dat, а в другому передбачається, що він зберігається
у поточній папці.
Нижче наведено деякі поняття, що стосуються роботи з
файлами з довільним доступом.
Дескриптор – вираз цілого типу, що визначає номер
каналу введення/виведення для файлу, що відкривається
(наприклад, 1). Символ # перед дескриптором необов’язковий.

181