Vista - string to hex value

08-13-2008

How do I go about converting a string value to Hex? I don't know if there is
something built in. I did start writng the code with a for loop but I feel
that I am doing it the hard way. I am thinking I would be able to pass in a
value of 01 the function would return back 30 31.

For example,
String = 01
HexValue=30 31

If String was 11
HexValue=31 30

----------Code snippet of my approach which I feel is not
efficient.------------
For k = 30 To 39 '0-9
For j = 30 To 39 '0-9
Next
Next

08-13-2008

"Big D" <BigDaddy@xxxxxx> wrote in message
news:uZkif0T$IHA.4800@xxxxxx

Quote:

> How do I go about converting a string value to Hex? I don't know if there
> is something built in. I did start writng the code with a for loop but I
> feel that I am doing it the hard way. I am thinking I would be able to
> pass in a value of 01 the function would return back 30 31.
>
>
> For example,
> String = 01
> HexValue=30 31
>
> If String was 11
> HexValue=31 30
>
>
> ----------Code snippet of my approach which I feel is not
> efficient.------------
> For k = 30 To 39 '0-9
> For j = 30 To 39 '0-9
> Next
> Next

Use the inbuilt Asc function, e.g. like so:
name = "012345 Big D"
line = ""
For i = 1 To Len(name)
line = line & Asc(Mid(name, i, 1)) & " "
Next
WScript.Echo line

08-13-2008

On Aug 13, 8:24 am, "Pegasus $MVP$" <I....@xxxxxx> wrote:

Quote:

> "Big D" <BigDa...@xxxxxx> wrote in message
>
> news:uZkif0T$IHA.4800@xxxxxx
>
>
>

Quote:

> > How do I go about converting a string value to Hex? I don't know if there
> > is something built in. I did start writng the code with a for loop but I
> > feel that I am doing it the hard way. I am thinking I would be able to
> > pass in a value of 01 the function would return back 30 31.

>

Quote:

> > For example,
> > String = 01
> > HexValue=30 31

>

Quote:

> > If String was 11
> > HexValue=31 30

>

Quote:

> > ----------Code snippet of my approach which I feel is not
> > efficient.------------
> > For k = 30 To 39 '0-9
> > For j = 30 To 39 '0-9
> > Next
> > Next

>
> Use the inbuilt Asc function, e.g. like so:
> name = "012345 Big D"
> line = ""
> For i = 1 To Len(name)
> line = line & Asc(Mid(name, i, 1)) & " "
> Next
> WScript.Echo line

This seems to be one tiny step short of Hex. That is, ...

line = line & Hex(Asc(Mid(name, i, 1))) & " "

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/

08-13-2008	#1 (permalink)
Big D n/a posts	string to hex value How do I go about converting a string value to Hex? I don't know if there is something built in. I did start writng the code with a for loop but I feel that I am doing it the hard way. I am thinking I would be able to pass in a value of 01 the function would return back 30 31. For example, String = 01 HexValue=30 31 If String was 11 HexValue=31 30 ----------Code snippet of my approach which I feel is not efficient.------------ For k = 30 To 39 '0-9 For j = 30 To 39 '0-9 Next Next
My System Specs

08-13-2008	#2 (permalink)
Pegasus \(MVP\) n/a posts	Re: string to hex value "Big D" <BigDaddy@xxxxxx> wrote in message news:uZkif0T$IHA.4800@xxxxxx Quote: > How do I go about converting a string value to Hex? I don't know if there > is something built in. I did start writng the code with a for loop but I > feel that I am doing it the hard way. I am thinking I would be able to > pass in a value of 01 the function would return back 30 31. > > > For example, > String = 01 > HexValue=30 31 > > If String was 11 > HexValue=31 30 > > > ----------Code snippet of my approach which I feel is not > efficient.------------ > For k = 30 To 39 '0-9 > For j = 30 To 39 '0-9 > Next > Next Use the inbuilt Asc function, e.g. like so: name = "012345 Big D" line = "" For i = 1 To Len(name) line = line & Asc(Mid(name, i, 1)) & " " Next WScript.Echo line
My System Specs

08-13-2008	#3 (permalink)
Tom Lavedas n/a posts	Re: string to hex value On Aug 13, 8:24 am, "Pegasus \(MVP\)" <I....@xxxxxx> wrote: Quote: > "Big D" <BigDa...@xxxxxx> wrote in message > > news:uZkif0T$IHA.4800@xxxxxx > > > Quote: > > How do I go about converting a string value to Hex? I don't know if there > > is something built in. I did start writng the code with a for loop but I > > feel that I am doing it the hard way. I am thinking I would be able to > > pass in a value of 01 the function would return back 30 31. > Quote: > > For example, > > String = 01 > > HexValue=30 31 > Quote: > > If String was 11 > > HexValue=31 30 > Quote: > > ----------Code snippet of my approach which I feel is not > > efficient.------------ > > For k = 30 To 39 '0-9 > > For j = 30 To 39 '0-9 > > Next > > Next > > Use the inbuilt Asc function, e.g. like so: > name = "012345 Big D" > line = "" > For i = 1 To Len(name) > line = line & Asc(Mid(name, i, 1)) & " " > Next > WScript.Echo line This seems to be one tiny step short of Hex. That is, ... line = line & Hex(Asc(Mid(name, i, 1))) & " " Tom Lavedas =========== http://members.cox.net/tglbatch/wsh/
My System Specs

Similar Threads
Thread	Forum
Find a string within a variable string	PowerShell
problems with $var \| select-string -pattern $string -q	PowerShell
How export-csv deals with string versus string[]	PowerShell
String PRODUCT_NAME was not found in string table	Vista General