.exe и база данных .txt в одном .EXE файле ???

[soundex2]

Для начала...
http://azbukavb.narod.ru/vdb.html

[xolod]

Способ один - дописывать базу в конец файла.

Алгоритм:
1) открываем exe файл для записи
2) ищем наш заголовок (см. дальше)
3) если есть, переписываем базу с этой позиции. если нет - пишем в конец добавляя заголовок, чтобы потом можно его было найти.
4) закрываем файл

когда надо редактировать, просто читаешь базу из exe в отдельный временный файл, редактируешь, потом запихиваешь обратно в exe.

[Yurich]

Способ один - дописывать базу в конец файла...

Да, по-идее правильно, но только по-идее! Ранее подобный вопрос рассматривали в форуме. Попробуй изменить .ехе, с которого был запущен процесс! В среде ВБ - получается, после компиляции - нет.
При таком решении надо создавать два временных ф-ла - копию .ехе и копию базы.

[Kostyan]

У тебя не получится дописать что-либо в конец своего экзешника, потому что в этот момент он будет запущен и закрыт виндой для редактирования. Вот.

А вообще в конец программы дописывается так:

Код: Выделить всё

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)


[Kostyan]

Сам не пробовал, но примерно так:
При первом добавлении данных в файл используешь тот еж код. А при следующих перезаписях данных делаешь так:

Код: Выделить всё

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)


Считываешь так же как обычно.

[Kostyan]

Я тебя навел на путь, дальше думай сам, попробуй поэкспериментировать, пару раз повесить систему, может и вовсе переустановить её, но главное не отступай от цели и тогда всё получится. Тот пример что дал тебе я - совсем сырой, и доводить его до совершенства уже твоя задача, я умываю руки.