Бинарный режим.

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Elkatib
Начинающий
Начинающий
 
Сообщения: 10
Зарегистрирован: 08.01.2006 (Вс) 17:52

Бинарный режим.

Сообщение Elkatib » 08.01.2006 (Вс) 17:55

Вот такой вот ещё вопрос появился:
Как правильно считать половину файла?
Как Считать\записать байты в файл с определённой позиции?
Как записать файл, так, что бы мои данные (байты) записались начиная со следующего байта, который стоит после последнего, то есть как по сути дописать байты в конец!
Знаю только, как записать байты из одного файла в другой, то есть по сути сделать копию:

Open "C:\z.mp3" For Binary As #1
Open "C:\test.mp3" For Binary As #2
Dim Vbuf As String * 1000
Do Until EOF(1)
Get #1, , Vbuf
Put #2, , Vbuf
Loop
Close #1
Close #2

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 08.01.2006 (Вс) 18:07

Вариант 1:
1) Get #1, lof(1)\2 , Bufer
2) Get (Put) #1, Position , Bufer
3) Open ... For Append
Вариант 2:
1) MSDN -> Get Statement + LOF function
2) MSDN -> Get ( Put Statement )
3) MSDN -> Open Statement
Последний раз редактировалось vvs_adm 08.01.2006 (Вс) 18:28, всего редактировалось 3 раз(а).
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!

Elkatib
Начинающий
Начинающий
 
Сообщения: 10
Зарегистрирован: 08.01.2006 (Вс) 17:52

Сообщение Elkatib » 08.01.2006 (Вс) 18:17

Насчёт 2-ого:
Open "C:\z.mp3" For Binary As #1
Open "C:\test.mp3" For Binary As #2
Dim Vbuf As String * 1000
Do Until EOF(1)
Get #1, 1000, Vbuf
Put #2, , Vbuf
Loop
Close #1
Close #2

---------
как я понимаю в данном случае... код считывает все данные начиная с 1000 байта (z.mp3) и о записывает их в отдельный файл test.mp3
не знаю в чём причина, но данный код не работает!


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: AhrefsBot, Google-бот, SemrushBot и гости: 161

    TopList  
cron