Standard Character Validation

[clive2002]

Anyone now a quick way to return whether a string contains only standard characters (A-Z,a-z,0-9) as a true/false.

 

[namliam]

Try this:

Function TrueChars(myString As String) As Boolean
Dim I As Integer
TrueChars = True
For I = 1 To Len(myString)
    Select Case Asc(Mid(myString, I, 1))
        Case 48 To 57  '0 to 9
        Case 65 To 90  'A to Z
        Case 97 To 122 'a to z
        Case Else
            TrueChars = False
            Exit For
    End Select
Next I
End Function

(partly borrowed from Jason to make me look smart )

Regards

 

[SilentBreaker]

This is an immediate example:

Private Sub Text0_KeyPress(KeyAscii As Integer)

If KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122 Then
MsgBox "True"
Else
MsgBox "False"
End If

End Sub

Cheers

 

[clive2002]

This Works, but i forgot i need to allow a space aswell!

how do i refer to this!

 

[dcx693]

I believe it's 32.