快速文本快速字集节

伯乐同学

快速文本、快速字集节
有一段五行文本：
姓名,***号,性别
张三,320826199201011234,男,地址很长不一样
李四,320826199301011214,男,地址很长地址很长不一样
王二麻,320826199401011254,男,地址不一样不一样很长地址很长
陈五,320826199501011274,男,地址不一样很长地址很长

如何通过，快速文本 或 快速字集节
查找到320826199301011214
是哪一行，并取出这一行的所有文本？

笨来无一悟

伯乐同学 发表于 2023-6-14 14:09
嗯，还没测试，正在理解思路。
这边主要有30多万行的，姓名和信息类，需要寻找信息比对的。
所以算法真的 ...

不用子程序传递参数 让快速文本对象写成全局变量或者程序集变量 每次cha询少一个置文本的操作 速度还能更快

zhutao3233

https://bbs.125.la/forum.php?mod ... p;highlight=leveldb
建议使用这个  非常方便

b0y

  

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

变量名	类 型	静态	数组	备 注
Qstr	快速文本对象
a	整数型
b	整数型
c	整数型

Qstr.添加 ( #换行符, #常量1, #换行符 )  ' 首尾添加换行符
a ＝ Qstr.寻找文本 (“320826199301011214”, , 真)
如果真 (a ≠ -1)  ' 存在***号
b ＝ Qstr.倒找文本 ( #换行符, a, 真)
如果真 (b ≠ -1)
b ＝ b ＋ 2
c ＝ Qstr.寻找文本 ( #换行符, a, 真)
调试输出 (c)
调试输出 (Qstr.取文本 (b, c － b))

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

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 Qstr, 快速文本对象<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> <br /> Qstr.添加 (#换行符, #常量1, #换行符)  ' 首尾添加换行符<br /> a ＝ Qstr.寻找文本 (“320826199301011214”, , 真)<br /> .如果真 (a ≠ -1)  ' 存在***号<br />     b ＝ Qstr.倒找文本 (#换行符, a, 真)<br />     .如果真 (b ≠ -1)<br />         b ＝ b ＋ 2<br />         c ＝ Qstr.寻找文本 (#换行符, a, 真)<br />         调试输出 (c)<br />         调试输出 (Qstr.取文本 (b, c － b))<br />     .如果真结束<br /> <br /> .如果真结束

* “李四,320826199301011214,男,地址很长地址很长不一样”
被调试易程序运行完毕

一梦尽欢

这种情况只能分割每行内容逐个对比,可以把文本读取后,多线程分段查找能快一点,或者把数据存入数据库,那样查指定的字段就能更快一些

帅气与大侠

给你封装了一个简易版搜索文本所在行的命令，应该满足你的使用了，正常情况下应该没bug了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
返回行文本	文本型

调试输出 (查找文本所在行 ( #常量1, “320826199201011234”, 返回行文本), 返回行文本)

子程序名	返回值类型	公开	备 注
查找文本所在行	整数型		寻找一个文本在另一个文本中所在的行位置，成功返回文本所在行号，失败返回-1
参数名	类 型	参考	可空	数组	备 注
文本	文本型
欲查找的文本	文本型
返回行文本	文本型				返回行文本

变量名	类 型	静态	数组	备 注
快速文本对象	快速文本对象
返回位置	整数型
行尾位置	整数型
行号	整数型
行首位置	整数型

如果真 (快速文本对象.置文本 (文本) ＝ 假)
返回 (-1)

返回位置 ＝ 快速文本对象.寻找文本 (欲查找的文本, , 真)
判断循环首 (返回位置 ≠ -1)
' 从第一行开始搜索换行符，返回换行符位置
行尾位置 ＝ 快速文本对象.寻找文本 (字符 (10), 行尾位置 ＋ 1, 真)
行号 ＝ 行号 ＋ 1
' 如果换行符在搜索的文本位置后面，表示这个搜索的文本就是在这一行
如果真 (行尾位置 ≥ 返回位置 或 行尾位置 ＝ -1)
' 从关键字所在的行尾位置倒找上一个换行符，然后取出行首和行尾之间的内容返回
行首位置 ＝ 快速文本对象.倒找文本 (字符 (10), 行尾位置 － 1, 真)
行首位置 ＝ 选择 (行首位置 ＝ -1, 0, 行首位置)
返回行文本 ＝ 快速文本对象.取文本 (行首位置, 行尾位置 － 行首位置 － 1)
返回 (行号)

判断循环尾 ()
返回 (-1)

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

.版本 2<br /> .支持库 spec<br /> .支持库 commobj<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 返回行文本, 文本型<br /> <br /> 调试输出 (查找文本所在行 (#常量1, “320826199201011234”, 返回行文本), 返回行文本)<br /> <br /> <br /> .子程序 查找文本所在行, 整数型, , 寻找一个文本在另一个文本中所在的行位置，成功返回文本所在行号，失败返回-1<br /> .参数 文本, 文本型<br /> .参数 欲查找的文本, 文本型<br /> .参数 返回行文本, 文本型, 参考 可空, 返回行文本<br /> .局部变量 快速文本对象, 快速文本对象<br /> .局部变量 返回位置, 整数型<br /> .局部变量 行尾位置, 整数型<br /> .局部变量 行号, 整数型<br /> .局部变量 行首位置, 整数型<br /> <br /> <br /> .如果真 (快速文本对象.置文本 (文本) ＝ 假)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> 返回位置 ＝ 快速文本对象.寻找文本 (欲查找的文本, , 真)<br /> <br /> .判断循环首 (返回位置 ≠ -1)<br />     ' 从第一行开始搜索换行符，返回换行符位置<br />     行尾位置 ＝ 快速文本对象.寻找文本 (字符 (10), 行尾位置 ＋ 1, 真)<br />     行号 ＝ 行号 ＋ 1<br />     ' 如果换行符在搜索的文本位置后面，表示这个搜索的文本就是在这一行<br />     .如果真 (行尾位置 ≥ 返回位置 或 行尾位置 ＝ -1)<br /> <br />         ' 从关键字所在的行尾位置倒找上一个换行符，然后取出行首和行尾之间的内容返回<br />         行首位置 ＝ 快速文本对象.倒找文本 (字符 (10), 行尾位置 － 1, 真)<br />         行首位置 ＝ 选择 (行首位置 ＝ -1, 0, 行首位置)<br />         返回行文本 ＝ 快速文本对象.取文本 (行首位置, 行尾位置 － 行首位置 － 1)<br />         返回 (行号)<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (-1)

伯乐同学

帅气与大侠 发表于 2023-6-12 19:35
给你封装了一个简易版搜索文本所在行的命令，应该满足你的使用了，正常情况下应该没bug了
[e=1].版本 2
.支 ...

写的不错，但效率好像不是最高。
有更好的算法吗

笨来无一悟

帅气与大侠 发表于 2023-6-12 19:35
给你封装了一个简易版搜索文本所在行的命令，应该满足你的使用了，正常情况下应该没bug了
[e=1].版本 2
.支 ...

把循环里面的如果真 写循环外面效率会提升很多很多很多

笨来无一悟

https://bbs.125.la/thread-14786015-1-1.html喏

笨来无一悟

  

子程序名	返回值类型	公开	备 注
文本所在行	整数型		未找到 返回-1
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型
待找文本	文本型
所在整行	文本型

变量名	类 型	静态	数组	备 注
文本	快速文本对象
索引	整数型
游标	整数型
行数	整数型

文本.置文本 ( #换行符, 原始文本, #换行符 )
索引 ＝ 文本.寻找文本 (待找文本, , 真)
判断 (索引 ≠ -1)
索引 ＝ 文本.倒找文本 ( #换行符, 索引, 真)
循环判断首 ()
行数 ＝ 行数 ＋ 1
游标 ＝ 文本.寻找文本 ( #换行符, 游标 ＋ 1, 真)
循环判断尾 (游标 ≠ 索引)
所在整行 ＝ 文本.取文本 (索引 ＋ 2, 文本.寻找文本 ( #换行符, 索引 ＋ 2, 真) － 索引 － 2)
返回 (行数)
所在整行 ＝ “”
返回 (-1)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本所在行, 整数型, , 未找到 返回-1<br /> .参数 原始文本, 文本型<br /> .参数 待找文本, 文本型<br /> .参数 所在整行, 文本型, 参考 可空<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 索引, 整数型<br /> .局部变量 游标, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文本.置文本 (#换行符, 原始文本, #换行符)<br /> 索引 ＝ 文本.寻找文本 (待找文本, , 真)<br /> .判断开始 (索引 ≠ -1)<br />     索引 ＝ 文本.倒找文本 (#换行符, 索引, 真)<br />     .循环判断首 ()<br />         行数 ＝ 行数 ＋ 1<br />         游标 ＝ 文本.寻找文本 (#换行符, 游标 ＋ 1, 真)<br />     .循环判断尾 (游标 ≠ 索引)<br />     所在整行 ＝ 文本.取文本 (索引 ＋ 2, 文本.寻找文本 (#换行符, 索引 ＋ 2, 真) － 索引 － 2)<br />     返回 (行数)<br /> .默认<br />     所在整行 ＝ “”<br />     返回 (-1)