Sorry your browser is not supported!

Print IsAlphabetic( "ABC" ) ` Is True
Print IsAlphabetic( "xyz" ) ` Is True
Print IsAlphabetic( "xyz#" ) ` Is False
Print "====================="
Print IsNumeric( "123" ) ` Is True
Print IsNumeric( "-5.6" ) ` Is True
Print IsNumeric( "room100" ) ` Is False
Print "====================="
Print IsAlphaNumeric( "abc123" ) ` Is True
Print IsAlphaNumeric( "123abc" ) ` Is True
Print IsAlphaNumeric( "123a..&^" ) ` Is False

//=======================================================
Function IsAlphaNumeric( sText$ )
  Local bAlphabetic as Boolean : 
  Local iLen : iLen = Fast Len(sText$)
  Local c$ : Local iChar
  For i = 1 to iLen
    bAlphabetic = 1
    c$ = Mid$( sText$, i )
    iChar = Asc( Fast Lower$( c$ ) )
    If iChar < 97 
      bAlphabetic = 0
    Else
      If iChar > 122 Then bAlphabetic = 0
    EndIf
  
    If bAlphabetic = 0
      If IsNumeric( c$ ) = 0
        ExitFunction 0
      Endif    
      If c$ = "." or c$ = "-" then ExitFunction 0
    EndIf
  Next i
EndFunction 1
//=======================================================
Function IsAlphabetic( sText$ )
  Local bAlphabetic as Boolean 
  Local iLen : iLen = Fast Len(sText$)
  Local c$ : Local iChar
  For i = 1 to iLen
    bAlphabetic = 1
    c$ = Mid$( sText$, i )
    iChar = Asc( Fast Lower$( c$ ) )
    If iChar < 97 
      bAlphabetic = 0
    Else
      If iChar > 122 Then bAlphabetic = 0
    EndIf
    If bAlphabetic = 0
       ExitFunction 0
    EndIf
  Next i
Endfunction 1
//=======================================================
Function IsNumeric( sText$ )
  Local bNumeric as Boolean 
  Local iLen : iLen = Fast Len(sText$)
  Local c$ : Local iChar
  Local iDots
  Local iMinusSigns
  sText$ = Fast Lower$( sText$ )
  
  For i = 1 to iLen
    bNumeric = 1
    iChar = Asc( Mid$( sText$, i ) )
    If iChar = 46
      Inc iDots
      If iDots > 1 Then ExitFunction 0
    Else
      If iChar = 45
        Inc iMinusSigns
        If iMinusSigns > 1 Then ExitFunction 0
      Else
        If iChar < 48 
          bNumeric = 0
        Else
          If iChar > 57 Then bNumeric = 0
        EndIf
        If bNumeric = 0 Then ExitFunction 0        
      Endif  
    Endif
  Next i
Endfunction 1

function isNumeric(t$)
      if val(t$) = 0 then exitfunction 0
endfunction 0


function isAlphabetic(t$)
      l = len(t$)
      for i = 1 to l
            N = asc(mid$(t$, i))
            if N < 65 or N > 122 or (N > 90 and N < 97) then exitfunction 0
      next i
endfunction 1

function isAlphanumeric(t$)
      l = len(t$)
      for i = 1 to l
            N = asc(mid$(t$, i))
            if (N < 65 and N > 57) or N < 48 or N > 122 or (N > 90 and N < 97) then exitfunction 0
      next i
endfunction 1