Потери производительности в эквиваленте VB.net преобразования легкого веса с гексагонального байта

Я прочитал ответы здесь qaru.site/info/22148/...

Я также пытался создать эквивалентный код VB.net:

Option Strict ON

Public Function ParseHex(hexString As String) As Byte()
    If (hexString.Length And 1) <> 0 Then
        Throw New ArgumentException("Input must have even number of characters")
    End If
    Dim length As Integer = hexString.Length \ 2
    Dim ret(length - 1) As Byte
    Dim i As Integer = 0
    Dim j As Integer = 0
    Do While i < length
        Dim high As Integer = ParseNybble(hexString.Chars(j))
        j += 1
        Dim low As Integer = ParseNybble(hexString.Chars(j))
        j += 1
        ret(i) = CByte((high << 4) Or low)
        i += 1
    Loop

    Return ret
End Function

Private Function ParseNybble(c As Char) As Integer
    If c >= "0"C AndAlso c <= "9"C Then
        Return c - "0"C
    End If
    c = ChrW(c And Not &H20)
    If c >= "A"C AndAlso c <= "F"C Then
        Return c - ("A"C - 10)
    End If
    Throw New ArgumentException("Invalid nybble: " & c)
End Function

Можем ли мы удалить ошибки компиляции в ParseNybble без внедрения преобразований данных?

Return c - "0"c Оператор '-' не определен для типов 'Char' и 'Char'

c = ChrW(c And Not &H20) Оператор "И" не определен для типов "Char" и "Integer"

Ответ 1

В его нынешнем виде нет.

Однако вы можете изменить ParseNybble, чтобы взять целое число и передать ему AscW(hexString.Chars(j)), чтобы преобразование данных происходило вне ParseNybble.

Ответ 2

Это решение намного быстрее, чем все, что я попробовал. И он избегает поиска ParseNybble.

Function hex2byte(s As String) As Byte()
    Dim l = s.Length \ 2
    Dim hi, lo As Integer
    Dim b(l - 1) As Byte

    For i = 0 To l - 1
        hi = AscW(s(i + i))
        lo = AscW(s(i + i + 1))

        hi = (hi And 15) + ((hi And 64) >> 6) * 9
        lo = (lo And 15) + ((lo And 64) >> 6) * 9

        b(i) = CByte((hi << 4) Or lo)
    Next

    Return b
End Function