逐字分割法:
[Erlang] 纯文本查看 复制代码 .版本 2
.子程序 文本_逐字分割, 整数型, 公开, 将指定文本,逐字分割成数组,保存为指定的变量数组中,返回成员个数,可识别换行符及全半角字符和汉字
.参数 文本, 文本型, , 需要分割的文本
.参数 返回的数组, 文本型, 参考 可空 数组, 保存分割结果的数组变量
.局部变量 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
.判断循环尾 ()
返回 (取数组成员数 (返回的数组))
|