06-03-2014, 11:17
Function EsLetrasyNumeros(ByVal str As String)
For i As Integer = 0 To str.Length - 1
Select Case str.Chars(i)
Case "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "Ñ", "O", "P", "Q", "R", "S", "T", "U", "V", "X", "W", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "x", "w", "y", "z"
Case "-", "_", " ", " "
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
Case Else
Return False
End Select
Next
Return True
End Function
las regex son para putos