Check string for characters other than 0-9 and a-z 2

[rtshort]

What is the best way to check a string for characters other than 0-9 or a-z(Upper or Lower Case). I know about the InStr Function but that would be a lot of code. I don't want to allow characters like (!@#$%^&*()_+) in the string.
Just letters and numbers. Rob
Just my $.02.

 

[bateman23]

Hi,

what about getting the ASCII-Value of the character and
compare it to the range of a-z,A-Z and 0-9
(I think the ASCII-Code (dez) is 48 (0) to 57 (9), 65 (A) to 90 (Z) and 97 (a) to 122 (z)).

At is time i don't know another solution. I' ll post, if i got a new idea or found some code.

Cu,
Daniel
---------------------------------------
Visit me @:

http://www.daniel-purucker.de/

 

[JohnYingling]

Function IsStrAZ909(strIn As string) As boolean
Dim I as Long
For I = 1 To Len(strIn)
if Not(Mid$(strIn,I,1) Like "[a-zA-Z0-9]&quot Then
IsStrAZ09 = false
Exit Function
End if
Next
IsStrAZ09 = True
End Function

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[rtshort]

Thanks guys, I'll try both.
Rob
Just my $.02.

 

[bateman23]

Okay, i think JohnYingling's solution is "smarter" - but i also got one - jehaa ;-) - Here it is:

Option Explicit

Private Sub Text1_KeyPress(keyascii As Integer)
keyascii = justnumbersandchar(keyascii)

End Sub

Function justnumbersandchar(keyascii As Integer)

Const Nummern$ = "0123456789"
Const Zeichen$ = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
If (InStr(Nummern, Chr(keyascii)) <> 0 Or _
InStr(Zeichen, Chr(keyascii)) <> 0) = False Then keyascii = 0
justnumbersandchar = keyascii

End Function
---------------------------------------
Visit me @:

http://www.daniel-purucker.de/

 

[rtshort]

They both work, but I can't figure out how to get it in a .bas module where I can use it without typing all of the code for each TextBox. Anyone?
Rob
Just my $.02.

 

[JohnYingling]

Just create a bas module and drop the function in it.

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript