| Вопрос: Перевод бинарного файла в текстовый | Добавлено: 21.06.02 10:31 |
Автор вопроса:  y
|
|
Может кто подскажет,как написать: текст записать в бинарном виде в файл и обратно прочитать файл и перевести в текст. Т.е. что-то типа base64 только проще- каждый символ записать в бинарном виде и при обратном прочтении перевести снова в символ. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Вопросов: 12 Ответов: 147 |
Web-сайт: Профиль | | #1 | Добавлено: 22.06.02 06:37 |
|
Это просто. Используй Hex(Asc(Mid... для каждого символа для перевода в Hex вид, а потом для возврата используй Chr("&H" & HexStr)...
Или проще посмотри пример: www.octal.narod.ru/out.rar
|
||
|
Номер ответа: 2 Автор ответа:  hak Вопросов: 5 Ответов: 12 |
Профиль | | #2 | Добавлено: 29.04.05 13:54 |
| Благодарю за своевременно заданный вопрос, иначе мне пришлось бы его задать. | ||
|
Номер ответа: 3 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 29.04.05 15:19 |
|
Самое простое решение - запись в HEX кодах...
т.е. есть текст в lpString: Dim lpString As String, _
i As Long lpString = Hello open "c:\1.txt" For Binary Access Write As 1 For i = 0 to Len(lpString) - 1 Put 1, , CStr(Format(Hex(Abs(Mid(lpString, i + 1, 1))), "00"  )
Next close Код Писал от руки, может где набрехал... Восстанавливать примерно в том же порядке, считываем два символа, прибавляем к ним "&H", юзаем Val чтобы получить число, далее Chr и получается символ... |
||
|
Номер ответа: 4 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #4 | Добавлено: 12.03.06 21:24 |
| Там такого файла нет. | ||
|
Номер ответа: 5 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #5 | Добавлено: 12.03.06 21:38 |
|
Ссори за офф-топ
Fever - ты кому отвечаешь? Тема 02 года, хватит |
||
Страница: 1 |