Converting a byte array to an integer (4 byte integer)

[Cody Laird]

I have a VB 6 program that takes in a byte array (stream, if you will) and
converts it to/from VB and MVS COBOL data types. I think I have a handle
on all the other data types, but I'm not sure about how to get from an array
of 4 bytes that make up an integer to the integer itself or a string representation
of the integer.

For example a COBOL integer is 4 bytes and the following code converts its
stream representation to a long in VB6 using the LSET function. How would
one go about this in VB.Net ?

Here are the functions that convert to/from a byte array of a long to/from
a long. The first will convert a 4 byte array to a long the seond converts
a long to a 4 byte array.

Private Type LongByteType
b1 As Byte
b2 As Byte
b3 As Byte
b4 As Byte
End Type
Private Type LongType
l As Long
End Type
Private LongRec As LongByteType
Private MyLong As LongType

Public Function ByteArraytoLong(pArray As Variant) As Long
LongRec.b1 = pArray(0)
LongRec.b2 = pArray(1)
LongRec.b3 = pArray(2)
LongRec.b4 = pArray(3)

LSet MyLong = LongRec

ByteArraytoLong = MyLong.l
End Function

Public Function LongToByteArray(pLong As Long) As Variant
Dim tArray(0 To 3) As Byte

MyLong.l = pLong

LSet LongRec = MyLong

tArray(0) = LongRec.b1
tArray(1) = LongRec.b2
tArray(2) = LongRec.b3
tArray(3) = LongRec.b4

LongToByteArray = tArray
End Function

[Mattias Sjögren]

Cody,

>For example a COBOL integer is 4 bytes and the following code converts its
>stream representation to a long in VB6 using the LSET function. How would
>one go about this in VB.Net ?

Have a look at the BitConverter class.


Mattias

===
Mattias Sjögren (VB MVP)
mattias @ mvps.org
http://www.msjogren.net/dotnet/

[Cody Laird]

Mattias:

Perfect! Knowing where to look is half the batttle!

Thanks!
Cody

Mattias Sjögren <mattias.dont.want.spam@mvps.org> wrote:
>Cody,
>
>>For example a COBOL integer is 4 bytes and the following code converts
its
>>stream representation to a long in VB6 using the LSET function. How would
>>one go about this in VB.Net ?
>
>Have a look at the BitConverter class.
>
>
>Mattias
>
>===
>Mattias Sjögren (VB MVP)
>mattias @ mvps.org
>http://www.msjogren.net/dotnet/