Las siguientes funciones son para comprobar las cadenas de texto o numéricas en Visual Basic 6.

Primera función. Devuelve "True" si todos los caracteres de una cadena son alfabéticos, es decir, si son todos letras. Si no lo son o si la cadena de texto es de longitud 0 devuelve "False".

Visual Basic:
  1. Public Function IsAlphaBetical(TestString As String) As Boolean
  2.     Dim sTemp As String
  3.     Dim iLen As Integer
  4.     Dim iCtr As Integer
  5.     Dim sChar As String
  6.    
  7.     sTemp = TestString
  8.     iLen = Len(sTemp)
  9.     If iLen> 0 Then
  10.         For iCtr = 1 To iLen
  11.             sChar = Mid(sTemp, iCtr, 1)
  12.             If Not sChar Like "[A-Za-z]" Then Exit Function
  13.         Next
  14.    
  15.     IsAlphaBetical = True
  16.     End If
  17. End Function

Segunda función. Devuelve "True" si todos los caracteres de una cadena son alfanumericos, es decir, si los elementos que componen la cadena son números o letras. Si no lo son o si la cadena de texto es de longitud 0 devuelve "False".

Visual Basic:
  1. Public Function IsAlphaNumeric(TestString As String) As Boolean
  2.  
  3.     Dim sTemp As String
  4.     Dim iLen As Integer
  5.     Dim iCtr As Integer
  6.     Dim sChar As String
  7.    
  8.     sTemp = TestString
  9.     iLen = Len(sTemp)
  10.     If iLen> 0 Then
  11.         For iCtr = 1 To iLen
  12.             sChar = Mid(sTemp, iCtr, 1)
  13.             If Not sChar Like "[0-9A-Za-z]" Then Exit Function
  14.         Next
  15.    
  16.     IsAlphaNumeric = True
  17.     End If
  18.    
  19. End Function

Tercera función. Devuelve "True" si todos los caracteres de una cadena son numéricos, es decir, si los elementos que componen la cadena son números. Si no lo son o si la cadena de texto es de longitud 0 devuelve "False". Esta función se diferencia de IsNumeric() en que Isnumeric(30.45) devuelve "True" mientras que en esta función devolvería "False".

Visual Basic:
  1. Public Function IsNumericOnly(TestString As String) As Boolean
  2.     Dim sTemp As String
  3.     Dim iLen As Integer
  4.     Dim iCtr As Integer
  5.     Dim sChar As String
  6.  
  7.     sTemp = TestString
  8.     iLen = Len(sTemp)
  9.     If iLen> 0 Then
  10.         For iCtr = 1 To iLen
  11.             sChar = Mid(sTemp, iCtr, 1)
  12.             If Not sChar Like "[0-9]" Then Exit Function
  13.         Next
  14.    
  15.     IsNumericOnly = True
  16.     End If
  17.    
  18. End Function


Vota este artículo:
1 Estrella2 Estrellas3 Estrellas4 Estrellas5 Estrellas (No Ratings Yet)
Loading ... Loading ...

Posts anterior y posterior:


Posts Relacionados: