2010-01-02 5 views

Répondre

2
Dim result as Int32 

result = BitConverter.ToInt32(bytearray, 4) 
1
Public Function ByteArrayToInteger(ByRef ByteArray() As Byte, ByRef StartIndex As Integer, ByRef EndIndex As Integer) As Integer 
    Dim bSubArray(0 To EndIndex - StartIndex) As Byte 
    For i As Integer = StartIndex To EndIndex 
     bSubArray(i - StartIndex) = ByteArray(i) 
    Next 
    Return BitConverter.ToInt32(bSubArray, 0) 
End Function 

« appeler:

Dim b() As Byte = {1, 2, 3, 4, 5, 6} 
Dim x As Integer = ByteArrayToInteger(b, 0, 3) 
+0

Notez que pour convertir les octets à un nombre entier dont vous avez besoin au moins 4 octets pour effectuer la conversion ou une exception l'ion sera jeté –

+0

je sais, mais je pense que cette réponse est trop compliquée la ci-dessus semble simple. Est-ce ainsi une meilleure façon de le faire? –

+0

c'est plus flexible de cette façon –