Page 39 - 6735

текстовим. Файли послідовного доступу, наприклад текстові,
зберігають дані в неструктурованому для звернення вигляді. Для
пошуку в таких файлах потрібно послідовно читати усі дані. Для
роботи з файлом його відкривають оператором Open і вказуюють:
шлях до файлу, режим (Append, Binary, Input, Output, Random) і
номер файлу. Для запису даних у файл послідовного доступу
використовують оператори Print і Write, а для читання – Input
та Line Input. Після завершення роботи з файлом його потрібно
закрити оператором Close. Приклад створює текстовий файл
послідовного доступу, записує в нього дані, читає дані та додає нові
дані.

Dim x, y As Double
Dim s As String

'підпрограма main
Public Sub main()
x = 5.6
'відкрити файл c:\file1.dat під номером 1 для виведення
Open "c:\file1.dat" For Output As #1
Print #1, "значення x="; x 'записати форматовані дані у
файл 1
Write #1, x ^ 2 'записати неформатовані дані у файл 1
Close #1 'закрити файл 1

'відкрити файл c:\file1.dat для введення під номером 1
Open "c:\file1.dat" For Input As #1 '
Line Input #1, s 'прочитати рядок із файлу
Input #1, y 'прочитати дане з файлу
Debug.Print s; y 'вивести s,y у вікно Immediate
Close #1 'закрити файл 1

'відкрити файл c:\file1.dat під номером 1 для додання
Open "c:\file1.dat" For Append As #1
Write #1, x ^ 3 'записати неформатовані дані у файл 1
Close #1 'закрити файл 1
39