Преобразование Hex в числовые значения

[Don Leno]

Мне неободимо hex значение конвертировать в числа.
К примеру:
байт 255 = FF (в hex)
В алфавите Hex всего 16 символов (0-9, A-F). Вопрос как получить числовое значения каждого символа хекс кода?
Что то вроде:
байт 255 = 15(F) и 15(F)

[ger_kar]

Ничего не понял из того, что во что конвертировать.
Если dec -> hex то функции Hex() и Hex$()
Если hex -> dec то можно например так Val("&H" & str), где str - это строка символов в шестнадцатеричном формате

[Don Leno]

Нет, мне значение Hex "FF" необходимо забить в две переменые a=15 b=15
К примеру
FF = 15 и 15
0F= 0 и 15
4A = 4 и 10

[ger_kar]

Тогда тоже все элементарно.
Сначала получаем младшую часть (правую) просто прикрывая маской = &HFF And &hF
Потом старшую(левую) часть сдвигая старшую часть вправо на 4 бита = &HFF \ 16

[Don Leno]

Можно пример кодом? Как я понимаю это то, что pronto ранее писал про работу с битами в этой теме http://bbs.vbstreets.ru/viewtopic.php?f=1&t=52153

[Sam777e]

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

Dim S As String, j As Long

S = "FDA"
For j = 1 To Len(S)
  Debug.Print Clng("&H" & Mid(S, j, 1))
Next j

[ger_kar]

Так я и дал пример кодом.
Есть у меня строка например Dim s As string : s = "FF"
И мне надо превратить эту строку в две переменных разделив побитно на младшую и старшую часть.

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

Dim hexValue As Byte: HexValue = Val("&H" & s) 'Сначала получаю значение из строки
Dim B As Byte: B = HexValue And &H ' Младшая часть (AB)
Dim A As Byte: A = HexValue \ 16 'Старшая часть

Можно и наоборот сначала старшую часть, потом младшую. Разницы нет
Обратное преобразование: HexValue = A * 16 + B

[Teranas]

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

Dim sHex as string, i as integer, b() as byte

redim b(Len(sHex) - 1)

for i = 1 to Len(sHex)
  b(i-1) = val("&H" + Mid$(sHex, i, 1))
next i
' На выходе массив из b() чисел, b(0) - старшие, b(Len(sHex) - 1) – младшие


[Don Leno]

Спасибо вам за помощь)))))))))