IsAlpha etc

[ahenry3068]

IsAlpha is easy.

Code: (Select All)

FUNCTION IsLetter(L as String)

   IsLetter = ( ASC(L) >= ASC("A") and ASC(L) <= ASC("Z")) or ( ASC(L) >= ASC("a") and ASC(L) <= ASC("z") ) 

END FUNCTION



FUNCTION IsWhiteSpace(L as String)

DIM C AS INTEGER

     C = ASC(L)

     IsWhiteSpace = C=32 or C=9 or C=8 or C=13 or C=10 or C=7

END FUNCTION



FUNCTION IsAlpha(S as String)

  DIM TMP AS INTEGER

  DIM I AS LONG

  TMP = _True



  FOR I = 1 to Len(S)

       If IsLetter(MID$(S,I,1)) or IsWhiteSpace(MID$(S,I,1)) THEN

          _Continue

       Else

          TMP = _False

           Exit For

       End If

  Next

  IsAlpha = TMP

End FUNCTION