Обратный порядок шестнадцатеричных цифр

Question

Мне нужно принять целочисленное значение и преобразовать его так, чтобы, когда он представлен в шестнадцатеричном формате, цифры меняются на противоположные. Например:

Dim a As Integer = &H4321 
Dim a_changedorder As Integer = ReverseHexDigits(a) 
Console.Writeline(a_changedorder.ToString("X4")) ' Should output 1234 

Как я могу реализовать метод ReverseHexDigits, который работает, как это?

В качестве второго примера &H4F2A должен стать &HA2F4.

Answer 1

(я действительно не могу понять, почему вы хотели бы это сделать ... но) Просто преобразовать числовое значение в строку, reverse it затем преобразовать обратно в числовое значение:

Dim a As UShort = &H4321 

    Dim hexCharArray As Char() = a.ToString("X4").ToCharArray 
    Array.Reverse(hexCharArray) 
    Dim hexStringReversed = New String(hexCharArray) 

    Dim a_changedorder As UShort = Convert.ToUInt16(hexStringReversed, 16) 

ПОДТВЕРЖДАЕТ выход правильно:

Debug.WriteLine(a_changedorder.ToString("X4")) '1234 

Примечание вы должны использовать UShort, как у вас есть только два байта, Integer подписан и 4 байта

Answer 2

В то время как метод Мэтта будет работать, довольно малоэффективно преобразовать целое число в шестнадцатеричную строку, отменить порядок символов в строке и затем снова проанализировать ее обратно в целое число. Если эффективность важна, и вам нужно всего лишь поменять местами тетрады в двух байтовое целое число, то следующее будет работать:

Public Function ReverseHexDigits(input As Integer) As Integer 
    Return ((input And &HF) << 12) Or 
     ((input And &HF0) << 4) Or 
     ((input And &HF00) >> 4) Or 
     ((input And &HF000) >> 12) 
End Function 

Однако, это сбивает с толку, так как он работает только на нижних двух байтов. Было бы понятно, если бы она работала на UShort переменных вместо:

Public Function ReverseHexDigits(input As UShort) As UShort 
    Return ((input And CUShort(&HF)) << 12) Or 
     ((input And CUShort(&HF0)) << 4) Or 
     ((input And CUShort(&HF00)) >> 4) Or 
     ((input And CUShort(&HF000)) >> 12) 
End Function