精易论坛

标题: 文本_是否为汉字（）建议弄成2个命令 [打印本页]

作者: 小爬虫 时间: 2013-12-16 20:54
标题: 文本_是否为汉字（）建议弄成2个命令
目前代码如下，这个，这个，还是分成2种不同方式判断的命令吧，合在一起，算个嘛事呀{:soso_e140:}

.版本 2

.子程序文本_是否为汉字, 逻辑型, 公开, 判断一个文本第一个字是否是汉字,是汉字返回真,否则返回假
.参数欲判断文本, 文本型
.参数正则方式, 逻辑型, 可空, 是否正则方式判断，可以判断生僻的汉字
.局部变量局_区码, 字节型
.局部变量局_位码, 字节型
.局部变量正则, 正则表达式类
.局部变量匹配文本, 文本型

.如果真 (正则方式)
匹配文本＝取文本左边 (欲判断文本, 2)
正则.创建 (“[^\x20-\x7f]”, 匹配文本)
.判断开始 (正则.取匹配数量 () ＝ 1)
返回 (真)
.默认
返回 (假)
.判断结束

.如果真结束
' 非正则方式判断------------------------------------------------
.如果真 (取文本长度 (删全部空 (欲判断文本)) ≤ 1)
返回 (假)
.如果真结束
局_区码＝取代码 (取文本左边 (欲判断文本, 1), )
局_位码＝取代码 (取文本中间 (欲判断文本, 2, 1), )
.如果 (局_区码＜ 176 或局_区码＞ 247 或局_位码＜ 161 或局_位码＞ 254)
返回 (假)
.否则
返回 (真)
.如果结束

作者: 提百万 时间: 2013-12-16 21:19
有必要么

作者: ai12207745 时间: 2013-12-16 21:41
有必要么