Convert UTF8 string to hex escaped codes ?

[Myicq]

a recent post mentioned UTF-8 and encoded strings.

I have the need to go this way, deliberately. This is to encode Hebrew into a barcode, where the application only supports plain ANSI. Barcode will render correctly with escaped hex values.

Example:

$string = "אין כמו הבית"    ; "no place like home" in Hebrew.

ConsoleWrite( StringToBinary($string,4) & @CRLF )

; returns
; 0xD790D799D79F20D79BD79ED79520D794D791D799D7AA

This is close, but I need this in individually encoded chars. Like this:

\xD7\x90\xD7\x99\xD7\x9F\x20\xD7\x9B\xD7\x9E\xD7\x95\x20\xD7\x94\xD7\x91\xD7\x99\xD7\xAA

I probably miss something obvious. But is there a function to convert string directly into this output, or something to convert internal hex to escaped format ?

[jchd]

Try this:

Local $sHex = '0xD790D799D79F20D79BD79ED79520D794D791D799D7AA'
Local $sEscaped = StringRegExpReplace(StringMid($sHex, 3), '([[:xdigit:]]{2})', 'x$1')
ConsoleWrite($sEscaped & @LF)

[Myicq]

Perfect, jchd. Worked as expected with RegExp