Ascii

[myrea]

Guyz how can I get all the characters (not in the keyboard) in a string and

display it in another txtbox?

txtbox1 = "™ÈñõŒ the dog ←ÖÜç"

string1 = txtbox2

txtbox2 = "™ÈñõŒ ←ÖÜç

make it simple plss.

Thanks....

[RobDog888]

The Asc function will return the ascii character code for each character.

MsgBox Asc("™") '153

[myrea]

yup i know that. But how can check if the word is not in the keyboard?

[RobDog888]

Ok, which. Alpha, numeric, special characters, control chars, etc.

[RobDog888]

This will add only the captiol letters from A-Z to textbox 2.

Option Explicit
 
Private Sub Command1_Click()
 
    Dim i As Integer
    
    For i = 1 To Len(Text1.Text)
        If Asc(Mid$(Text1.Text, i, 1)) > 65 And Asc(Mid$(Text1.Text, i, 1)) < 90 Then
            Text2.Text = Text2.Text & Asc(Mid$(Text1.Text, i, 1)) & ","
        Else
            MsgBox Mid$(Text1.Text, i, 1) & " Is not within the acceptable range of characters allowed."
        End If
    Next
    
End Sub

[myrea]

Thanks robdog

Originally posted by RobDog888

Ok, which. Alpha, numeric, special characters, control chars, etc.

All of them..

How can check if the all the characters in a single word is all ASCII

characters? If true put it in the txtbox2.

Thanks....

[RobDog888]

My code checks each character in the textbox. Then you need to include the characters you want in the If statement. Maybe change it to a select case statement block since it will get larger to include all keyboard characters.

So what will be the offending characters if they are not on the keyboard?

[Joacim Andersson]

On my Swedish keyboard I'll have an Ö key, as well as Å and Ä. In Swedish these are not just oumlated O and A characters, they are actual letters in our alphabet which differs from O and A in the same way as a B is different from a Q.

[RobDog888]

Well yes thats what I was getting at. Its easier to trap for the extended keys or such instead of everything else.

[Spajeoly]

I recently had to do this at work and I just made a loop to remove all Non 7-bit ASCII characters as they cause.... Problems for us. The loop just goes....

For i = 128 To 255
   If InStr(1, String, Chr(i)) then
      'Stuff to deal with it here..
   End If
Next

That's a rough break down as I wrote it in VBA for Excel originally.

Hope that offers some help.

[myrea]

Thanks guyz...
Spajeoly, Joacim, RobDog888

I'll just create a case statement

i didn't know that such characters exist in Swedish keyboard

I'm talking about the ordinary keyboard. The standard I think..

Thank you so much guyz. It helped me a lot. Now I know. bb

[Joacim Andersson]

I'm talking about the ordinary keyboard. The standard I think..

LOL, I have a ordinary standard (Swedish) keyboard. American keyboards aren't that very ordinary over here.

[the182guy]

I agree with that guy