文本拆分成一个一个和文本逐字取出重复

夜色没落

  

子程序名	返回值类型	公开	备 注
文本单个拆分	整数型		返回数量
参数名	类 型	参考	可空	数组	备 注
文本	文本型
返回的文本数组	文本型

变量名	类 型	静态	数组	备 注
n	整数型

n ＝ 1
循环判断首 ()
如果 (是否为双字节字符 (文本, n － 1) ＝ 真)
加入成员 (返回的文本数组, 取文本中间 (文本, n, 2))
n ＝ n ＋ 2
加入成员 (返回的文本数组, 取文本中间 (文本, n, 1))
n ＝ n ＋ 1

循环判断尾 (n ≤ 取文本长度 (文本))
返回 (取数组成员数 (返回的文本数组))

子程序名	返回值类型	公开	备 注
取重复字符	文本型
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
比较文本	文本型

变量名	类 型	静态	数组	备 注
a	文本型		0
b	文本型		0
i	整数型
n	整数型
repeat	文本型

文本单个拆分 (原文本, a)
文本单个拆分 (比较文本, b)
计次循环首 (取数组成员数 (a), i)
计次循环首 (取数组成员数 (b), n)
如果真 (a [i] ＝ b [n])
repeat ＝ repeat ＋ b [n]
跳出循环 ()

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

i支持库列表	支持库注释
OPenGL	OPenGL支持库

.版本 2<br /> .支持库 OPenGL<br /> <br /> .子程序 文本单个拆分, 整数型, , 返回数量<br /> .参数 文本, 文本型<br /> .参数 返回的文本数组, 文本型, 参考 数组<br /> .局部变量 n, 整数型<br /> <br /> n ＝ 1<br /> .循环判断首 ()<br />     .如果 (是否为双字节字符 (文本, n － 1) ＝ 真)<br />         加入成员 (返回的文本数组, 取文本中间 (文本, n, 2))<br />         n ＝ n ＋ 2<br />     .否则<br />         加入成员 (返回的文本数组, 取文本中间 (文本, n, 1))<br />         n ＝ n ＋ 1<br />     .如果结束<br /> <br /> .循环判断尾 (n ≤ 取文本长度 (文本))<br /> 返回 (取数组成员数 (返回的文本数组))<br /> <br /> .子程序 取重复字符, 文本型<br /> .参数 原文本, 文本型<br /> .参数 比较文本, 文本型<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 repeat, 文本型<br /> <br /> 文本单个拆分 (原文本, a)<br /> 文本单个拆分 (比较文本, b)<br /> .计次循环首 (取数组成员数 (a), i)<br />     .计次循环首 (取数组成员数 (b), n)<br />         .如果真 (a <i> ＝ b [n])<br />             repeat ＝ repeat ＋ b [n]<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (repeat)

翻阅了一下似乎没有这个，自己就琢磨了一下（一下以我的时间单位换算大约等于2.635个小时）
取重复文本那个不知道算不算BUG，我思路似乎乱了，有更好的写法求@我！

韩奕博

看看。                  

无敌灰灰

精易模块里好像有。。。

qaq腾讯业务

抢个沙发，楼主来杯茶可好？

snmy5863

    子程序名：文本_逐字分割
    将指定文本,逐字分割成数组,保存为指定的变量数组中,返回成员个数[haory]
    返回值类型：整数型
    参数<1>的名称为“文本”，类型为“文本型”。注明：需要分割的文本。
    参数<2>的名称为“返回的数组”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据，需要接收数组数据。注明：保存分割结果的数组变量。