| Вопрос: Открыть в бинарном виде! | Добавлено: 13.09.07 18:05 |
Автор вопроса:  Игорь | ICQ: 457394129 |
| Подскажите как открыть файл в бинарном виде, и потом этот код вновь сохранить в файл! Домустим открыли 1.mp3, а сохраним в 10.mp3! |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #1 | Добавлено: 13.09.07 19:18 |
|
Правда копирует байты с файла в файл долго Private Sub Command1_Click() Dim T As Byte Open "1.mp3" For Binary As #1 Open "10.mp3" For Binary As #2 For i = 1 To LOF(1) Get #1, i, T Put #2, i, T Next i Reset End Sub |
||
|
Номер ответа: 2 Автор ответа:  ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #2 | Добавлено: 13.09.07 22:51 |
|
Если только копировать надо, то
CopyFile "1.mp3", "10.mp3"
|
||
|
Номер ответа: 3 Автор ответа: intel-DXICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #3 | Добавлено: 14.09.07 00:33 |
|
Может Игорю нужно изменять инфу О исполнителе, о альбоме, а потом сохранить под другим именем.
Но я бы делал все подругому. |
||
|
Номер ответа: 4 Автор ответа: ИгорьICQ: 457394129 Вопросов: 52 Ответов: 133 |
Профиль | | #4 | Добавлено: 14.09.07 13:17 |
| Короче задача такая! На одну кнопку нужно зделать: открыть файл в бинарном виде, при этом весь бинарный код загнать в текстовое поле. А на вторую-сохранение этого кода в файл тогоже расширения, но допустим с другим именем! | ||
|
Номер ответа: 5 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #5 | Добавлено: 14.09.07 14:07 |
|
Если загнать бинарник в текстовик, то при сохранении он испортится, имхо, т.ч для этого годятся либо строка, либо байтовый массив
|
||
|
Номер ответа: 6 Автор ответа: nguufxm6bo Вопросов: 0 Ответов: 27 |
Профиль | | #6 | Добавлено: 15.09.07 02:07 |
| Испортися однозначно, если сохранять из техбокса. | ||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 15.09.07 02:25 |
Ну вот использовать текстбокс для юзера, калякималяки ему из файла в нём показать, но также загрузить файл в строковую переменную или байтовый массив, и схохранять уже оттуда 
|
||
|
Номер ответа: 8 Автор ответа: RetupaВопросов: 1 Ответов: 51 |
Профиль | | #8 | Добавлено: 15.09.07 02:53 |
|
Dim s() As Byte
Dim strFilePath As String strFilePath = "............." ReDim s(1 To FileLen(strFilePath)) As Byte 'Открыть Open strFilePath For Binary As #1 Get #1, , s() Close #1 'Показать, если всё таки надо (и если получится) Text1 = StrConv(s(), vbUnicode) 'Сохранить strFilePath = "............." Open strFilePath For Binary As #1 Put #1, , s() Close #1 |
||
Страница: 1 |