判断是否为纯数字或字母

坏坏坏锄头

求指教，如何写个判断，单编辑框1.内容为纯字母时，提示不能输入纯字母，当编辑框1.内容为纯数字时，提示框，不能输入纯数字，但既不为纯数字和字母时，则提示通过

ljmst

看源码解决问题！   中文无法输入      单数字或单字母统统不过关！谢谢采纳！

已注销192553

[e]
.版本 2

.子程序 _文本添加_被选择
.局部变量 被添加的帐号, 文本型
.局部变量 j_jc, 整数型
.局部变量 分割后的文本, 文本型, , "0"
.局部变量 是否全为数字, 逻辑型


输入框 (“请输入您需要添加的帐号，一次仅能输入一个” ＋ #换行符 ＋ “123456” ＋ #换行符 ＋ “456789”, “添加号码”, “在此输入帐号”, 被添加的帐号, #输入文本)

.判断开始 (被添加的帐号 ≠ “在此输入帐号” 且 被添加的帐号 ≠ “”)
    .判断开始 (取文本长度 (被添加的帐号) ≥ 5 且 取文本长度 (被添加的帐号) ≤ 10)
        .计次循环首 (取文本长度 (被添加的帐号), j_jc)
            文本_逐字分割 (被添加的帐号, 分割后的文本)

            .判断开始 (到数值 (分割后的文本 [j_jc]) ＝ 0)
                .如果真 (分割后的文本 [j_jc] ≠ “0”)
                    是否全为数字 ＝ 假
                    跳出循环 ()
                .如果真结束

            .默认
                是否全为数字 ＝ 真
            .判断结束

        .计次循环尾 ()

    .默认
        信息框 (“您输入的帐号过长或过短，请检查后再输入！”, 0, )
        返回 ()
    .判断结束

.默认
    信息框 (“请输入您要添加的帐号！！”, 0, )
    返回 ()
[/e]

坏坏坏锄头

e默者 发表于 2013-3-14 19:31
[e]
.版本 2

看代码好像不是，我需要判断是，是否为纯字母或者纯数字

小猪℃陪着我

我建议楼主用正则

已注销192553

干嘛不试试呢？上面是我写过的一段判断是否为数字的代码，能过滤掉符号、英文、汉字，至于你说的纯英文，那就不知道了，真没写过

罪儿

用正则吧。
首先用这个表达式 [0-9] 去匹配编辑框的内容
然后取这个编辑框内容的长度如果等于匹配数量。那就是纯数字
如果不是纯数字。再用这个表达式[a-zA-Z]
方法如上。判断是不是纯字母

罪儿

给你写好了.用精易模块...最佳哦~~
[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 z1, 正则表达式类
.程序集变量 z2, 正则表达式类

.子程序 _按钮1_被单击

z1.创建 (“[0-9]”, 编辑框1.内容)
.判断开始 (取文本长度 (编辑框1.内容) ＝ z1.取匹配数量 ())
    信息框 (“纯数字”, 0, )
.默认
    z2.创建 (“[a-zA-Z]”, 编辑框1.内容)
    .判断开始 (取文本长度 (编辑框1.内容) ＝ z2.取匹配数量 ())
        信息框 (“纯字母”, 0, )
    .默认
        信息框 (“没有问题”, 0, )
    .判断结束

[/e]

坏坏坏锄头

ljmst 发表于 2013-3-14 19:14
看源码解决问题！   中文无法输入      单数字或单字母统统不过关！谢谢采纳！

谢谢，比前面的方案都好

ljmst

坏坏坏锄头 发表于 2013-3-14 20:10
谢谢，比前面的方案都好

感谢你的打赏！QQ导出列表页搞定了