代码实现易语言的分割文本（）

APPLEUFO

  

子程序名	返回值类型	公开	备 注
文本模块_分割文本	整数型		注意会删除空文本（参数_分割用文本 是空文本的话，是其他字符也会删除调）。 在短的数据里，数据量又大的时候，可能会比默认的分割文本快，喜欢的话 测试一下吧
参数名	类 型	参考	可空	数组	备 注
参数_原始文本	文本型
参数_分割用文本	文本型
参数_返回数组	文本型

变量名	类 型	静态	数组	备 注
局变_找到位置	整数型
局变_标记	整数型		0	如果是空格，就是空格标记位置
n1	整数型
x1	整数型
y1	整数型
局变_文本	文本型

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

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

清除数组 (参数_返回数组)
加入成员 (局变_标记, 0)  ' 首
加入成员 (局变_标记, 局变_找到位置)
循环判断首 ()
局变_找到位置 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, 局变_找到位置 ＋ 1, 假)
如果 (局变_找到位置 ＝ -1)
跳出循环 ()


加入成员 (局变_标记, 局变_找到位置)

循环判断尾 (真)
如果真 (局变_标记 [取数组成员数 (局变_标记)] ≠ 取文本长度 (参数_原始文本))
加入成员 (局变_标记, 取文本长度 (参数_原始文本) ＋ 1)  ' 尾

计次循环首 (取数组成员数 (局变_标记) － 1, n1)
x1 ＝ 局变_标记 [n1] ＋ 1
y1 ＝ 局变_标记 [n1 ＋ 1] － 1
如果真 (x1 ＞ y1)  ' 说明交错了，中间没有东西
到循环尾 ()

局变_文本 ＝ 文本模块_取文本中间_位置 (参数_原始文本, x1, y1)
加入成员 (参数_返回数组, 局变_文本)
计次循环尾 ()
返回 (取数组成员数 (参数_返回数组))

.版本 2<br /> <br /> .子程序 文本模块_分割文本, 整数型, 公开, 注意会删除空文本（参数_分割用文本 是空文本的话，是其他字符也会删除调）。 在短的数据里，数据量又大的时候，可能会比默认的分割文本快，喜欢的话 测试一下吧<br /> .参数 参数_原始文本, 文本型<br /> .参数 参数_分割用文本, 文本型<br /> .参数 参数_返回数组, 文本型, 数组,  <br /> .局部变量 局变_找到位置, 整数型<br /> .局部变量 局变_标记, 整数型, , "0", 如果是空格，就是空格标记位置<br /> .局部变量 n1, 整数型<br /> .局部变量 x1, 整数型<br /> .局部变量 y1, 整数型<br /> .局部变量 局变_文本, 文本型<br /> <br /> .如果真 (取文本长度 (参数_原始文本) ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> <br /> 局变_找到位置 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, , 假)<br /> .如果真 (局变_找到位置 ＝ -1)<br />     返回 (0)<br /> .如果真结束<br /> <br /> 清除数组 (参数_返回数组)<br /> <br /> 加入成员 (局变_标记, 0)  ' 首<br /> 加入成员 (局变_标记, 局变_找到位置)<br /> <br /> .循环判断首 ()<br />     局变_找到位置 ＝ 寻找文本 (参数_原始文本, 参数_分割用文本, 局变_找到位置 ＋ 1, 假)<br />     .如果 (局变_找到位置 ＝ -1)<br />         跳出循环 ()<br />     .否则<br /> <br />         加入成员 (局变_标记, 局变_找到位置)<br />     .如果结束<br /> <br /> .循环判断尾 (真)<br /> <br /> .如果真 (局变_标记 [取数组成员数 (局变_标记)] ≠ 取文本长度 (参数_原始文本))<br />     加入成员 (局变_标记, 取文本长度 (参数_原始文本) ＋ 1)  ' 尾<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (局变_标记) － 1, n1)<br /> <br />     x1 ＝ 局变_标记 [n1] ＋ 1<br />     y1 ＝ 局变_标记 [n1 ＋ 1] － 1<br />     .如果真 (x1 ＞ y1)  ' 说明交错了，中间没有东西<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     局变_文本 ＝ 文本模块_取文本中间_位置 (参数_原始文本, x1, y1)<br />     加入成员 (参数_返回数组, 局变_文本)<br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (参数_返回数组))

  

子程序名	返回值类型	公开	备 注
文本模块_取文本中间_位置	文本型		取出符号位置内的文本（包含符号本身）。参数开始位置：1为首位置，2为第2个位置，如此类推。 注意：需注意,如果是双字符，第二个位置需要加1,才能取得第二个的文本尾部位置.需注意单字符还是双字符
参数名	类 型	参考	可空	数组	备 注
参数文本	文本型
参数开始位置	整数型				1为首位置，2为第2个位置，如此类推。
参数结束位置	整数型

变量名	类 型	静态	数组	备 注
局变结果文本	文本型

如果真 (参数开始位置 ＝ -1 或 参数结束位置 ＝ -1)
' 调试输出 (“模块_取文本中间_根据位置”, 参数文本, 参数开始位置, 参数结束位置)
返回 (“”)

