Для начала...
http://azbukavb.narod.ru/vdb.html
xolod писал(а):Способ один - дописывать базу в конец файла...
Public BeginPos As Long
Open "Программа.exe" For Binary As #1
BeginPos = LOF(1) 'запоминаем адрес начала наших данных
varTemp = то что ты хочешь сохранить
Seek #1, LOF(1)
Put #1, , varTemp 'записываем данные в конец файла
Put #1, , BeginPos 'записываем адрес начала данных
Close (1)
Public BeginPos As Long
Open "Программа.exe" For Binary As #1
Get #1, LOF(1) - 3, BeginPos 'Получаем адрес начала данных
Seek #1, BeginPos 'Переходим к ним
Get #1, , varTemp 'Считываем данные
Close (1)
Public BeginPos As Long
Open "Программа.exe" For Binary As #1
Get #1, LOF(1) - 3, BeginPos 'Получаем адрес начала записанных данных с прошлого раза
Seek #1, BeginPos 'Переходим к ним
Put #1, , varTemp 'Записываем новые данные на место старых
Seek #1, LOF(1) 'Идем в конец файла
Put #1, , BeginPos 'записываем адрес начала новых данных
Close (1)
Сейчас этот форум просматривают: SemrushBot и гости: 4