Декодирование HEX

[KDima]

Как мне раскодировать значение некое...
Ну вот допустим у меня есть HH моя прога сама обрабатывает две буквы HH! и запускает в процу два значения. Похоже 16 и 16!
Как получить 256?
Просьба программерам на VB не беспокоится!

[GM]

HEX->DEC

Код: Выделить всё

msgbox val("&H" & value & "&")


Это ты имееш ввиду?

[KDima]

Нет!
Я декодирую Quoted-Printable текст.
Он выглядит так: =AB =12 =F9 =B6 =01
AB, 12, F9, B6, 01 это числа в хексе
Моя прога оочень круто распарсивает этот текст
и передаёт его некой библе в процу! мне нужно дописать в библу.
Предположим передаются сразу соответсвующие намберы!
Ака =01 => Call MyProc(0, 1)
Ака =AB => Call MyProc(11, 12)

MyProc должна вернуть число, которое в хексе.... было!
Ну короче нам нужны телепаты!

[Inferno]

Public Function HeXToDec(HexValue As String) As Byte
Dim LowByte As Byte
Dim HightByte As Byte

If Asc(Mid(HexValue, 2, 1)) > 64 And Asc(Mid(HexValue, 2, 1)) < 71 Then LowByte = Asc(Mid(HexValue, 2, 1)) - 55
If Asc(Mid(HexValue, 1, 1)) > 64 And Asc(Mid(HexValue, 1, 1)) < 71 Then HightByte = Asc(Mid(HexValue, 1, 1)) - 55
HeXToDec = HightByte * 16 + LowByte
End Function

Надеюсь разберешься.

[KDima]

HeXToDec = HightByte * 16 + LowByte


Так просто!

Надеюсь разберешься.

Я даже догадываюсь, что да...

Просьба программерам на VB не беспокоится!

Но хоть спасибо за "алгоритм"

[RayShade]

ААА! Уже второй раз!!! Название темы повергает меня в конвульсии!!! На этот раз, чтоб наверное, усилить эффект, написано специально БОЛЬШИМИ буквами

[KDima]

Ну!!! А как её назвать?!

Зачем поднимать мой позор (заголовок + содержание)!

[uhm]

[off]
RayShade, не в обиду тебе, но после таких сообщений сразу вспоминается текущая подпись tyomitch'а

[RayShade]

Как как. Можно написать "Конвертация строкового представления шестнадатеричных чисел в целочисленное"

[Andrey Fedorov]

Я декодирую Quoted-Printable текст.
Он выглядит так: =AB =12 =F9 =B6 =01
AB, 12, F9, B6, 01 это числа в хексе
Моя прога оочень круто распарсивает этот текст

Вообще функция круто распарсивающая указанную строку и возвращающая байтовый массив должна выглядеть примерно так:

Код: Выделить всё

Private Function PHexToByte(s As String) As Byte()
    Dim v As Variant, m() As Byte, i As Long

    v = Split(s, "=")
    If UBound(v) > 0 Then
        ReDim m(UBound(v) - 1)
        For i = 1 To UBound(v)
            m(i - 1) = CByte("&H" & v(i))
        Next i
        PHexToByte = m
    End If
End Function

Пример ее использования:

Код: Выделить всё

Dim s As String, m() As Byte, i As Long
s = "=AB =12 =F9 =B6 =01"
   
m = PHexToByte(s)

For i = 0 To UBound(m)
    Debug.Print i + 1, m(i)
Next i

[RayShade]

Пробелы бы сперва убил из строки что ли.

[Andrey Fedorov]

Пробелы бы сперва убил из строки что ли.

Даром не надо - и так все работает...

[KDima]

Спасибо, но я писал:

Просьба программерам на VB не беспокоится!

[Andrey Fedorov]

Спасибо, но я писал:

Просьба программерам на VB не беспокоится!

Тогда странно - ты не указал на каком еще языке тебе это надо - пишешь-то именно в конференцию по VB. Впрочем ладно - я спокоен - пойду посплю... Пока тебе объясняют решение на счетах...

[KDima]

Andrey Fedorov

Да нет! спасибо! Просто куда постить? В народный трёп? Та сплошной флуд!

[Cryonyx]

Ну, есть ещё и форумы по яве, скриптам, сям, дельфям [нужное подчеркнуть]
Уж там точно программеры на ВБ беспокоиться не будут

[GM]

HeXToDec = HightByte * 16 + LowByte


Так просто!

Но хоть спасибо за "алгоритм"

Чо то я не понял, а val("&H" & value & "&"), это сложно или неправильно ???

[Cryonyx]

Это сложно
Оно будет выглядеть примерно как &HABC0123&

[KDima]

Просьба программерам на VB не беспокоится!

Мне просто нужен был алгоритм... в народном трёпе ничего кроме флуда не получить.

Cryonyx

Форумов по яве НЕТ. Хотя задавать подобные вопросы на developer.nokia.com...

[xolod]

Форумов по яве НЕТ

Да ладно? Может кто-то не умеет (не хочет?) искать.
Форум первый по Java
Форум второй
Форум третий
Форум четвертый

И нефига спрашивать в топике по VB, именно по VB лабуду всякую