已审核词条 未审核词条

子程序名	返回值类型	公开	备 注
文本_是否为汉字	逻辑型		中间不能有空格,判断一个文本是否全为汉字,是汉字返回真,否则返回假
参数名	类 型	参考	可空	数组	备 注
欲判断文本	文本型
正则方式	逻辑型				是否正则方式判断，可以判断生僻的汉字

变量名	类 型	静态	数组	备 注
局_区码	字节型
局_位码	字节型
RegExp	对象
匹配文本	文本型
bool	逻辑型
局_长度
i	整数型
局_键代码	整数型

局_长度 ＝ 取文本长度 (删全部空 (欲判断文本))
如果真 (局_长度 ≤ 1)
返回 (假)
如果真 (正则方式)
线程_初始化COM库 ()
RegExp.创建 (“VBScript.RegExp”, )
RegExp.写属性 (“Pattern”, “^[\u4e00-\u9fa5]{1,}$”)
bool ＝ RegExp.逻辑方法 (“Test”, 欲判断文本)
RegExp.清除 ()
线程_取消COM库 ()
返回 (bool)
' 非正则方式判断------------------------------------------------
计次循环首 (局_长度, i)
局_键代码 ＝ 取代码 (欲判断文本, i)
如果真 (局_键代码 ≥ 0)
返回 (假)

计次循环尾 ()
返回 (真)

词条作者信息 使用例程 参与校正错误的易友