局变结果文本 ＝ 取文本中间 (参数文本, 参数开始位置, 参数结束位置 ��� (参数开始位置 － 1))  ' 开始位置也算一位
返回 (局变结果文本)
' 总觉得  取文本中间（）  第三个参数有些变扭 ，欲取出字符的数目
' 若是不知道文本字符数目的话，还得倒过头来算一遍字符数目，绕弯～～、
' 刚好写某软要取引号中的文本，想到了个办法
' 和原来的取文本中间相比，整个的代码简练多了 ，下面是与取文本中间的对比
' 例如  ’你好"旧时光"八月长安     ' 取出引号中的内容
' 模块_取文本中间_根据位置（文本，引号开始位置+1，引号结束位置-1）
' 例程，单个字符与双字符很不一样，需注意
' 局变_文本 ＝ “★☆插件  AddMoonProject.dll 加载成功☆★”
' 局变_位置1 ＝ 寻找文本 (局变_文本, “☆”, , 假)
' 局变_位置2 ＝ 寻找文本 (局变_文本, “☆”, 局变_位置1 ＋ 1, 假)
' 文本模块_取文本中间_位置(局变_文本,局变_位置1,局变_位置2)

.版本 2<br /> <br /> .子程序 文本模块_取文本中间_位置, 文本型, 公开, 取出符号位置内的文本（包含符号本身）。参数开始位置：1为首位置，2为第2个位置，如此类推。 注意：需注意,如果是双字符，第二个位置需要加1,才能取得第二个的文本尾部位置.需注意单字符还是双字符<br /> .参数 参数文本, 文本型<br /> .参数 参数开始位置, 整数型, , 1为首位置，2为第2个位置，如此类推。<br /> .参数 参数结束位置, 整数型<br /> .局部变量 局变结果文本, 文本型<br /> <br /> .如果真 (参数开始位置 ＝ -1 或 参数结束位置 ＝ -1)<br />     ' 调试输出 (“模块_取文本中间_根据位置”, 参数文本, 参数开始位置, 参数结束位置)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> <br /> 局变结果文本 ＝ 取文本中间 (参数文本, 参数开始位置, 参数结束位置 － (参数开始位置 － 1))  ' 开始位置也算一位<br /> 返回 (局变结果文本)<br /> <br /> <br /> <br /> <br /> <br /> ' 总觉得  取文本中间（）  第三个参数有些变扭 ，欲取出字符的数目<br /> ' 若是不知道文本字符数目的话，还得倒过头来算一遍字符数目，绕弯～～、<br /> ' 刚好写某软要取引号中的文本，想到了个办法<br /> ' 和原来的取文本中间相比，整个的代码简练多了 ，下面是与取文本中间的对比<br /> ' 例如  ’你好"旧时光"八月长安     ' 取出引号中的内容<br /> ' 模块_取文本中间_根据位置（文本，引号开始位置+1，引号结束位置-1）<br /> <br /> ' 例程，单个字符与双字符很不一样，需注意<br /> ' 局变_文本 ＝ “★☆插件  AddMoonProject.dll 加载成功☆★”<br /> ' 局变_位置1 ＝ 寻找文本 (局变_文本, “☆”, , 假)<br /> ' 局变_位置2 ＝ 寻找文本 (局变_文本, “☆”, 局变_位置1 ＋ 1, 假)<br /> ' 文本模块_取文本中间_位置(局变_文本,局变_位置1,局变_位置2)

这是结果

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
aaaaa	文本型
bbb	文本型		0
ccc	文本型		0

aaaaa ＝ “xxx.yyy.zzz”
bbb ＝ 分割文本 (aaaaa, “.”, )
文本模块_分割文本 (aaaaa, “.”, ccc)
调试输出 (bbb)
调试输出 (ccc)
调试输出 (“_____________________________”)
aaaaa ＝ “https://www.bilibili.com/video/BV1RL411M7jK”
bbb ＝ 分割文本 (aaaaa, “/”, )
文本模块_分割文本 (aaaaa, “/”, ccc)
调试输出 (bbb)
调试输出 (ccc)
调试输出 (“_____________________________”)
aaaaa ＝ “xxxYYyyyYzzz”
bbb ＝ 分割文本 (aaaaa, “Y”, )
文本模块_分割文本 (aaaaa, “Y”, ccc)
调试输出 (bbb)
调试输出 (ccc)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 aaaaa, 文本型<br /> .局部变量 bbb, 文本型, , "0"<br /> .局部变量 ccc, 文本型, , "0"<br /> <br /> <br /> <br /> aaaaa ＝ “xxx.yyy.zzz”<br /> bbb ＝ 分割文本 (aaaaa, “.”, )<br /> 文本模块_分割文本 (aaaaa, “.”, ccc)<br /> <br /> 调试输出 (bbb)<br /> 调试输出 (ccc)<br /> <br /> 调试输出 (“_____________________________”)<br /> <br /> aaaaa ＝ “https://www.bilibili.com/video/BV1RL411M7jK”<br /> bbb ＝ 分割文本 (aaaaa, “/”, )<br /> 文本模块_分割文本 (aaaaa, “/”, ccc)<br /> <br /> 调试输出 (bbb)<br /> 调试输出 (ccc)<br /> <br /> 调试输出 (“_____________________________”)<br /> <br /> aaaaa ＝ “xxxYYyyyYzzz”<br /> bbb ＝ 分割文本 (aaaaa, “Y”, )<br /> 文本模块_分割文本 (aaaaa, “Y”, ccc)<br /> <br /> 调试输出 (bbb)<br /> 调试输出 (ccc)

例如
分割文本（） 默认结果是 “a”,"","b"
而这个   文本模块_分割文本（）  的结果就是 “a”,"b"

易语言默认的分割文本，有时候经常会出现空数组
这个也把空数组给删除了，准确来说是跳过不统计进去

APPLEUFO

.版本 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, , 取文本长度 (参数_原始文本))

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


新的，不快能用就是了

APPLEUFO

  

子程序名	返回值类型	公开	备 注
文本模块_分割文本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

ghost12

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

APPLEUFO

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

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

瓶中仙子

刚才测试好像很慢啊

瓶中仙子

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

趣冉科技

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

q312459945

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

APPLEUFO

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

  aaa是文本型啊