FUNCTION StrCate(BYVAL str AS STRING * 1) AS LONG
SELECT CASE ASC(str)
CASE 48 TO 57 , 46 '数字0-9
FUNCTION = 1
CASE 97 TO 122 '字母a-z
FUNCTION = 2
CASE 42, 43, 45, 47, 94, 92 '+-*/^\
FUNCTION = 3
CASE 40 '(
FUNCTION = 4
CASE 41 ')
FUNCTION = 5
CASE 32 '空格
FUNCTION = 6
CASE 0 '退出
FUNCTION = -1
CASE ELSE
FUNCTION = 0
END SELECT
END FUNCTION
SELECT CASE ASC(str)
CASE 48 TO 57 , 46 '数字0-9
FUNCTION = 1
CASE 97 TO 122 '字母a-z
FUNCTION = 2
CASE 42, 43, 45, 47, 94, 92 '+-*/^\
FUNCTION = 3
CASE 40 '(
FUNCTION = 4
CASE 41 ')
FUNCTION = 5
CASE 32 '空格
FUNCTION = 6
CASE 0 '退出
FUNCTION = -1
CASE ELSE
FUNCTION = 0
END SELECT
END FUNCTION
