一串文本 如果判断是否只包含数字和空格？内详

独倚斜阳

一串文本 如果判断是否只包含数字和空格？内详
  一串文本 只要求“里面为纯数字或者数字前后有空格”   （数字中间有空格不行）  字符串里面出现中文也不行

我现在只能判断首字符是否有汉字{:soso_e101:}

君不见

.版本 2
.程序集 窗口程序集1
.程序集变量 数据, 字节集
.程序集变量 n, 整数型
.程序集变量 l, 整数型
.程序集变量 文本1, 文本型, , "0"
.程序集变量 文本, 文本型
.程序集变量 hz, 整数型
.程序集变量 zm, 整数型
.子程序 _按钮1_被单击
清除数组 (文本1)
hz ＝ 1
zm ＝ 1
数据 ＝ 到字节集 (编辑框1.内容)
l ＝ 取字节集长度 (数据)
文本 ＝ “abcdefghijklmnopqrstuvwxyz”
n ＝ 1
.判断循环首 (n ≤ l)
    .如果 (数据 [n] ＞ 127)
        加入成员 (文本1, 字符 (数据 [n]) ＋ 字符 (数据 [n ＋ 1]))
        hz ＝ hz ＋ 1
        n ＝ n ＋ 2
    .否则
        加入成员 (文本1, 字符 (数据 [n]))
        n ＝ n ＋ 1
    .如果结束
.判断循环尾 ()
n ＝ 1
.计次循环首 (取数组成员数 (文本1), n)
    .如果真 (寻找文本 (文本, 文本1 [n], , 假) ≠ -1)
        zm ＝ zm ＋ 1
    .如果真结束

.计次循环尾 ()

.判断开始 (hz ＞ 1)
    标签1.标题 ＝ “字符串有汉字”
.判断 (zm ＞ 1)
    标签1.标题 ＝ “字符串有字母”
.默认
    标签1.标题 ＝ “字符串只有数字”
.判断结束

黑月

源码.rar (1.76 KB, 下载次数: 9)

2013-11-22 23:14 上传

点击文件名下载附件

模仿君不见做了一个，是这样的效果吗