Open “Text. txt” For Input As intFH1

Open “C: / DAN / Text. txt” For Output As intFH2

Open “Proba. txt” For Append As intFH3

Команда открытия файла.

Open «Имя пути. txt» «Режим работы» С # номер файла. Например,

Open «S: / Windows / Рабочий стол / Учебный процесс / Вектор.txt». Input S #1.

Режим работы.

Output – для записи данных файлов.

Append - для добавления

Input – для чтения данных из файла. Число любое, целое (1-511)

Режим работы:

1. Output – для записи данных (имеющиеся стираются)

2. Append – для добавления информации в конец файла

3. Input – для чтения данных из файла

В качестве номера файла можно использовать целое число от 1 до 511

Чтение из файла.

Способы:

1. Оператором input. Запись – input#1, список,,

2. Оператором line input – считывает целую строку. Запись – line input #1, строка

3. С помощью функции output - чтение всего содержимого файла и помещение его на форму Text Box, которому предварительно задаются свойства.

Multiline – true

Scrollbars – Vertical

LOF – определяет размер файла в символах

Kolvo = LOF (1)

Text1, text=input (kolvo, #1)

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

1)Line Input # считывает одну строку;

2)Input # считывает последовательность символов, обычно записанных с помощью оператора Write #;

3)Input$ считывает определенное количество символов.

Существует несколько вариантов чтения всей информации из файла. Перед чтением нужно открыть файл с помощью оператора Open…For Input:

IntFH = FreeFile

Open “Tex t.txt” For Input As intFH

Первый вариант

Do Until EOF(intFH)

Line Input #intFH, strString

StrText = strText & strString & vbLf

Loop

Второй вариант

StrText = Input $ (LOF(intFH), intFH)

Оба варианта приводят к одинаковому результату. В первом варианте оператор Input выполняется в цикле, пока не будет достигнут конец файла. Функция EOF(End Of File) возвращает значение True при достижении конца файла. При этом на каждом шаге цикла считывается отдельная строка и к ней добавляется символ конца строки, который отбрасывается оператором Line Input.

Во втором варианте весь файл считывается функцией Input $. Функция LOF (Length Of File) позволяет определить длину файла в битах.

Независимо от вида оператора Input указывается не имя файла, а только номер канала, т.е. дескриптор файла (intFH).

Чтение из файла