Вставка данных

[Fridx]

При изменении данных в файле посредством Put #1, strok, MyDat, если изменять самую последнюю строку, которая типа пустая и её как такавой нет, файл увеличится как раз на размер этой строки. Но как быть если надо не изменить, а вставить новую строку в середину файла?
Можно конечно перед вставкой скопировать последнюю строку на новую, затем предпоследнюю на место последней, потом пердпредпоследнюю на место предпоследней и т.д. до середины файла, где появится одна лишняя строка, в замен которой записываем новую. Но может есть способ попроще??

[Хакер]

Есть. Но в принципе такой-же но выглядит проще чем ты описал.
InsertPos - позиция, куда вставляем.
InsertData - данные, которые вставляем.

Пусть файл уже открыт As Binary

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


Dim Buffer As String 'Буфер он и в Африке буфер.
Buffer = Space(LOF(1)) '
Get #1,1, Buffer
Buffer = Left(Buffer,InsertPos-1)+InsertData+Right(Buffer,Len(Buffer)-(InsertPos-1))
Put #1,1,Buffer


Или тебе ышо проще надо

[Fridx]

Благодарен