0

これは、例外FormatExceptionを与えるVisualBasicコードの一部です。

私の16進値変数変数hexValueが424E0A78であると仮定します。コードは正しく機能します。値（たとえば） 424EA78hexValueを取得すると、この例外が発生します。

指定された16進値は、空であるか、形式が正しくありません。次の形式を使用します：00000000

解決策はありますか？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim hexValue As String = "424E0A78"

        Dim iInputIndex As Integer = 0
        Dim iOutputIndex As Integer = 0
        Dim bArray(3) As Byte 'creating an array
        Dim rnum As Integer
        Dim rArray(3) As Byte
        Dim rSingle As Single
        Dim rSingle1 As Single
        Dim rSingle2 As Single
        Dim rStr As Integer
        Dim rnewArray(3) As Byte ' variables
        Dim rnum2, rnum3 As Integer 'variables
        Dim rstr2, rstr3 As String

        'For iInputIndex = 0 To hexValue.Length - 1 Step 2
        For iInputIndex = 0 To hexValue.Length - 1 Step 2

            'rnum3 = hexValue.Chars(iInputIndex) * 16

            'REjina code starts
            rStr = 0
            rstr2 = hexValue.Chars(iInputIndex)
            If (rstr2 = "A") Then
                rstr2 = 10
            ElseIf (rstr2 = "B") Then
                rstr2 = 11
            ElseIf (rstr2 = "C") Then
                rstr2 = 12
            ElseIf (rstr2 = "D") Then
                rstr2 = 13
            ElseIf (rstr2 = "E") Then
                rstr2 = 14
            ElseIf (rstr2 = "F") Then
                rstr2 = 15
            End If

            rStr = Val(rstr2) * 16

            'Second rejina conversion
            rstr2 = hexValue.Chars(iInputIndex + 1)
            If (rstr2 = "A") Then
                rstr2 = 10
            ElseIf (rstr2 = "B") Then
                rstr2 = 11
            ElseIf (rstr2 = "C") Then
                rstr2 = 12
            ElseIf (rstr2 = "D") Then
                rstr2 = 13
            ElseIf (rstr2 = "E") Then
                rstr2 = 14
            ElseIf (rstr2 = "F") Then
                rstr2 = 15
            End If

            rStr = rStr + Val(rstr2)

            'rstr2 = hexValue.Chars(iInputIndex + 1)
            rnewArray(iOutputIndex) = rStr
            'rejina code ends

            'rArray(iOutputIndex) = Byte.Parse(hexValue.Chars(iInputIndex) & hexValue.Chars(iInputIndex + 1), Globalization.NumberStyles.HexNumber)

            'bArray(iOutputIndex) = Convert.ToByte(hexValue.Chars(iInputIndex))

            iOutputIndex += 1
        Next

        'Array.Reverse(rArray)

        'rejina code starts
        Array.Reverse(rnewArray)
        'rejina code ends

        'Array.Reverse(bArray)


        'rSingle = BitConverter.ToSingle(rArray, 0)
        'rejina code starts
        rSingle1 = BitConverter.ToSingle(rnewArray, 0)
        'rejina code ends
        'rSingle2 = BitConverter.ToSingle(bArray, 0)

        MessageBox.Show(rSingle1)

        'Return BitConverter.ToSingle(rnewArray, 0)
    Catch ex As Exception
        Throw New FormatException("The supplied hex value is either empty or in an incorrect format. Use the following format: 00000000", ex)
    End Try
End Sub
4

1 に答える 1

1

入力文字列の長さが奇数（つまり偶数ではない）の場合、次の行で配列インデックスの範囲外例外が発生します。

hexValue.Chars(iInputIndex + 1)

...これはおそらくあなたがここで経験していることです。

于 2012-11-24T08:28:26.897 に答える