txt文本查找指定内容并将结果返回到文本框里

zsq8507

一个txt文本文件里面内容如下：
drop= 1，
1111111111111111123
drop= 44,
drop= 53,
啊啊啊啊啊啊啊
11111111
drop= 3242,
啊啊啊啊啊啊啊啊


现在想查找drop= 的数值并返回到文本框里，可以向上 或 向下查找！
程序如下；错误提示：数组成员引用下标必须大于等于1  怎么解决，



.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 结果数组, 文本型, , "0"
.程序集变量 下标, 整数型

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 文件路径, 文本型
.局部变量 计次, 整数型
.局部变量 位置, 整数型

通用对话框1.打开 ()
_启动窗口.编辑框2.内容 ＝ 通用对话框1.文件名
文件路径 ＝ _启动窗口.编辑框2.内容
文本 ＝ 到文本 (读入文件 (文件路径))
正则.创建 (“drop= (\d+)”, 文本, , , , )
清除数组 (结果数组)
.计次循环首 (正则.取匹配数量 (), 计次)
    加入成员 (结果数组, 正则.取子匹配文本 (计次, 1, ))
    .如果真 (计次 ＝ 1)
        编辑框1.内容 ＝ 正则.取子匹配文本 (计次, 1, )
        下标 ＝ 1
    .如果真结束

.计次循环尾 ()
连续赋值 (假, 按钮_下一个.禁止)


.子程序 _按钮_上一个_被单击

.如果真 (下标 ＞ 1)
    按钮_下一个.禁止 ＝ 假
    下标 ＝ 下标 － 1
.如果真结束
.如果真 (下标 ＝ 0 或 下标 ＝ 1)
    按钮_上一个.禁止 ＝ 真
    下标 ＝ 1
.如果真结束
编辑框1.内容 ＝ 结果数组 [下标]




.子程序 _按钮_下一个_被单击

.如果真 (下标 ＜ 取数组成员数 (结果数组))
    按钮_上一个.禁止 ＝ 假
    下标 ＝ 下标 ＋ 1
    .如果真 (下标 ＝ 取数组成员数 (结果数组))
        按钮_下一个.禁止 ＝ 真
    .如果真结束

.如果真结束



编辑框1.内容 ＝ 结果数组 [下标]

Ruang

demo.e (950.14 KB, 下载次数: 1)

6 天前 上传

点击文件名下载附件

zainex

把 编辑框1.内容 ＝ 结果数组 [下标] 放到如果里面, 仔细看下面的代码:

  

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

如果真 (下标 ＞ 1)
按钮_下一个.禁止 ＝ 假
下标 ＝ 下标 － 1
如果真 (下标 ＝ 0 或 下标 ＝ 1)
按钮_上一个.禁止 ＝ 真
下标 ＝ 1
编辑框1.内容 ＝ 结果数组 [下标]

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

如果真 (下标 ＜ 取数组成员数 (结果数组))
按钮_上一个.禁止 ＝ 假
下标 ＝ 下标 ＋ 1
如果真 (下标 ＝ 取数组成员数 (结果数组))
按钮_下一个.禁止 ＝ 真
编辑框1.内容 ＝ 结果数组 [下标]

.版本 2<br /> <br /> .子程序 _按钮_上一个_被单击<br /> <br /> .如果真 (下标 ＞ 1)<br />     按钮_下一个.禁止 ＝ 假<br />     下标 ＝ 下标 － 1<br /> .如果真结束<br /> .如果真 (下标 ＝ 0 或 下标 ＝ 1)<br />     按钮_上一个.禁止 ＝ 真<br />     下标 ＝ 1<br />     编辑框1.内容 ＝ 结果数组 [下标]<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_下一个_被单击<br /> <br /> .如果真 (下标 ＜ 取数组成员数 (结果数组))<br />     按钮_上一个.禁止 ＝ 假<br />     下标 ＝ 下标 ＋ 1<br />     .如果真 (下标 ＝ 取数组成员数 (结果数组))<br />         按钮_下一个.禁止 ＝ 真<br />     .如果真结束<br />     编辑框1.内容 ＝ 结果数组 [下标]

