Stringsplit?

[david1337]

Hi

With this code I can convert a string into Hex:
 

$String = "tdmsl"
$Hex = StringRegExpReplace(StringTrimLeft(StringToBinary($String), 2),"(..)","\1 ")
ConsoleWrite($Hex)

The result in this example is 74 64 6D 73 6C

But how can I create a result with 00 between each "letter" so it would give this result: 74 00 64 00 6D 00 73 00 6C 00

[iamtheky]

$String = "tdmsl"
$Hex = StringRegExpReplace(StringTrimLeft(StringToBinary($String), 2),"(..)","\1 00 ")
ConsoleWrite($Hex)

 

[david1337]

Can't believe it was that easy...

Thanks boththose !

[david1337]

And if I want no spaces at all like: 740064006D0073006C00

?

[jguinch]

Then just remove the space after \1

Sorry, I didn't notice that the \1 00 becomes \100. In this case, you have to use ${1} instead of \1

Another way, using \K (avoid the use of \1 or $1)

$Hex = StringRegExpReplace(StringTrimLeft(StringToBinary($String), 2),"..\K","00")

And another one, without using StringTrimLeft :

$Hex = StringRegExpReplace(StringToBinary($String), "(?:^0x|\G)([[:xdigit:]]{2})", "${1}00")

 

Edited October 6, 2015 by jguinch

[iamtheky]

$String = "tdmsl"
$Hex = StringStripWS(StringRegExpReplace(StringTrimLeft(StringToBinary($String), 2),"(..)","\1 00 ") , 8)
ConsoleWrite($Hex)

 

[jguinch]

@boththose : the ${1} was missing you   This can be found in the StringRegExpReplace help page (see remarks) :

To separate back-reference replacements from actual (replaced) numbers, wrap them with curly braces, i.e: "${1}5".

 

[jchd]

My friends, aren't you making your life more complicated than it should be?

Want the UTF-16 binary image of a string?

$String = "€tdmsl"
$Hex = StringTrimLeft(StringToBinary($String, 2) & "", 2)
ConsoleWrite($Hex & @LF)

Try previous versions with non-ANSI characters, just to scratch heads.

[david1337]

Thanks guys!

Just tested them individually, and they all worked actually

Edited October 6, 2015 by david1337

[trancexx]

My friends, aren't you making your life more complicated than it should be?

Want the UTF-16 binary image of a string?

$String = "€tdmsl"
$Hex = StringTrimLeft(StringToBinary($String, 2) & "", 2)
ConsoleWrite($Hex & @LF)

Try previous versions with non-ANSI characters, just to scratch heads.

Why didn't you just hex your binary?

[jchd]

Yes that's true, as well and more simply.