Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Перевод бинарного файла в текстовый Добавлено: 21.06.02 10:31  

Автор вопроса:  y
Может кто подскажет,как написать:
текст записать в бинарном виде в файл и
обратно прочитать файл и перевести в текст.
Т.е. что-то типа base64 только проще- каждый символ
записать в бинарном виде и при обратном прочтении перевести снова в символ.

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 root



Вопросов: 12
Ответов: 147
 Web-сайт: www.vbnet.ru
 Профиль | | #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-сайт: hw.t-k.ru
 Профиль | | #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-сайт: bit.pirit.info
 Профиль | | #5
Добавлено: 12.03.06 21:38
Ссори за офф-топ

Fever - ты кому отвечаешь?
Тема 02 года, хватит

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам