Re: String in HEX umwandeln

[Tobias Bußmann <e dot t dot bussmann at ing dot twinwave dot net>]

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 <apple dot talk at onlinehome dot de> 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