Hi Klemens,
copy'n'paste:
Private Function StringToHex(src as string, separator as string) As string
dim n, L, v as integer
dim s as string
L = LenB(src)
for n=1 to L
v = AscB(MidB(src, n, 1))
s = s + RightB("00"+Hex(v),2)+separator
next
return LeftB(s, LenB(s)-LenB(separator))
End Function
hth
Tobias
Klemi <[EMAIL PROTECTED]> wrote:
> Hi folks,
>
> gib es eine einfache Lösung einen String in hex umzuwandeln?
> Mit "result=hex(xx)" kann man nur einzelne Zeichen und keinen String
> umwandeln, es sein denn, via for...next den String abarbeiten.
> Es muß doch eine bessere Lösung geben?
>
> Klemens
