共享一个字符判断代码，有时可能会用到!
*取整数
*Ceil(Month(date())/3)
clear
accept "请输入字符：" to a
do case
case ISLOWER(a)
?"该字符是小写字母。"
case ISUPPER(a)
?"该字符是大写字母。"
case ISDIGIT(a)
?"该字符是数字。"
OTHERWISE
?"该字符是其他特殊符号。"
endcase


clear
accept "请输入字符：" to a
if asc(a)>=48 and asc(a)<=57
?"该字符是数字。"
else
if asc(a)>=97 and asc(a)<=122
?"该字符是小写字母。"
else
if asc(a)>=65 and asc(a)<=90
?"该字符是大写字母。"
else
?"该字符是其他特殊符号。"
endif
endif
endif

CLEAR
LOCAL a as String
Accept "请输入一个字符串" To a
For i = 1 To Len(a)
    b=Substr(a,i,1)
    Do Case
    Case Isdigit(b)=.T.
        ?a+"的第"+ Transform(i)+"位是数字"
    Case Isalpha(b)=.T.
        ?a+"的第"+ Transform(i)+"位是字母"
    Case ISLOWER(b)=.T.
        ?a+"的第"+ Transform(i)+"位是小写字母"
    Case ISUPPER(b)=.T.
        ?a+"的第"+ Transform(i)+"位是大写字母"
    Otherwise
        ?a+"的第"+ Transform(i)+"位是数字字母外的字符"
    Endcase
Endfor

*应用到密码设置大小写数字和字母方案
*判断字符含字母数字
*程序设计：独叶为舟
*时间：201910
mm=allt(thisform.Text1.text)
if len(mm)<8
    messagebox("密码设置必须为8位以上数字及大小写字母组合！",0+48,"错误")
    return
else
    mm1=0
    mm2=0
    mm3=0
    mm4=0
    for i = 1 to len(mm)
        b=substr(mm,i,1)
        do case
            case isdigit(b)=.t.
                *?a+"的第"+ transform(i)+"位是数字"
            *Case Isalpha(b)=.T.
                *?a+"的第"+ Transform(i)+"位是字母"
                mm1=mm1+1
            case islower(b)=.t.
                *?a+"的第"+ transform(i)+"位是小写字母"
                mm2=mm2+1
            case isupper(b)=.t.
                *?a+"的第"+ transform(i)+"位是大写字母"
                mm3=mm3+1
            otherwise
                *?a+"的第"+ transform(i)+"位是数字字母外的字符"
                mm4=mm4+1
        endcase
    endfor
    do case
        case mm1<1
            messagebox("密码设置不规范：没有0-9数字！",0+48,"错误")
            return
        case mm2<1
            messagebox("密码设置不规范：没有a-z小写字母！",0+48,"错误")
            return
        case mm3<1
            messagebox("密码设置不规范：没有A-Z大写字母！",0+48,"错误")
            return
        case mm4>0
            messagebox("密码设置不规范：有其他非法字符！",0+48,"错误")
            return
        otherwise
            *return 1
    endcase
    *if mm1>=1 and mm2>=1 and mm3>=1 and mm4=0
    *messagebox("密码设置成功！",0+48,"成功")
    *else
    *messagebox("密码设置不规范！",0+48,"错误")
    *return 1
    *endif
endif
*判断字符结束

[此贴子已经被作者于2021-12-29 08:59编辑过]