|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Teste para Caracteres Alpha (IsAlpha)
|
 |
|
|
|
Postada em 14/9/2001 por Luciana
luciana@louisiana.com
Aplica-se ao VB4, VB5, VB6.
Apesar do VB ter a Funcao IsNumeric, nao ha uma funcao IsAlpha.
Use essa rotina quando voce precisar determinar quando um caracter ou string eh alfabetica (A-Z ou a-z). No Case adicione outras condicoes para caracteres que voce quer permitir.
Public Function IsAlpha(By Val MyString as String) as Boolean
Dim i as Long
' em caso se sucesso
IsAlpha = True
'Check
For i = 1 to Len(MyString)
Select Case Asc(Mid$(MyString, i,1))
Case vbKeyA to vbKeyZ
Case (vbKeyA + 32) to (vbKeyZ + 32)
Case vbKeySpace
Case Else
IsAlpha = False
Exit For
End Select
Next i
End Function
ou
==
Public Function IsAlpha(ByVal MyString as String) as Boolean
If not MyString Like "*[!A-Za-z]*" _
then IsAlpha = true
End Function
Adicione os caracteres que voce quer permitir - space, virgula, ponto - entre os braceletes.
|
|
|
|
|
