Работа с файлами с произвольным доступом

[Smoke865]

Пожалуйста откликнитесь! Не буду писать, что пробовал сделать, так как раз не работает, значит лажу писал, но есть большая проблема.
Например есть 10 произвольных файлов и информацией. Необходимо загнать все в один, чтобы можно было вызвать информацию по идентификатору записи. Проблема у меня при записи (возможно и при чтении, но до этого еще не доплыл). Вые время выдает неверный тип (Err 58). Пробовал всеми известными мне способами, но без толку. Хелп!!!

[d3drm]

читай файлы в массивы типа byte и записывай эти массивы в один файл.

dim f as integer
f = freefile
Open "File.any" for Binary as f
' Чтение или запись
close f

[Smoke865]

Если я правильно понял, то запись записью, а вот как быть с идентификаторами? Это прийдется весь файл перебирать? Если так, то не выйдет, будет жутко лагать, так как файл порядка 25 мб...

[val]

Ты бы хоть код выставил....
А то "Найдите мне ошибку...."

[Smoke865]

Ты бы хоть код выставил....
А то "Найдите мне ошибку...."

Вот пожалуйста код:

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


'id - id файла
'в text(id) данные из файла уже записаны и перебирается массивом
nfile = FreeFile
Open "d:\smoke\base.dat" For Random As #nfile
Put #nfile, id, text(id)
Close #nfile

[d3drm]

Рандом нах?

[d3drm]

И что за идентификаторы? Положи в файл сначала длинны всех масивов, затем при чтении ты будешь знать какой размер информации для каждого файла считывать.

[Smoke865]

И что за идентификаторы? Положи в файл сначала длинны всех масивов, затем при чтении ты будешь знать какой размер информации для каждого файла считывать.

Если не очень сложно, можешь написать пример???