有没有比文本分割更快的办法，求助大佬

wxhscc

内容例子： 例子.e (3.41 KB, 下载次数: 9)

2022-2-21 23:51 上传

点击文件名下载附件

真冬

真冬 发表于 2022-2-22 00:12

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

[/quote]
[e=0].版本 2

子程序名	返回值类型	公开	备 注
_按钮1_被单击

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

q ＝ 取启动时间 ()
编辑框2.内容 ＝ 什么编程后面加内容 (编辑框1.内容, “编程”)
调试输出 (取启动时间 () － q)

子程序名	返回值类型	公开	备 注
什么编程后面加内容	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型
关键字	文本型

变量名	类 型	静态	数组	备 注
a	整数型
b1	整数型
b2	整数型
c	文本型
c1	文本型
asd	快速文本对象

c1 ＝ 字符 (9)
asd.添加 (原文)
循环判断首 ()
a ＝ asd.寻找文本 (关键字, a ＋ 1, 假)
如果真 (a ≠ -1)
b1 ＝ asd.倒找文本 (c1, a, 假) ＋ 1
b2 ＝ asd.寻找文本 ( #换行符, a, 假)
c ＝ c ＋ asd.取文本 (b1, b2 － b1) ＋ #换行符

循环判断尾 (a ≠ -1)
返回 (c)

i支持库列表	支持库注释
spec	特殊功能支持库
commobj	通用对象支持库

.版本 2<br /> <br /> .子程序 _按钮1_被单击</blockquote></div><br /> [e=0].版本 2<br /> .支持库 spec<br /> .支持库 commobj<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 q, 整数型<br /> <br /> q ＝ 取启动时间 ()<br /> 编辑框2.内容 ＝ 什么编程后面加内容 (编辑框1.内容, “编程”)<br /> 调试输出 (取启动时间 () － q)<br /> <br /> .子程序 什么编程后面加内容, 文本型<br /> .参数 原文, 文本型<br /> .参数 关键字, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b1, 整数型<br /> .局部变量 b2, 整数型<br /> .局部变量 c, 文本型<br /> .局部变量 c1, 文本型<br /> .局部变量 asd, 快速文本对象<br /> <br /> c1 ＝ 字符 (9)<br /> asd.添加 (原文)<br /> .循环判断首 ()<br />     a ＝ asd.寻找文本 (关键字, a ＋ 1, 假)<br />     .如果真 (a ≠ -1)<br />         b1 ＝ asd.倒找文本 (c1, a, 假) ＋ 1<br />         b2 ＝ asd.寻找文本 (#换行符, a, 假)<br />         c ＝ c ＋ asd.取文本 (b1, b2 － b1) ＋ #换行符<br />     .如果真结束<br /> <br /> .循环判断尾 (a ≠ -1)<br /> 返回 (c)

神女软件定制

2个查找文本，

真冬

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框2.内容 ＝ 什么编程后面加内容 (编辑框1.内容, “编程”)

子程序名	返回值类型	公开	备 注
什么编程后面加内容	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型
关键字	文本型

变量名	类 型	静态	数组	备 注
a	整数型
b1	整数型
b2	整数型
c	文本型

循环判断首 ()
a ＝ 寻找文本 (原文, 关键字, a ＋ 1, 假)
如果真 (a ≠ -1)
b1 ＝ 倒找文本 (原文, 字符 (9), a, 假) ＋ 1
b2 ＝ 寻找文本 (原文, #换行符, a, 假)
c ＝ c ＋ 取文本中间 (原文, b1, b2 － b1) ＋ #换行符

循环判断尾 (a ≠ -1)
返回 (c)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框2.内容 ＝ 什么编程后面加内容 (编辑框1.内容, “编程”)<br /> <br /> .子程序 什么编程后面加内容, 文本型<br /> .参数 原文, 文本型<br /> .参数 关键字, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b1, 整数型<br /> .局部变量 b2, 整数型<br /> .局部变量 c, 文本型<br /> <br /> .循环判断首 ()<br />     a ＝ 寻找文本 (原文, 关键字, a ＋ 1, 假)<br />     .如果真 (a ≠ -1)<br />         b1 ＝ 倒找文本 (原文, 字符 (9), a, 假) ＋ 1<br />         b2 ＝ 寻找文本 (原文, #换行符, a, 假)<br />         c ＝ c ＋ 取文本中间 (原文, b1, b2 － b1) ＋ #换行符<br />     .如果真结束<br /> <br /> .循环判断尾 (a ≠ -1)<br /> 返回 (c)

风度猫

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局_数组	文本型		0
局_文本下标	整数型		3
局_文本长度	整数型

局_文本下标 [1] ＝ 0
局_文本长度 ＝ 取文本长度 (编辑框1.内容)
循环判断首 ()
局_文本下标 [1] ＝ 文本_寻找文本 (编辑框1.内容, “编程”, 局_文本下标 [1] ＋ 1, )
局_文本下标 [2] ＝ 倒找文本 (编辑框1.内容, 字符 (9), 局_文本下标 [1], 假)
局_文本下标 [3] ＝ 文本_寻找文本 (编辑框1.内容, #换行符, 局_文本下标 [2])
调试输出 (取文本中间 (编辑框1.内容, 局_文本下标 [2] ＋ 1, 局_文本下标 [3] － 局_文本下标 [2] － 1))
循环判断尾 (局_文本下标 [1] ≠ -1)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_文本下标, 整数型, , "3"<br /> .局部变量 局_文本长度, 整数型<br /> <br /> 局_文本下标 [1] ＝ 0<br /> 局_文本长度 ＝ 取文本长度 (编辑框1.内容)<br /> .循环判断首 ()<br />     局_文本下标 [1] ＝ 文本_寻找文本 (编辑框1.内容, “编程”, 局_文本下标 [1] ＋ 1, )<br />     局_文本下标 [2] ＝ 倒找文本 (编辑框1.内容, 字符 (9), 局_文本下标 [1], 假)<br />     局_文本下标 [3] ＝ 文本_寻找文本 (编辑框1.内容, #换行符, 局_文本下标 [2])<br />     调试输出 (取文本中间 (编辑框1.内容, 局_文本下标 [2] ＋ 1, 局_文本下标 [3] － 局_文本下标 [2] － 1))<br /> .循环判断尾 (局_文本下标 [1] ≠ -1)

可以大数据下对比下速度,精易模块的寻找文本比易支持库的要快不少

木小果

正则的方法来咯~~~
简单粗暴

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
正则	正则表达式类
i1	整数型

正则.创建 (“([\u4e00-\u9fa5]{2}编程)[\S\s]*?(.*?)$”, 编辑框1.内容, , 真)
编辑框2.内容 ＝ “”
计次循环首 (正则.取匹配数量 (), i1)
编辑框2.加入文本 (正则.取子匹配文本 (i1, 1) ＋ “>>>” ＋ 正则.取子匹配文本 (i1, 2) ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 i1, 整数型<br /> <br /> 正则.创建 (“([\u4e00-\u9fa5]{2}编程)[\S\s]*?(.*?)$”, 编辑框1.内容, , 真)<br /> 编辑框2.内容 ＝ “”<br /> .计次循环首 (正则.取匹配数量 (), i1)<br />     编辑框2.加入文本 (正则.取子匹配文本 (i1, 1) ＋ “>>>” ＋ 正则.取子匹配文本 (i1, 2) ＋ #换行符)<br /> .计次循环尾 ()

例子.e (870.12 KB, 下载次数: 3)

2022-2-22 00:40 上传

点击文件名下载附件

liuyun60

2000行多吗

wxhscc

真冬 发表于 2022-2-22 00:31
[e=0].版本 2
.支持库 spec
.支持库 commobj

谢谢大佬，多学习一种方法

wxhscc

Autism 发表于 2022-2-22 00:40
正则的方法来咯~~~
简单粗暴

非常感谢，努力学习正则中