Board index » Visual Studio » Convext HEx value to byte array

Visual Studio50
Hi all ,





I have VB 6 application which request HEX value from hardware . I

need to convert the HEX value to the byte array .



Any ideas or suggestion how to do conversion ?

The HEX VALUE is : 18 3E 16 00 00 00 00 00

Thanks


-

It seems like there should be a simpler answer than this; but, since no

one has answered you yet, here it goes.



Function Hex2Byte(ByVal HexValue As String) As Byte()

Dim X

Dim ByteArray() As Byte

HexValue = Replace(HexValue, " ", "")

ReDim ByteArray((Len(HexValue) \ 2) - 1)

For X = 0 To UBound(ByteArray) - 2

ByteArray(X) = CLng("&H" & Mid$(HexValue, 2 * X + 1, 2))

Next

Hex2Byte = ByteArray

End Function



You can pass the HexValue in with the individual bytes separated by

spaces or not. Hence, both of these function calls will return the same

Byte array (using your example value).



Hex2Byte("18 3E 16 00 00 00 00 00")

Hex2Byte("183E160000000000")



Rick - MVP



-

weetat wrote:

In what form is the input--ASCII? If so,



?val("&H"&"18" )

24

-

"weetat" <test@wavex-tech.com>wrote in message

Is the hardware providing an ascii string as shown including spaces?

Are those the byte values that you have read into a string?

Are they just the byte values that you expect?

Is this coming in over a COM port, LAN, USB, ???

Can you show the code that you are using to get the HEX VALUE?



you haven't provided nearly enough information for anybody to provide a

meaningful answer



-

"Bob Butler" <tiredofit@nospam.com>wrote





When will they learn?



<g>

LFS

-

Hi Bob ,



Sorry for late reply



1 . Not including spaces

2 . Yes

3 . Yes

4 . COM port

5 . Sorry , cannot , using ActiveX DLL from our partner , confidential code



Thanks



Bob Butler wrote:

"weetat" <test@wavex-tech.com>wrote in message

--

Reply to the group so all can participate

VB.Net... just say "No"



-

"weetat" <test@wavex-tech.com>wrote in message

Answers 2 & 3 are contradictory but I'm assuming I just didn't make question

3 clear enough... If you have that sequence as a string in VB then I think

you want something like this:



Private Sub Main()

Dim b() As Byte

b = Hexify("183E10000000000")

End Sub



Public Function Hexify(ByVal TheBytes As String) As Byte()

Dim b() As Byte

Dim x As Long

ReDim b(1 To Len(TheBytes) \ 2)

For x = 1 To UBound(b)

b(x) = CLng("&H" & Mid$(TheBytes, x * 2 - 1, 2))

Next

Hexify = b

End Function



--

Reply to the group so all can participate

VB.Net... just say "No"



-

Why didn't I think of something along these lines? <g>



Rick

-

"Rick Rothstein" <rickNOSPAMnews@NOSPAMcomcast.net>wrote in message

I know you did... I'm still not clear on the question though.



--

Reply to the group so all can participate

VB.Net... just say "No"



-