.版本 2
.支持库 spec

.子程序 文本模块_分割文本3, 整数型, 公开
.参数 参数_原始文本, 文本型
.参数 参数_分割用文本, 文本型
.参数 参数_结果数组, 文本型, 数组,  
.局部变量 局变_找到位置, 整数型
.局部变量 局变_首, 整数型
.局部变量 局变_尾, 整数型
.局部变量 局变_分隔符位置, 模块_游标, , "0"
.局部变量 局变_游标, 模块_游标
.局部变量 n1, 整数型
.局部变量 局变_结尾, 整数型, , , 用于开始和结束的边界变量

.如果真 (取文本长度 (参数_原始文本) ＝ 0)
    返回 (0)
.如果真结束

局变_找到位置 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, , 假)
.如果真 (局变_找到位置 ＝ -1)
    返回 (0)
.如果真结束

清除数组 (参数_结果数组)

.循环判断首 ()

    局变_首 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, 局变_尾 ＋ 1, 假)
    .如果 (局变_首 ＝ -1)
        跳出循环 ()
    .否则

        局变_尾 ＝ 局变_首 ＋ 取文本长度 (参数_分割用文本) － 1

        局变_游标.首 ＝ 局变_首
        局变_游标.尾 ＝ 局变_尾
        加入成员 (局变_分隔符位置, 局变_游标)
    .如果结束

.循环判断尾 (真)


.计次循环首 (取数组成员数 (局变_分隔符位置), n1)
    .如果 (n1 ＝ 1)

        .如果 (局变_分隔符位置 [n1].首 － 1 ＝ 0)  ' 开始的边界
            ' 不用添加一个空文本了
        .否则

            加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 1, 局变_分隔符位置 [n1].首 － 1))
        .如果结束


    .否则

        加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 局变_分隔符位置 [n1 － 1].尾 ＋ 1, 局变_分隔符位置 [n1].首 － 1))
    .如果结束


.计次循环尾 ()

局变_结尾 ＝ 局变_分隔符位置 [取数组成员数 (局变_分隔符位置)].尾 ＋ 1  ' 这里是结尾

.如果 (局变_结尾 ≥ 取文本长度 (参数_原始文本))
    ' 无动作   不用添加了///   = 是一样长，大于是一样长且超过末尾文本长度了
.否则

    加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 局变_结尾, 取文本长度 (参数_原始文本)))  ' 最后一个'  这里待会看看
.如果结束


调试输出 (局变_分隔符位置 [取数组成员数 (局变_分隔符位置)].尾 ＋ 1, , 取文本长度 (参数_原始文本))

返回 (取数组成员数 (参数_结果数组))


新的，不快能用就是了

  

子程序名	返回值类型	公开	备 注
文本模块_分割文本3	整数型
参数名	类 型	参考	可空	数组	备 注
参数_原始文本	文本型
参数_分割用文本	文本型
参数_结果数组	文本型

变量名	类 型	静态	数组	备 注
局变_找到位置	整数型
局变_首	整数型
局变_尾	整数型
局变_分隔符位置	模块_游标		0
局变_游标	模块_游标
n1	整数型

如果真 (取文本长度 (参数_原始文本) ＝ 0)
返回 (0)

局变_找到位置 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, , 假)
如果真 (局变_找到位置 ＝ -1)
返回 (0)

清除数组 (参数_结果数组)
循环判断首 ()
局变_首 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, 局变_尾 ＋ 1, 假)
如果 (局变_首 ＝ -1)
跳出循环 ()


局变_尾 ＝ 局变_首 ＋ 取文本长度 (参数_分割用文本) － 1
局变_游标.首 ＝ 局变_首
局变_游标.尾 ＝ 局变_尾
加入成员 (局变_分隔符位置, 局变_游标)

循环判断尾 (真)
计次循环首 (取数组成员数 (局变_分隔符位置), n1)
如果 (n1 ＝ 1)
加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 1, 局变_分隔符位置 [n1].首 － 1))


加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 局变_分隔符位置 [n1 － 1].尾 ＋ 1, 局变_分隔符位置 [n1].首 － 1))

计次循环尾 ()
加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 局变_分隔符位置 [取数组成员数 (局变_分隔符位置)].尾 ＋ 1, 取文本长度 (参数_原始文本)))  ' 最后一个
返回 (取数组成员数 (参数_结果数组))

.版本 2<br /> <br /> .子程序 文本模块_分割文本3, 整数型, 公开<br /> .参数 参数_原始文本, 文本型<br /> .参数 参数_分割用文本, 文本型<br /> .参数 参数_结果数组, 文本型, 数组,  <br /> .局部变量 局变_找到位置, 整数型<br /> .局部变量 局变_首, 整数型<br /> .局部变量 局变_尾, 整数型<br /> .局部变量 局变_分隔符位置, 模块_游标, , "0"<br /> .局部变量 局变_游标, 模块_游标<br /> .局部变量 n1, 整数型<br /> <br /> .如果真 (取文本长度 (参数_原始文本) ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> <br /> 局变_找到位置 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, , 假)<br /> .如果真 (局变_找到位置 ＝ -1)<br />     返回 (0)<br /> .如果真结束<br /> <br /> 清除数组 (参数_结果数组)<br /> <br /> .循环判断首 ()<br /> <br />     局变_首 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, 局变_尾 ＋ 1, 假)<br />     .如果 (局变_首 ＝ -1)<br />         跳出循环 ()<br />     .否则<br /> <br />         局变_尾 ＝ 局变_首 ＋ 取文本长度 (参数_分割用文本) － 1<br /> <br />         局变_游标.首 ＝ 局变_首<br />         局变_游标.尾 ＝ 局变_尾<br />         加入成员 (局变_分隔符位置, 局变_游标)<br />     .如果结束<br /> <br /> .循环判断尾 (真)<br /> <br /> .计次循环首 (取数组成员数 (局变_分隔符位置), n1)<br />     .如果 (n1 ＝ 1)<br /> <br />         加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 1, 局变_分隔符位置 [n1].首 － 1))<br />     .否则<br /> <br /> <br />         加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 局变_分隔符位置 [n1 － 1].尾 ＋ 1, 局变_分隔符位置 [n1].首 － 1))<br />     .如果结束<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> 加入成员 (参数_结果数组, 文本模块_取文本中间_位置 (参数_原始文本, 局变_分隔符位置 [取数组成员数 (局变_分隔符位置)].尾 ＋ 1, 取文本长度 (参数_原始文本)))  ' 最后一个<br /> <br /> <br /> 返回 (取数组成员数 (参数_结果数组))

.版本 2

.数据类型 模块_游标, 公开, 游标是一个类似"点"，有横坐标，纵坐标的数据类型，游标则有首，尾组成，取自丈量长度的游标卡尺
    .成员 首, 整数型
    .成员 尾, 整数型



新的  修复bug

感谢发布原创作品，一定好好学习，天天向上

瓶中仙子 发表于 2022-1-24 00:56
刚才测试好像很慢啊

应该不会慢太多，另外这个会删除空内容的文本，可以减少以后循环删除空文本的步骤，分割后的数据也会比默认的少一些

刚才测试好像很慢啊

比易自带的分割文本的速度怎么样

感谢楼主分享，支持一下~~！！！

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

我就我 发表于 2021-12-1 04:55
有点不懂，从源码来看aaaaa不也是数组？

  aaa是文本型啊