| Вопрос: Побайтовое открытие и сохранение файла | Добавлено: 26.03.07 07:36 |
Автор вопроса:  avax | Web-сайт: znak.krovatka.ru
|
|
Всем привет.
Помогите пожалуйста с кодом. Можно ли это сделать: нужно побайтово открыть любой файл, скажем, рисунок JPG, добавить в конец файла несколько байтов и затем сохранить обратно в формат JPG. Спасибо. Используемая версия: Microsoft Visual Basic 6.0 Professional Edition ОС: Microsoft Windows XP SP2 RUS |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 26.03.07 08:37 |
| Open ... For Binary | ||
|
Номер ответа: 2 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 26.03.07 08:54 |
|
На точнее:
Dim strString As String
Open "c:\temp.jpg" For Binary Access Write As #1 strString = "Фигня всякая" Put #1, LOF(1) + 1, strString Close #1 |
||
|
Номер ответа: 3 Автор ответа: avax Вопросов: 2 Ответов: 2 |
Web-сайт: Профиль | | #3 | Добавлено: 26.03.07 11:41 |
| Спасибо! Все работает. | ||
|
Номер ответа: 4 Автор ответа: Calhoon ICQ: 789764 Вопросов: 90 Ответов: 230 |
Web-сайт: Профиль | | #4 | Добавлено: 27.03.07 15:13 |
|
2 Arseny:
Встречный вопрос: если заменить put на print, будет ли разница? |
||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 27.03.07 19:02 |
|
2Calhoon: по-моему будет.
Print используется для файлов последовательного доступа, а put - для прямого. |
||
|
Номер ответа: 6 Автор ответа: ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #6 | Добавлено: 28.03.07 08:42 |
| разница будет однозначно. Print и Write предназначеня для записи в файл строк. | ||
|
Номер ответа: 7 Автор ответа: BonapartICQ: 175256 Вопросов: 32 Ответов: 108 |
Web-сайт: Профиль | | #7 | Добавлено: 28.03.07 09:19 |
|
Viper там Write нету
Как и во всем VB |
||
|
Номер ответа: 8 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #8 | Добавлено: 28.03.07 11:10 |
|
Private Sub Form_Load()
ff = FreeFile Open "c:\1.txt" For Output As ff Write #ff, "text" Close ff End Sub bonapart, ну это так, для информации  ))
|
||
|
Номер ответа: 9 Автор ответа: ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #9 | Добавлено: 28.03.07 13:20 |
| Как это в VB нет Write? Есть он там. Собстно мой пост был расширенным ответом на вопрос от Calhoon | ||
Страница: 1 |