[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Файлы произвольного доступа Visual Basic (Файлы произвольного доступа Visual Basic)
Файлы произвольного доступа Visual Basic
ilimДата: Пятница, 04.02.2011, 05:20 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Файл с произвольного доступа обладает заданной структурой и состоит из записей(также как и БД). Каждая запись имеет свой номер в файле. Доступ к данным осуществляется по этому номеру. Т.е. мы можем использовать обычный текстовой файл как базу данных.
Открытие файла производится только в режиме Random. Для записи и чтения существуют операторы Put и Get
Напишем простенькую программу, которая будет записывать и читать из текст. файла записи. На форму кинь одно текстовое поле, и 2 кнопки(Command1 - Caption = "Запись", Command2 - Caption = "Чтение"). Код

' Объявляем переменные
Dim PutNomer As Long, GetNomer As Long, Gets As String

Private Sub Command1_Click()' При нажатии на кнопку "Запись":
PutNomer = PutNomer + 1' переменная PutNomer - это номер записи, при каждом нажатии на кнопку, на 1 больше
Open "c:\1.txt" For Random As #1' Открываем файл 1.txt, если его нет, то он создастся, и еше, я написал #1 - это номер свободного канала, вместо него можно использовать функции FreeFile
Put #1, PutNomer, Text1.Text' Записываем текст, который в текст. поле
Close #1' Закрываем файл:
End Sub

Private Sub Command2_Click()' При нажатии на кнопку "Чтение":
GetNomer = GetNomer + 1' Переменная GetNomer становится на 1 больше
Open "c:\1.txt" For Random As #1
Get #1, GetNomer, Gets' Читаем текст в переменную Gets, по номеру записи
Close #1
Text1.Text = Gets' То, что прочитали выводим в текст. поле
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Файлы произвольного доступа Visual Basic (Файлы произвольного доступа Visual Basic)
Страница 1 из 11
Поиск: