精易论坛

标题: 一串文本如果判断是否只包含数字和空格？内详 [打印本页]

作者: 独倚斜阳 时间: 2013-11-22 20:05
标题: 一串文本如果判断是否只包含数字和空格？内详
一串文本如果判断是否只包含数字和空格？内详
一串文本只要求“里面为纯数字或者数字前后有空格” （数字中间有空格不行）字符串里面出现中文也不行

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

作者: 君不见 时间: 2013-11-22 20:05

.版本 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.标题＝ “字符串只有数字”
.判断结束

作者: 黑月 时间: 2013-11-22 23:15

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

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

欢迎光临精易论坛 (https://125.confly.eu.org/)