Vb6 AscB to what in vbnet ?

[Pascal]

Hello can someone help please ?

here is the code in vb6
Dim lChar As Integer
lChar =AscB(Mid(sMessage, lByteCount + 1, 1))


i tried
lChar = System.Convert.ToUInt16(Asc(Mid(sMessage, lByteCount + 1, 1))) Mod
256

but somewhere i got an overflow capacity message error...

any idea would be appreciated
thanks

http://www.scalpa.info

 

[Armin Zingler]

Hello can someone help please ?

here is the code in vb6
Dim lChar As Integer
lChar =AscB(Mid(sMessage, lByteCount + 1, 1))

Is there a reason why it was declard as integer, not as byte?

i tried
lChar = System.Convert.ToUInt16(Asc(Mid(sMessage, lByteCount + 1,
1))) Mod 256

but somewhere i got an overflow capacity message error...

b = CByte(Convert.ToUInt16(smessage.Chars(lbytecount)) And &HFFUS)


Or:

dim bytes as byte()
bytes = System.Text.Encoding.unicode.getbytes(smessage)

Then access the byte at position lByteCount*2

Also possible with an overloaded version to convert a substring only:

System.Text.Encoding.GetBytes(string, integer, integer, byte(), integer)



Armin

 

[=?ISO-8859-1?Q?G=F6ran_Andersson?=]

Hello can someone help please ?

here is the code in vb6
Dim lChar As Integer
lChar =AscB(Mid(sMessage, lByteCount + 1, 1))


i tried
lChar = System.Convert.ToUInt16(Asc(Mid(sMessage, lByteCount + 1, 1))) Mod
256

but somewhere i got an overflow capacity message error...

any idea would be appreciated
thanks

http://www.scalpa.info

The AscB function works with 8 bit strings, there are no such strings in
..NET as strings are Unicode.

From where do you get the data, and what are you trying to do with it?

 

[Pascal]

Göran Andersson said : "From where do you get the data, and what are you
trying to do with it?"

It's a vb6 project here i would like to upgrade to vb express 2005
http://www.frez.co.uk/registration.zip to learn how it works.

pascal

Göran Andersson
http://www.guffa.com