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

APPLEUFO · 发表于 2021-11-26 23:29:24

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

变量名	类型	静态	数组	备注
局变_找到位置	整数型
局变_标记	整数型		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)