String til hex funksjon i VB.Net ?

[jon_gunnar]

Finnes det en funksjon i VB.Net som kan ta en string og konvertere direkte til korresponderende hex verdier ?

Skulle vel sikkert vært i .net gruppen denne da.

[GeirGrusom]

Det er ikke en funskjon, men det er veldig lett å lage.

Jeg går utifra at du dri... eh, gir blaffen i Unicode (siden dette bare er for kinesere og arabare (med tanke på skriftspråk))

Her:

Public Function ToRealHex(var As Byte) As String

 Dim out As String

 Dim X as Integer

 out = Hex(var)

 For X = 1 To 2 - Len(out) 

   out = "0" & out

 Next

 Return out

End Function

Public Function ToHexString(text As String) As String

 Dim out As String

 Dim var1 As Byte

 Dim X As Integer

 For X = 1 To Len(text)

   var1 = Asc(Mid(text, x, 1))

   out &= ToRealHex(var1)

 Next

 Return out

End Function

 

Der, det skulle fungere...