文本操作问题，请教论坛各位的大神指点！

zhang19950626

查找的文本有多个重复的，我只想要1个需要的，其他的都是不需要的。下面的图片中如果我想查询D19100624，用寻找文本的话，可能会找到带-1或者-2或者-3这种，我输入D19100624-3的情况下，就找带-3的就行了。我的思路是，判断输入的内容带不带-，如果不带的话就吧所有输入内容加-的文本先替换，这样就找不到没用的了。但是用子文本替换太慢了。有没有效率的方法大神们？求例子

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
速度	整数型
网页源码	文本型

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
快速文本	快速文本对象
i	整数型
p	整数型
str	文本型
编辑框是否有符号	整数型
局_网页源码	文本型

局_网页源码 ＝ 网页源码
如果真 (寻找文本 (编辑框1.内容, “-”, , 假) ＝ -1)
局_网页源码 ＝ 子文本替换 (网页源码, 编辑框1.内容 ＋ “-”, “”, , , 真)
快速文本.添加 (局_网页源码)
i ＝ 快速文本.寻找文本 (编辑框1.内容, , 真)
i ＝ 快速文本.倒找文本 ( #换行符, i, 真)
p ＝ 快速文本.寻找文本 ( #换行符, i ＋ 1, 真)
str ＝ 快速文本.取文本 (i ＋ 2, p － i － 2)
编辑框2.内容 ＝ str
打开指定网址 (str)

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

速度 ＝ 取启动时间 ()
子程序1 ()
置剪辑板文本 (编辑框2.内容)
透明标签1.标题 ＝ “查找耗时：” ＋ 到文本 (取启动时间 () － 速度) ＋ “毫秒”

子程序名	返回值类型	公开	备 注
__启动窗口_首次激活

速度 ＝ 取启动时间 ()
网页源码 ＝ XMLhttp读文本 (“http://fefefe.top/gongzuo/suoyouwenjianjia.txt”)
调试输出 (“获取源码耗时：” ＋ 到文本 (取启动时间 () － 速度) ＋ “毫秒”)

子程序名	返回值类型	公开	备 注
XMLhttp读文本	文本型		读网络文本,(成功返回网络文本数据,失败返回空文本)
参数名	类 型	参考	可空	数组	备 注
网址	文本型				欲访问的网络地址

变量名	类 型	静态	数组	备 注
对象	对象
bp	变体型

如果真 (对象.创建 (“Microsoft.XMLHTTP”, ))
如果真 (到小写 (取文本左边 (网址, 7)) ≠ “http://”)
网址 ＝ “http://” ＋ 网址
对象.方法 (“open”, “GET”, 网址, 假)
对象.方法 (“send”, )
bp ＝ 对象.读属性 (“responseBody”, )
返回 (到文本 (bp.取字节集 ()))
返回 (“”)

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

皮肤_资源加载 ( #皮肤_Win10 )

i支持库列表	支持库注释
commobj	通用对象支持库
eAPI	应用接口支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 eAPI<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 速度, 整数型<br /> .程序集变量 网页源码, 文本型<br /> <br /> .子程序 子程序1<br /> .局部变量 快速文本, 快速文本对象<br /> .局部变量 i, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 编辑框是否有符号, 整数型<br /> .局部变量 局_网页源码, 文本型<br /> <br /> <br /> 局_网页源码 ＝ 网页源码<br /> <br /> .如果真 (寻找文本 (编辑框1.内容, “-”, , 假) ＝ -1)<br />     局_网页源码 ＝ 子文本替换 (网页源码, 编辑框1.内容 ＋ “-”, “”, , , 真)<br /> .如果真结束<br /> 快速文本.添加 (局_网页源码)<br /> i ＝ 快速文本.寻找文本 (编辑框1.内容, , 真)<br /> i ＝ 快速文本.倒找文本 (#换行符, i, 真)<br /> p ＝ 快速文本.寻找文本 (#换行符, i ＋ 1, 真)<br /> str ＝ 快速文本.取文本 (i ＋ 2, p － i － 2)<br /> 编辑框2.内容 ＝ str<br /> 打开指定网址 (str)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 速度 ＝ 取启动时间 ()<br /> 子程序1 ()<br /> 置剪辑板文本 (编辑框2.内容)<br /> 透明标签1.标题 ＝ “查找耗时：” ＋ 到文本 (取启动时间 () － 速度) ＋ “毫秒”<br /> <br /> .子程序 __启动窗口_首次激活<br /> <br /> 速度 ＝ 取启动时间 ()<br /> 网页源码 ＝ XMLhttp读文本 (“http://fefefe.top/gongzuo/suoyouwenjianjia.txt”)<br /> 调试输出 (“获取源码耗时：” ＋ 到文本 (取启动时间 () － 速度) ＋ “毫秒”)<br /> <br /> .子程序 XMLhttp读文本, 文本型, 公开, 读网络文本,(成功返回网络文本数据,失败返回空文本)<br /> .参数 网址, 文本型, , 欲访问的网络地址<br /> .局部变量 对象, 对象<br /> .局部变量 bp, 变体型<br /> <br /> .如果真 (对象.创建 (“Microsoft.XMLHTTP”, ))<br />     .如果真 (到小写 (取文本左边 (网址, 7)) ≠ “http://”)<br />         网址 ＝ “http://” ＋ 网址<br />     .如果真结束<br />     对象.方法 (“open”, “GET”, 网址, 假)<br />     对象.方法 (“send”, )<br />     bp ＝ 对象.读属性 (“responseBody”, )<br />     返回 (到文本 (bp.取字节集 ()))<br /> .如果真结束<br /> 返回 (“”)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 皮肤_资源加载 (#皮肤_Win10)

闰土与猹

demo.zip (2.15 MB, 下载次数: 6)

2020-7-19 00:57 上传

点击文件名下载附件
选我为最佳答案吧~
代码放下面，或者下载上面的demo

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
被搜索的文本	文本型

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

变量名	类 型	静态	数组	备 注
正则	正则表达式类
i	整数型
临时文本	文本型

如果真 (编辑框_搜索内容.内容 ≠ “”)
正则.创建 (“\\(.*?)” ＋ 编辑框_搜索内容.内容 ＋ “(.*?)\n”, 被搜索的文本, , , , )
编辑框_结果.内容 ＝ “”
计次循环首 (正则.取匹配数量 (), i)
临时文本 ＝ 正则.取匹配文本 (i, )
调试输出 (临时文本)
如果 (精准搜索.选中 ＝ 真)
如果 (寻找文本 (编辑框_搜索内容.内容, “-”, , 假) ＝ -1)
如果 (寻找文本 (临时文本, 编辑框_搜索内容.内容 ＋ “-”, , 假) ＝ -1 且 寻找文本 (临时文本, 编辑框_搜索内容.内容 ＋ “ -”, , 假) ＝ -1)
编辑框_结果.内容 ＝ 编辑框_结果.内容 ＋ 临时文本 ＋ #换行符



编辑框_结果.内容 ＝ 编辑框_结果.内容 ＋ 临时文本 ＋ #换行符

编辑框_结果.内容 ＝ 编辑框_结果.内容 ＋ 临时文本 ＋ #换行符

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_窗口1_首次激活

被搜索的文本 ＝ #常量1

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 被搜索的文本, 文本型<br /> <br /> .子程序 _按钮_搜索_被单击<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 i, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> .如果真 (编辑框_搜索内容.内容 ≠ “”)<br />     正则.创建 (“\\(.*?)” ＋ 编辑框_搜索内容.内容 ＋ “(.*?)\n”, 被搜索的文本, , , , )<br />     编辑框_结果.内容 ＝ “”<br />     .计次循环首 (正则.取匹配数量 (), i)<br />         临时文本 ＝ 正则.取匹配文本 (i, )<br />         调试输出 (临时文本)<br />         .如果 (精准搜索.选中 ＝ 真)<br />             .如果 (寻找文本 (编辑框_搜索内容.内容, “-”, , 假) ＝ -1)<br />                 .如果 (寻找文本 (临时文本, 编辑框_搜索内容.内容 ＋ “-”, , 假) ＝ -1 且 寻找文本 (临时文本, 编辑框_搜索内容.内容 ＋ “ -”, , 假) ＝ -1)<br />                     编辑框_结果.内容 ＝ 编辑框_结果.内容 ＋ 临时文本 ＋ #换行符<br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .否则<br />                 编辑框_结果.内容 ＝ 编辑框_结果.内容 ＋ 临时文本 ＋ #换行符<br />             .如果结束<br /> <br />         .否则<br />             编辑框_结果.内容 ＝ 编辑框_结果.内容 ＋ 临时文本 ＋ #换行符<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _窗口1_首次激活<br /> <br /> 被搜索的文本 ＝ #常量1

补充内容 (2020-7-19 01:00):
对了，读网页源码太慢了，我直接放进了常量里，所以源码才这么大
调用了精易模块，用的正则

木鱼真心

找后面的文本不是更快么

zhang19950626

木鱼真心 发表于 2020-7-18 14:13
找后面的文本不是更快么

只能通过DXXXXX寻找，

wang53104871

直接用子文本肯定慢，建议你通过遍历把想要的数据筛选出来然后用文本替换查找就快的多了

TANC

那么大的文本 为什么要去处理体积大的 而不从你cha询的内容出手？  按照你那个格式 每段 D19100624 后面就有个空格 ，cha询的时候加上一个空格不行吗 快速文本.寻找文本 (编辑框1.内容+" ", , 真)

上次给你写的快速查找也不最佳，以后谁来回答你的问题？

zhang19950626

1355568730 发表于 2020-7-18 16:39
那么大的文本 为什么要去处理体积大的 而不从你cha询的内容出手？  按照你那个格式 每段 D19100624 后面就 ...

上次的我已经给你最佳了！不好意思哦朋友！ 不是所有内容都一样，你能帮我看下怎么才能最好的找到文本 http://fefefe.top/gongzuo/suoyouwenjianjia.txt

TANC

  

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

变量名	类 型	静态	数组	备 注
快速文本	快速文本对象
i	整数型
p	整数型
str	文本型
局_网页源码	文本型
cha询文本	文本型
临时文本	文本型
找到的位置	整数型
text	文本型
死循环	逻辑型
文本位置	整数型

' 局_网页源码 ＝ 网页源码
局_网页源码 ＝ #常量1
cha询文本 ＝ 删全部空 (编辑框1.内容)
临时文本 ＝ 取文本左边 (cha询文本, 6)
死循环 ＝ 真
快速文本.添加 (局_网页源码)
判断循环首 (死循环)
i ＝ 快速文本.寻找文本 (临时文本, 找到的位置, 真)
如果真 (i ＝ -1)
死循环 ＝ 假
跳出循环 ()
i ＝ 快速文本.倒找文本 ( #换行符, i, 真)
p ＝ 快速文本.寻找文本 ( #换行符, i ＋ 1, 真)
str ＝ 快速文本.取文本 (i ＋ 1, p － i)
找到的位置 ＝ p
text ＝ 删全部空 (str)
文本位置 ＝ 寻找文本 (text, cha询文本, , 假)
如果真 (文本位置 ≠ -1)
' 调试输出 (str)
' 调试输出 (取文本中间 (text, 文本位置 ＋ 取文本长度 (cha询文本), 2))
如果真 (寻找文本 (取文本中间 (text, 文本位置 ＋ 取文本长度 (cha询文本), 2), “-”, , 假) ＝ -1)
调试输出 (str)
跳出循环 ()

. ' 如果真 (文本_是否为汉字 (取文本中间 (text, 文本位置 ＋ 取文本长度 (cha询文本), 2)))
' 调试输出 (str)
' 跳出循环 ()


判断循环尾 ()

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

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .子程序 子程序_<br /> .局部变量 快速文本, 快速文本对象<br /> .局部变量 i, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 局_网页源码, 文本型<br /> .局部变量 cha询文本, 文本型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 找到的位置, 整数型<br /> .局部变量 text, 文本型<br /> .局部变量 死循环, 逻辑型<br /> .局部变量 文本位置, 整数型<br /> <br /> ' 局_网页源码 ＝ 网页源码<br /> <br /> 局_网页源码 ＝ #常量1<br /> <br /> cha询文本 ＝ 删全部空 (编辑框1.内容)<br /> 临时文本 ＝ 取文本左边 (cha询文本, 6)<br /> 死循环 ＝ 真<br /> 快速文本.添加 (局_网页源码)<br /> .判断循环首 (死循环)<br />     i ＝ 快速文本.寻找文本 (临时文本, 找到的位置, 真)<br />     .如果真 (i ＝ -1)<br />         死循环 ＝ 假<br />         跳出循环 ()<br />     .如果真结束<br />     i ＝ 快速文本.倒找文本 (#换行符, i, 真)<br />     p ＝ 快速文本.寻找文本 (#换行符, i ＋ 1, 真)<br />     str ＝ 快速文本.取文本 (i ＋ 1, p － i)<br />     找到的位置 ＝ p<br />     text ＝ 删全部空 (str)<br />     文本位置 ＝ 寻找文本 (text, cha询文本, , 假)<br />     .如果真 (文本位置 ≠ -1)<br />         ' 调试输出 (str)<br />         ' 调试输出 (取文本中间 (text, 文本位置 ＋ 取文本长度 (cha询文本), 2))<br />         .如果真 (寻找文本 (取文本中间 (text, 文本位置 ＋ 取文本长度 (cha询文本), 2), “-”, , 假) ＝ -1)<br />             调试输出 (str)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .' 如果真 (文本_是否为汉字 (取文本中间 (text, 文本位置 ＋ 取文本长度 (cha询文本), 2)))<br />             ' 调试输出 (str)<br />             ' 跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .判断循环尾 ()

不知道这样能不能达到你要的效果 ，这个只针对用D19100624这样的内容搜索

闰土与猹

可以试一下正则表达式来处理

闰土与猹