Реферат: Основы Visual Basic 50

FileNum=FreeFile

Open “My.txt” For Append As FileNum

Print #FileNum, “До свидания”

Close #FileNum

При обработке больших файлов часто необходимо проверять на достижение конца файла. Для этого существует оператор EOF (идентификатор файла).

Фрагмент программы чтения информации из файла, созданного с помощью оператора Print #

. . . . .

B$ = “ ”

FileNum=FreeFile

Open “My.txt” For Input As #FileNum

Do Until EOF(FileNum)

Line Input #FileNum, A$

B$=B$+A$

Loop

txtDisplay.Text=B$

Close #FileNum

Файлы прямого доступа

Напоминают базу данных. Файл состоит из упорядоченных записей одинакового размера. Существует запись, состоящая из полей, в которых содержаться данные. Обеспечивает быстрый поиск информации, но дисковое пространство используется неэффективно.

При создании файла указывается максимальная длина существующей записи. Команда создания файла:

Open “MyLib.dat” For Random As # идентификатор файла

Len = длина записи, можно определять с помощью функции Len (имя переменной записи) в текущем каталоге.

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

Close # идентификатор файла - закрывает файл.

Каждая запись в файле имеет номер записи. Это позволяет работать с конкретной записью. При описании записи задаются пользовательским типом:

Type Books

Auther As String *30

Title As String *40

End Type

Запись, содержащую пятой записи файла в переменную:

К-во Просмотров: 909
Бесплатно скачать Реферат: Основы Visual Basic 50