取出识别文本内是否有汉字

.子程序 文本_判断是否为汉字, 逻辑型, 公开, 判断指定内容是否有汉字
.参数 源文本, 文本型, , 要取出汉字的源文本
.参数 起始位置, 整数型, 可空, 默认：1||1为首位置，2为第2个位置，如此类推。
.参数 欲取出个数, 整数型, 可空, 默认：全部搜索
.局部变量 正则, 正则表达式
.局部变量 局_文本, 文本型
.局部变量 局_计次, 整数型
.局部变量 搜索结果, 搜索结果, , "0"
.局部变量 文本, 文本型
.局部变量 局_位置, 整数型
.局部变量 个数, 整数型

.判断开始 (起始位置 ＝ 0)
局_位置 ＝ 1
.默认
局_位置 ＝ 起始位置
.判断结束
.判断开始 (欲取出个数 ＝ 0)
个数 ＝ 取文本长度 (源文本)
调试输出 (个数)
.默认
个数 ＝ 欲取出个数
.判断结束
文本 ＝ 取文本中间 (源文本, 局_位置, 个数)
正则.创建 (“[^\x20-\x7f]”, )
搜索结果 ＝ 正则.搜索全部 (文本)
.计次循环首 (取数组成员数 (搜索结果), 局_计次)
局_文本 ＝ 局_文本 ＋ 搜索结果 [局_计次].取匹配文本 (文本, )
.计次循环尾 ()
返回 (局_文本 ≠ “”)