VBNet - Форум - ПЕРЕВОД Binary переменной в String

Вопрос: ПЕРЕВОД Binary переменной в String Добавлено: 13.03.04 19:35

Автор вопроса: HACKER

Странный глюк у меня с переменными которые берутся при Put #2, , b Хотя быть может это и не глюк, а меня глючит, вообщем вот.
    Open pa(Di1) + F1.FileName For Binary As #1
    Open pa(Di1) + "987654321.qwe" For Binary As #2
    Open App.path & "\1.txt" For Output As #3

Do While Not EOF(1)
    Get #1, , a '<< Тут получается какое-то число
b = a + 554 '<< Это я так для примера, вообщем тут я что-то изменяю в переменной (делаю другое число)
    Put #2, , b '<< Сюда записуется, но не число, а тот символ который наверное закодирован в это чило
    Print #3, b '<< А мне сюда это надо, именно это число надо!
Loop
Ну так как перевести эту бинарную переменную в нормальную что б её в файл можно было сохранить, нужно сохранить именно то число которое кидается в эту переменную.

Ответить

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

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

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #1

Добавлено: 13.03.04 20:48

А зачем те все это посимвольно считывать ???

    Open lpFileName For Binary Access Read As nf
        sFileData = String$(LOF(nf), &H0)
        Get nf, 1, sFileData
    Close nf

Но если все же очень нужно - то можно перевести это "число" вот так Chr$("число")

Ответить

Номер ответа: 2
Автор ответа:

manj18

ICQ: 344833913

Вопросов: 12
Ответов: 21

Профиль | | #2

Добавлено: 15.03.04 03:40

если тебе надо что-бы там были числа попробуй либо

Print #3, STR(b) либо Print #3, b, либо Print #3, b;

может что и поможет

Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 15.03.04 20:44
	Да я пробовал, нечего непоможет!!! Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 15.03.04 20:46
	to sne Ну как зачем!!! Потому что я exe считываю, а эта переменная обрабатыфваться нехочет, не chr(x) непомогает нечего, а перевести надо!!!!!! Ответить

Номер ответа: 5
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #5

Добавлено: 15.03.04 21:54

Ну а если считать весь файл в String'овую переменную а потом уже отдельные байтики вычленять ? Как весь файл в стринг загнять я отпостил... может я саму проблемму не понял...

Ответить

Номер ответа: 6
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #6

Добавлено: 16.03.04 13:21

Используй CreateFile, ReadFile, CloseHandle, RtlMoveMemory и т.п., тогда ты будешь управлять своим файлом, как и памятью на уровне байтов...

Ответить

Страница: 1 |