精易论坛
标题:
简化精易模块文本是否为汉字模块
[打印本页]
作者:
wzjcyy
时间:
2019-7-26 09:55
标题:
简化精易模块文本是否为汉字模块
子程序名
返回值类型
公开
备 注
文本_是否为汉字拼音
整数型
全汉字为0,全拼音为1,汉字拼音混合为2,空格不算
参数名
类 型
参考
可空
数组
备 注
欲判断文本
文本型
变量名
类 型
静态
数组
备 注
局_文本
文本型
ia
整数型
ib
整数型
局_文本 =
删全部空
(
欲判断文本
)
ia =
取文本长度
(
到半角
(
局_文本
)
)
ib =
取文本长度
(
到全角
(
局_文本
)
)
判断
(
ia = ib
)
返回
(
0
)
' 全汉字
判断
(
ia × 2 = ib
)
返回
(
1
)
' 全拼音
返回
(
2
)
' 汉字拼音混合
.版本 2
.子程序 文本_是否为汉字拼音, 整数型, 公开, 全汉字为0,全拼音为1,汉字拼音混合为2,空格不算
.参数 欲判断文本, 文本型
.局部变量 局_文本, 文本型
.局部变量 ia, 整数型
.局部变量 ib, 整数型
局_文本 = 删全部空 (欲判断文本)
ia = 取文本长度 (到半角 (局_文本))
ib = 取文本长度 (到全角 (局_文本))
.判断开始 (ia = ib)
返回 (0) ' 全汉字
.判断 (ia × 2 = ib)
返回 (1) ' 全拼音
.默认
返回 (2) ' 汉字拼音混合
作者:
jace
时间:
2020-3-20 23:02
有兴趣的可以试试。
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4