【精易模块@改进建议】 文本_逐字分割 ∶ 支持全半角及各种中英文字符

q97012791

@萧阳天


今天刚想到用这个命令, 发现说明里不支持全角字符, 就自己改进了一下,
现在可以支持全角符号和半角符号,英文以及汉字, 也支持换行符, 应该是最终版本了吧, 望采纳

  

子程序名	返回值类型	公开	备 注
WB_逐字分割	整数型		将指定文本,逐字分割成数组,保存为指定的变量数组中,返回成员个数,可识别换行符及全半角字符和汉字
参数名	类 型	参考	可空	数组	备 注
文本	文本型				需要分割的文本
返回的数组	文本型				保存分割结果的数组变量

变量名	类 型	静态	数组	备 注
c	整数型
n	整数型
z	整数型
返回文本	文本型
临时字节集	字节集

清除数组 (返回的数组)
临时字节集 ＝ 到字节集 (文本)
c ＝ 取字节集长度 (临时字节集)
n ＝ 1
判断循环首 (n ≤ c)
如果 (n ＋ 1 ＞ c)
z ＝ 1
如果 (临时字节集 [n] ＞ 128)
z ＝ 2
如果 (临时字节集 [n] ≠ 13)
z ＝ 1
如果 (临时字节集 [n ＋ 1] ＝ 10)
z ＝ 2
z ＝ 1



加入成员 (返回的数组, 到文本 (取字节集中间 (临时字节集, n, z)))
n ＝ n ＋ z
判断循环尾 ()
返回 (取数组成员数 (返回的数组))

.版本 2<br /> <br /> .子程序 WB_逐字分割, 整数型, 公开, 将指定文本,逐字分割成数组,保存为指定的变量数组中,返回成员个数,可识别换行符及全半角字符和汉字<br /> .参数 文本, 文本型, , 需要分割的文本<br /> .参数 返回的数组, 文本型, 参考 可空 数组, 保存分割结果的数组变量<br /> .局部变量 c, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 z, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 临时字节集, 字节集<br /> <br /> 清除数组 (返回的数组)<br /> 临时字节集 ＝ 到字节集 (文本)<br /> c ＝ 取字节集长度 (临时字节集)<br /> n ＝ 1<br /> .判断循环首 (n ≤ c)<br />     .如果 (n ＋ 1 ＞ c)<br />         z ＝ 1<br />     .否则<br />         .如果 (临时字节集 [n] ＞ 128)<br />             z ＝ 2<br />         .否则<br />             .如果 (临时字节集 [n] ≠ 13)<br />                 z ＝ 1<br />             .否则<br />                 .如果 (临时字节集 [n ＋ 1] ＝ 10)<br />                     z ＝ 2<br />                 .否则<br />                     z ＝ 1<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br />     加入成员 (返回的数组, 到文本 (取字节集中间 (临时字节集, n, z)))<br />     n ＝ n ＋ z<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (返回的数组))

夹缝中求生

真心不错的这个

yinghao2005

到半角()

ko44