txt文本，查找指定文本所在行内容

孝天

1. txt文本内容为100万行不重复数据，格式类似：

[HTML] 纯文本查看 复制代码

西瓜水果
苹果水果
香蕉水果
茄子蔬菜
梨子水果
...

2. 输入某个关键字，cha询txt文本，输出该关键字所在的行全部内容。如输入"香蕉"，cha询后输出"香蕉水果"。

3. 已经尝试加载文本后分割数组计次循环判断cha询、文本_取文本所在行等，效率都不太行。请教各位大佬，帮忙指点下。


补充内容 (2023-1-5 12:45):
目前已有用快速文本对象的方法，百万行数据cha询1秒内，不知道还有没有更优解。

补充内容 (2023-1-5 13:26):
目前用快速字节集cha询，百万行108MB文件大小只需要150毫秒，还有没有更快的

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
ksw	快速字节集对象

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
a	整数型
b1	整数型
b2	整数型
q	整数型
c	快速字节集对象
b3	字节集
i1	整数型

q ＝ 取启动时间 ()
列表框1.清空 ()
判断循环首 (i1 ＜ 30)
a ＝ ksw.寻找字节集 (到字节集 (编辑框1.内容), a ＋ 1)
判断 (a ≠ -1)
b1 ＝ ksw.倒找字节集 ({ 13, 10 }, a) ＋ 2
b2 ＝ ksw.寻找字节集 ({ 13, 10 }, a)
b3 ＝ ksw.取字节集 (b1, b2 － b1)
如果真 (c.寻找字节集 ({ 13, 10 } ＋ b3 ＋ { 13, 10 }, ) ＝ -1)
c.添加 ( #换行符, b3, #换行符 )
列表框1.加入项目 (到文本 (b3), )
i1 ＝ i1 ＋ 1

跳出循环 ()

判断循环尾 ()
调试输出 (取启动时间 () － q)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

ksw.从文件读 (“V:\s.txt”)
调试输出 (ksw.取长度 () ÷ 求次方 (1024, 2), “MB”)
ksw.添加 ( #换行符 )
ksw.插入 (1, #换行符 )

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

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

a ＝ 列表框1.现行选中项
如果真 (a ＞ -1)
编辑框1.内容 ＝ 列表框1.取项目文本 (a)

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

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 ksw, 快速字节集对象<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 a, 整数型<br /> .局部变量 b1, 整数型<br /> .局部变量 b2, 整数型<br /> .局部变量 q, 整数型, 静态<br /> .局部变量 c, 快速字节集对象<br /> .局部变量 b3, 字节集<br /> .局部变量 i1, 整数型<br /> <br /> q ＝ 取启动时间 ()<br /> 列表框1.清空 ()<br /> .判断循环首 (i1 ＜ 30)<br />     a ＝ ksw.寻找字节集 (到字节集 (编辑框1.内容), a ＋ 1)<br />     .判断开始 (a ≠ -1)<br />         b1 ＝ ksw.倒找字节集 ({ 13, 10 }, a) ＋ 2<br />         b2 ＝ ksw.寻找字节集 ({ 13, 10 }, a)<br />         b3 ＝ ksw.取字节集 (b1, b2 － b1)<br />         .如果真 (c.寻找字节集 ({ 13, 10 } ＋ b3 ＋ { 13, 10 }, ) ＝ -1)<br />             c.添加 (#换行符, b3, #换行符)<br />             列表框1.加入项目 (到文本 (b3), )<br />             i1 ＝ i1 ＋ 1<br />         .如果真结束<br /> <br />     .默认<br />         跳出循环 ()<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> 调试输出 (取启动时间 () － q)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ksw.从文件读 (“V:\s.txt”)<br /> 调试输出 (ksw.取长度 () ÷ 求次方 (1024, 2), “MB”)<br /> ksw.添加 (#换行符)<br /> ksw.插入 (1, #换行符)<br /> <br /> .子程序 _列表框1_列表项被选择<br /> .局部变量 a, 整数型<br /> <br /> a ＝ 列表框1.现行选中项<br /> .如果真 (a ＞ -1)<br />     编辑框1.内容 ＝ 列表框1.取项目文本 (a)<br /> .如果真结束

快速字节集比快速文本更快

StarAdmire

文本_取文本所在行（好像有这个命令）

孝天

StarAdmire 发表于 2023-1-5 12:10
文本_取文本所在行（好像有这个命令）

嗯嗯，这个测试过了，cha询一次需要十几秒，时间有点长。

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
ksw	快速文本对象

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

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

如果真 (取启动时间 () － q ＜ 99)
返回 ()
q ＝ 取启动时间 ()
列表框1.清空 ()
判断循环首 (i1 ＜ 30)
a ＝ ksw.寻找文本 (编辑框1.内容, a ＋ 1, 真)
判断 (a ≠ -1)
b1 ＝ ksw.倒找文本 ( #换行符, a, 真) ＋ 2
b2 ＝ ksw.寻找文本 ( #换行符, a, 真)
b3 ＝ ksw.取文本 (b1, b2 － b1)
如果真 (c.寻找文本 ( #换行符 ＋ b3 ＋ #换行符, , 真) ＝ -1)
c.添加 ( #换行符 ＋ b3 ＋ #换行符 )
列表框1.加入项目 (b3, )
i1 ＝ i1 ＋ 1

跳出循环 ()

判断循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

ksw.从文件读 (“V:\s字母20w.txt处理后.txt”)
调试输出 (ksw.取长度 () ÷ 求次方 (1024, 2), “MB”)
ksw.添加 ( #换行符 )
ksw.插入 (1, #换行符 )

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

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

a ＝ 列表框1.现行选中项
如果真 (a ＞ -1)
编辑框1.内容 ＝ 列表框1.取项目文本 (a)

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

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 ksw, 快速文本对象<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 a, 整数型<br /> .局部变量 b1, 整数型<br /> .局部变量 b2, 整数型<br /> .局部变量 q, 整数型, 静态<br /> .局部变量 c, 快速文本对象<br /> .局部变量 b3, 文本型<br /> .局部变量 i1, 整数型<br /> <br /> .如果真 (取启动时间 () － q ＜ 99)<br />     返回 ()<br /> .如果真结束<br /> q ＝ 取启动时间 ()<br /> 列表框1.清空 ()<br /> .判断循环首 (i1 ＜ 30)<br />     a ＝ ksw.寻找文本 (编辑框1.内容, a ＋ 1, 真)<br />     .判断开始 (a ≠ -1)<br />         b1 ＝ ksw.倒找文本 (#换行符, a, 真) ＋ 2<br />         b2 ＝ ksw.寻找文本 (#换行符, a, 真)<br />         b3 ＝ ksw.取文本 (b1, b2 － b1)<br />         .如果真 (c.寻找文本 (#换行符 ＋ b3 ＋ #换行符, , 真) ＝ -1)<br />             c.添加 (#换行符 ＋ b3 ＋ #换行符)<br />             列表框1.加入项目 (b3, )<br />             i1 ＝ i1 ＋ 1<br />         .如果真结束<br /> <br />     .默认<br />         跳出循环 ()<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ksw.从文件读 (“V:\s字母20w.txt处理后.txt”)<br /> 调试输出 (ksw.取长度 () ÷ 求次方 (1024, 2), “MB”)<br /> ksw.添加 (#换行符)<br /> ksw.插入 (1, #换行符)<br /> <br /> .子程序 _列表框1_列表项被选择<br /> .局部变量 a, 整数型<br /> <br /> a ＝ 列表框1.现行选中项<br /> .如果真 (a ＞ -1)<br />     编辑框1.内容 ＝ 列表框1.取项目文本 (a)<br /> .如果真结束

补充内容 (2023-1-5 12:35):
4.7MB ，二十万行 ，开机三分钟机械硬盘的七年前的笔记本老电脑

孝天

通过论坛搜索，找到该贴16楼大佬分享的源码，测试了cha询一次时间800毫秒左右。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
快速文本对象	快速文本对象

子程序名	返回值类型	公开	备 注
_按钮_cha询文本_被单击

cha询文本 (编辑框1.内容)

子程序名	返回值类型	公开	备 注
cha询文本
参数名	类 型	参考	可空	数组	备 注
搜索内容	文本型

变量名	类 型	静态	数组	备 注
n	整数型
开始位置	整数型
结束位置	整数型
开始	整数型
结束	整数型
行内容	文本型

开始 ＝ 取启动时间 ()
循环判断首 ()
n ＝ 快速文本对象.寻找文本 (搜索内容, n ＋ 1, 真)
如果 (n ≠ -1)
开始位置 ＝ 快速文本对象.倒找文本 ( #换行符, n, 真) ＋ 1
结束位置 ＝ 快速文本对象.寻找文本 ( #换行符, n, 真)
行内容 ＝ 快速文本对象.取文本 (开始位置, 结束位置 － 开始位置)
跳出循环 ()

循环判断尾 (n ≠ -1)
结束 ＝ 取启动时间 ()
调试输出 (搜索内容, 行内容, 结束 － 开始)

子程序名	返回值类型	公开	备 注
_按钮_读取文本_被单击

读取文本 ()

子程序名	返回值类型	公开	备 注
读取文本

快速文本对象.从文件读 (取运行目录 () ＋ “\tpall.txt”)

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

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 快速文本对象, 快速文本对象<br /> <br /> .子程序 _按钮_cha询文本_被单击<br /> <br /> cha询文本 (编辑框1.内容)<br /> <br /> <br /> .子程序 cha询文本<br /> .参数 搜索内容, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 开始位置, 整数型<br /> .局部变量 结束位置, 整数型<br /> .局部变量 开始, 整数型<br /> .局部变量 结束, 整数型<br /> .局部变量 行内容, 文本型<br /> <br /> 开始 ＝ 取启动时间 ()<br /> .循环判断首 ()<br />     n ＝ 快速文本对象.寻找文本 (搜索内容, n ＋ 1, 真)<br />     .如果 (n ≠ -1)<br />         开始位置 ＝ 快速文本对象.倒找文本 (#换行符, n, 真) ＋ 1<br />         结束位置 ＝ 快速文本对象.寻找文本 (#换行符, n, 真)<br />         行内容 ＝ 快速文本对象.取文本 (开始位置, 结束位置 － 开始位置)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .循环判断尾 (n ≠ -1)<br /> 结束 ＝ 取启动时间 ()<br /> 调试输出 (搜索内容, 行内容, 结束 － 开始)<br /> <br /> <br /> .子程序 _按钮_读取文本_被单击<br /> <br /> 读取文本 ()<br /> <br /> .子程序 读取文本<br /> <br /> 快速文本对象.从文件读 (取运行目录 () ＋ “\tpall.txt”)

孝天

真冬 发表于 2023-1-5 12:32
[e=0]
.版本 2
.支持库 commobj

看了代码也是用快速文本对象的cha询，不知道还有没有更快的方法，再等等看没有更优解的话给您设最佳答案，谢谢。

hxk12349

看是不是你要的

bysy

  

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

变量名	类 型	静态	数组	备 注
bin	字节集
i	整数型
i2	整数型
i3	整数型
q	整数型

bin ＝ 读入文件 (“C:\Users\Airuan\Desktop\MyQQ v3.0.6\config\Aisy插件\wiki数据.txt”) ＋ 到字节集 ( #换行符 ＋ “测试测试测试你好你好哈” ＋ #换行符 )  ' 这是文件尾部 如果 在其他位置速度更快
q ＝ 取启动时间 ()
i ＝ 寻找字节集 (bin, 到字节集 (“你好你好哈”), )
i2 ＝ 寻找字节集 (bin, { 13, 10 }, i)
i3 ＝ 倒找字节集 (bin, { 13, 10 }, i2) ＋ 2
调试输出 (到文本 (取字节集中间 (bin, i3, i2 － i3)))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 bin, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 i3, 整数型<br /> .局部变量 q, 整数型<br /> <br /> bin ＝ 读入文件 (“C:\Users\Airuan\Desktop\MyQQ v3.0.6\config\Aisy插件\wiki数据.txt”) ＋ 到字节集 (#换行符 ＋ “测试测试测试你好你好哈” ＋ #换行符)  ' 这是文件尾部 如果 在其他位置速度更快<br /> q ＝ 取启动时间 ()<br /> i ＝ 寻找字节集 (bin, 到字节集 (“你好你好哈”), )<br /> i2 ＝ 寻找字节集 (bin, { 13, 10 }, i)<br /> i3 ＝ 倒找字节集 (bin, { 13, 10 }, i2) ＋ 2<br /> 调试输出 (到文本 (取字节集中间 (bin, i3, i2 － i3)))

Ruang

字节集应该是最快的了

补充内容 (2023-1-5 14:31):
再快一些好像要用到线程了