[RESOLVED] Chr() and Asc() help

[Robert123]

Not sure if any of this will make sense without the whole code but...

For a = 1 To Len(Data) 
PrintText = PrintText & " " & ChrB(Asc(Right(Left(Data, 1), Len(Data) - a + 1)) + Keycode(a)) 
'MsgBox a 
'MsgBox ChrB(Asc(Right(Left(Data, a), Len(Data) - a + 1)) + Keycode(a)) 
Next 
'MsgBox PrintText

Basically, it gets ever letter, switches to its ascii value, adds the variable Keycode to it, then changes back into Chr()

Anywany, print text is supposed to string all the letters together, IE.

If the first letter converts to "æ"
then second letter converts to "£"
and the third letter converts to "₧"
printText should give the value "æ £ ₧"

But for some reason it ends up with "??Ü" or something similar

I have the msgbox's to check that the letters are being evaluated properly, and they are, but the PrintText is getting messed up somewhere




Edit: Added [vbcode][/vbcode] tags for clairty. - Hack

[chemicalNova]

To me it seems the entire attempt at getting the letter is wrong. You can't just use this?

Dim a As Long
For a = 1 To Len(Data)
    PrintText = PrintText & " " & Asc(Mid$(Data, i, 1)) & Keycode(a))
Next a

..does that not do the same thing?

chem

[Robert123]

Awesome it works, thanks alot =D Didn't know about Mid()

[chemicalNova]

np

Remember to mark your thread as Resolved.

chem