cunanhai

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
下标	整数型
结果数组	文本型	0

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

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

变量名	类 型	静态	数组	备 注
文本	文本型
正则	正则表达式类
文件路径	文本型
计次	整数型
位置	整数型

通用对话框1.打开 ()
编辑框2.内容 ＝ 通用对话框1.文件名
文件路径 ＝ 编辑框2.内容
如果真 (编辑框2.内容 ＝ “”)
返回 ()
文本 ＝ 到文本 (读入文件 (文件路径))
正则.创建 (“drop= (\d+)”, 文本, , , , )
清除数组 (结果数组)
计次循环首 (正则.取匹配数量 (), 计次)
加入成员 (结果数组, 正则.取子匹配文本 (计次, 1, ))
计次循环尾 ()
下标 ＝ 1
编辑框1.内容 ＝ 结果数组 [下标]
按钮_上一个.禁止 ＝ 真

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

如果真 (取数组成员数 (结果数组) ＝ 0)
返回 ()
如果 (下标 ＞ 1)
按钮_下一个.禁止 ＝ 假
下标 ＝ 下标 － 1
编辑框1.内容 ＝ 结果数组 [下标]
按钮_上一个.禁止 ＝ 真

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

如果真 (取数组成员数 (结果数组) ＝ 0)
返回 ()
如果 (下标 ＜ 取数组成员数 (结果数组))
按钮_上一个.禁止 ＝ 假
下标 ＝ 下标 ＋ 1
编辑框1.内容 ＝ 结果数组 [下标]
按钮_下一个.禁止 ＝ 真

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 下标, 整数型<br /> .程序集变量 结果数组, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 文件路径, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 位置, 整数型<br /> <br /> 通用对话框1.打开 ()<br /> 编辑框2.内容 ＝ 通用对话框1.文件名<br /> 文件路径 ＝ 编辑框2.内容<br /> .如果真 (编辑框2.内容 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> 文本 ＝ 到文本 (读入文件 (文件路径))<br /> 正则.创建 (“drop= (\d+)”, 文本, , , , )<br /> 清除数组 (结果数组)<br /> <br /> .计次循环首 (正则.取匹配数量 (), 计次)<br />     加入成员 (结果数组, 正则.取子匹配文本 (计次, 1, ))<br /> .计次循环尾 ()<br /> 下标 ＝ 1<br /> 编辑框1.内容 ＝ 结果数组 [下标]<br /> 按钮_上一个.禁止 ＝ 真<br /> <br /> .子程序 _按钮_上一个_被单击<br /> <br /> .如果真 (取数组成员数 (结果数组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .如果 (下标 ＞ 1)<br />     按钮_下一个.禁止 ＝ 假<br />     下标 ＝ 下标 － 1<br />     编辑框1.内容 ＝ 结果数组 [下标]<br /> .否则<br />     按钮_上一个.禁止 ＝ 真<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮_下一个_被单击<br /> <br /> .如果真 (取数组成员数 (结果数组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .如果 (下标 ＜ 取数组成员数 (结果数组))<br />     按钮_上一个.禁止 ＝ 假<br />     下标 ＝ 下标 ＋ 1<br />     编辑框1.内容 ＝ 结果数组 [下标]<br /> .否则<br />     按钮_下一个.禁止 ＝ 真<br /> .如果结束

zsq8507

cunanhai 发表于 2025-8-3 17:19
[e=0].版本 2

.程序集 窗口程序集_窗口1

能否把源码发我？

补充内容 (2025-8-3 18:19):
这个不行吧 中间有空行的话 就没办法读取了

dwcq

  寻找文本 ( ) 就可以了 寻找位置+1 向上 就倒找文本 寻找位置 -1

cunanhai

8.2数组.e (959.88 KB, 下载次数: 2)

7 天前 上传

点击文件名下载附件

dwcq

我已经给你做好了 就是不知道你满不满意 我这测试 是没问题的 随便点

补充内容 (2025-8-3 20:40):
失误源码咋没发上去，我在给你 发一次 ，刚才吧这个取发分享帖了 ，马上再给你发一次

llll12

注意一下，数组是从1开始的不是0

dwcq

失误啊刚才没发源码，