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".

CLIC PARA VER TEXTO PLANO
Public Function IsAlphaBetical(TestString As String) As Boolean
    Dim sTemp As String
    Dim iLen As Integer
    Dim iCtr As Integer
    Dim sChar As String
   
    sTemp = TestString
    iLen = Len(sTemp)
    If iLen> 0 Then
        For iCtr = 1 To iLen
            sChar = Mid(sTemp, iCtr, 1)
            If Not sChar Like "[A-Za-z]" Then Exit Function
        Next
   
    IsAlphaBetical = True
    End If
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".

CLIC PARA VER TEXTO PLANO
Public Function IsAlphaNumeric(TestString As String) As Boolean

    Dim sTemp As String
    Dim iLen As Integer
    Dim iCtr As Integer
    Dim sChar As String
   
    sTemp = TestString
    iLen = Len(sTemp)
    If iLen> 0 Then
        For iCtr = 1 To iLen
            sChar = Mid(sTemp, iCtr, 1)
            If Not sChar Like "[0-9A-Za-z]" Then Exit Function
        Next
   
    IsAlphaNumeric = True
    End If
   
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".

CLIC PARA VER TEXTO PLANO
Public Function IsNumericOnly(TestString As String) As Boolean
    Dim sTemp As String
    Dim iLen As Integer
    Dim iCtr As Integer
    Dim sChar As String

    sTemp = TestString
    iLen = Len(sTemp)
    If iLen> 0 Then
        For iCtr = 1 To iLen
            sChar = Mid(sTemp, iCtr, 1)
            If Not sChar Like "[0-9]" Then Exit Function
        Next
   
    IsNumericOnly = True
    End If
   
End Function


Posts anterior y posterior:
«
»


Posts Relacionados: