Конференция VBStreets

**XairOn** » 13.06.2005 (Пн) 16:19

Блин... да что за день сегодня такой... ничего сам сделать не могу... уже третий топик создавать приходится... Помогите, нужно добавить данный в файл открытый, как Binary, т.е. я открываю файл: Open file For Binary As 1 ну и т.д. Записываю, что-либо в него, а потом мне нужно добавить туда данные, что бы не потерять уже имеющиеся... как это сделать???

**Jenizix** » 13.06.2005 (Пн) 16:24

Append ???

**XairOn** » 13.06.2005 (Пн) 16:53

какой append??? разве так можно??? я думал, если файл двоичный, это не канает!?

**ANDLL** » 13.06.2005 (Пн) 17:20

put #1,LOF(#1),"здрасте"

**Odrick** » 13.06.2005 (Пн) 17:22

Дык тебе нужно просто переместить указатель в конец файла. В TB была для этого специальная функция. А вот в VB не знаю, право... Как вариант, перед записью считываешь последний байт в файле:

Код: Выделить всё: get #1, lof(1), nVal

Это переместит на него указатель.
Ну а потом уже можешь смело записывать:

Код: Выделить всё: put #1, , nVal

Так у тебя данные будут добавляться в конец файла.

**XairOn** » 13.06.2005 (Пн) 19:21

всем спасибо... проблема решена...

**Alexander N. Samarin** » 14.06.2005 (Вт) 12:20

XairOn писал(а):какой append??? разве так можно??? я думал, если файл двоичный, это не канает!?

Сейчас сделал прогу, которая получает String, а затем его Append'ом запихивает в файл. Фишка в том, что в String'е передается двоичный файл.
Все пашет

Конференция VBStreets

Добавление данных в файл

Добавление данных в файл

Кто сейчас на конференции