求取出中间内容

wh1234567

常量内容例如下面内容：

梧桐树
品名        型号        备注
河北进货        3265420        80（粗细）
东京牌子的        1235460        24（粗细）
本地品质        5220128        67（粗细）

菊花
品名        型号        备注
广东货        7611021        5.6（粗细）
柳州产地        3640281        3.98（粗细）

请问：如何自动逐行取出中间内容为7位数的数值到编辑框11里？注意每行里的空格为间隔，每取出一组数值内容后，自动执行一次我的代码，比如自动点击一次按钮2，然后继续取出第二组数值后再自动点击一次按钮2，以此类推，求例子
3265420
1235460
5220128
7611021
3640281

真冬

  

变量名	类 型	静态	数组	备 注
zz	正则表达式
被搜索内容	文本型
ssjg	搜索结果		0
i1	整数型

zz.创建 (“^([^ \t\r\n]+)[\t ]+([0-9]+)[\t ]+([^ \t\r\n]+)”, )
被搜索内容 ＝ #常量1
ssjg ＝ zz.搜索全部 (被搜索内容)
计次循环首 (取数组成员数 (ssjg), i1)
调试输出 (ssjg [i1].取子匹配文本 (被搜索内容, 1, ), ssjg [i1].取子匹配文本 (被搜索内容, 2, ), ssjg [i1].取子匹配文本 (被搜索内容, 3, ))
编辑框11.内容 ＝ ssjg [i1].取子匹配文本 (被搜索内容, 2, )
处理事件 ()
_按钮2_被单击 ()
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .局部变量 zz, 正则表达式<br /> .局部变量 被搜索内容, 文本型<br /> .局部变量 ssjg, 搜索结果, , "0"<br /> .局部变量 i1, 整数型<br /> <br /> zz.创建 (“^([^ \t\r\n]+)[\t ]+([0-9]+)[\t ]+([^ \t\r\n]+)”, )<br /> 被搜索内容 ＝ #常量1<br /> ssjg ＝ zz.搜索全部 (被搜索内容)<br /> .计次循环首 (取数组成员数 (ssjg), i1)<br />     调试输出 (ssjg [i1].取子匹配文本 (被搜索内容, 1, ), ssjg [i1].取子匹配文本 (被搜索内容, 2, ), ssjg [i1].取子匹配文本 (被搜索内容, 3, ))<br />     编辑框11.内容 ＝ ssjg [i1].取子匹配文本 (被搜索内容, 2, )<br />     处理事件 ()<br />     _按钮2_被单击 ()<br /> .计次循环尾 ()

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

.版本 2
.支持库 RegEx
.支持库 spec

.局部变量 zz, 正则表达式
.局部变量 被搜索内容, 文本型
.局部变量 ssjg, 搜索结果, , "0"
.局部变量 i1, 整数型

zz.创建 (“^([^ \t\r\n]+)[\t ]+([0-9]+)[\t ]+([^ \t\r\n]+)”, )
被搜索内容 ＝ #常量1
ssjg ＝ zz.搜索全部 (被搜索内容)
.计次循环首 (取数组成员数 (ssjg), i1)
    调试输出 (ssjg [i1].取子匹配文本 (被搜索内容, 1, ), ssjg [i1].取子匹配文本 (被搜索内容, 2, ), ssjg [i1].取子匹配文本 (被搜索内容, 3, ))
    编辑框11.内容 ＝ ssjg [i1].取子匹配文本 (被搜索内容, 2, )
    处理事件 ()
    _按钮2_被单击 ()
.计次循环尾 ()

是永乐哟

列子.e (4.46 KB, 下载次数: 1)

15 小时前 上传

点击文件名下载附件

  

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

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

变量名	类 型	静态	数组	备 注
行数组	文本型		0
单词数组	文本型		0
i	整数型
j	整数型
候选	文本型

行数组 ＝ 分割文本 ( #文本, #换行符, ) ' 这里的#文本是常量
计次循环首 (取数组成员数 (行数组), i)
如果真 (取文本长度 (行数组 [i]) ＜ 1)
到循环尾 ()
如果真 (寻找文本 (行数组 [i], “品名”, , 假) ≠ -1 或 寻找文本 (行数组 [i], “型号”, , 假) ≠ -1)
到循环尾 ()

单词数组 ＝ 分割文本 (行数组 [i], “ ”, )
计次循环首 (取数组成员数 (单词数组), j)
候选 ＝ 删首尾空 (单词数组 [j])
如果真 (取文本长度 (候选) ＝ 7 且 是否为纯数字 (候选))
输出调试文本 (“取出数字：” ＋ 候选)
跳出循环 ()

计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
是否为纯数字	逻辑型
参数名	类 型	参考	可空	数组	备 注
待测文本	文本型

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

计次循环首 (取文本长度 (待测文本), k)
如果真 (取代码 (待测文本, k) ＜ 48 或 取代码 (待测文本, k) ＞ 57)
返回 (假)

计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 单词数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 候选, 文本型<br /> <br /> 行数组 ＝ 分割文本 (#文本, #换行符, )'这里的#文本是常量<br /> <br /> .计次循环首 (取数组成员数 (行数组), i)<br />     .如果真 (取文本长度 (行数组 <i>) ＜ 1)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (寻找文本 (行数组 <i>, “品名”, , 假) ≠ -1 或 寻找文本 (行数组 <i>, “型号”, , 假) ≠ -1)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     单词数组 ＝ 分割文本 (行数组 <i>, “ ”, )<br />     .计次循环首 (取数组成员数 (单词数组), j)<br />         候选 ＝ 删首尾空 (单词数组 [j])<br />         .如果真 (取文本长度 (候选) ＝ 7 且 是否为纯数字 (候选))<br />             输出调试文本 (“取出数字：” ＋ 候选)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 是否为纯数字, 逻辑型<br /> .参数 待测文本, 文本型<br /> .局部变量 k, 整数型<br /> <br /> .计次循环首 (取文本长度 (待测文本), k)<br />     .如果真 (取代码 (待测文本, k) ＜ 48 或 取代码 (待测文本, k) ＞ 57)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)

真冬

  

变量名	类 型	静态	数组	备 注
a	文本型		0
i1	整数型
b	文本型		0

a ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (a), i1)
b ＝ 分割文本 (a [i1], “        ”, )
如果真 (取数组成员数 (b) ＝ 3)
如果真 (取文本长度 (b [2]) ＝ 7 且 到整数 (b [2]) ＞ 1000000)
编辑框11.内容 ＝ b [2]
调试输出 (b [1], b [2], b [3])
处理事件 ()
_按钮2_被单击 ()


计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 b, 文本型, , "0"<br /> <br /> a ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (a), i1)<br />     b ＝ 分割文本 (a [i1], “        ”, )<br />     .如果真 (取数组成员数 (b) ＝ 3)<br />         .如果真 (取文本长度 (b [2]) ＝ 7 且 到整数 (b [2]) ＞ 1000000)<br />             编辑框11.内容 ＝ b [2]<br />             调试输出 (b [1], b [2], b [3])<br />             处理事件 ()<br />             _按钮2_被单击 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

wh1234567

是永乐哟 发表于 2026-6-19 02:24
[e=0].版本 2

.程序集 窗口程序集_启动窗口

修改成10位数的数值，为什么无效了呢？

补充内容 (2026-6-19 02:47):
无论数值是几位数，只取出中间那组数值就行。

wh1234567

真冬 发表于 2026-6-19 02:30
[e=0]
.版本 2
.支持库 spec

修改成10位数的数值，为什么无效了呢？

补充内容 (2026-6-19 02:47):
无论数值是几位数，只取出中间那组数值就行。

补充内容 (2026-6-19 02:48):
每行内容，中间都是对齐符间隔开的

真冬

wh1234567 发表于 2026-6-19 02:46
修改成10位数的数值，为什么无效了呢？

补充内容 (2026-6-19 02:47):

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

如果真 (取文本长度 (b [2]) ＝ 10 且 到整数 (b [2]) ≥ 1000000000)

BruceJoysky1987

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
m_Array	文本型	0

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

取出值 ( #常量1, m_Array)

子程序名	返回值类型	公开	备 注
取出值	整数型
参数名	类 型	参考	可空	数组	备 注
SourceData	文本型				源数据
TextArray	文本型				数组

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

如果真 (取数组成员数 (TextArray) ＞ 0)
清除数组 (TextArray)

如果真 (l_Regx.创建 (“ \s(\d+)\s”, SourceData, 假, 假, 真, 真) ＝ 假)
返回 (0)

计次循环首 (l_Regx.取匹配数量 (), l_Index)
加入成员 (TextArray, l_Regx.取子匹配文本 (l_Index, 1, ))
计次循环尾 ()
如果真 (取数组成员数 (TextArray) ＞ 0)
返回 (取数组成员数 (TextArray))

返回 (0)

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

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

如果真 (l_Index ＝ 0)
l_Index ＝ 1

如果真 (l_Index ＞ 取数组成员数 (m_Array))
l_Index ＝ 0
返回 ()

编辑框1.内容 ＝ m_Array [l_Index]
延迟 (200)
l_Index ＝ l_Index ＋ 1
_按钮1_被单击 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 m_Array, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 取出值 (#常量1, m_Array)<br /> <br /> .子程序 取出值, 整数型<br /> .参数 SourceData, 文本型, , 源数据<br /> .参数 TextArray, 文本型, 可空 数组, 数组<br /> .局部变量 l_Regx, 正则表达式类<br /> .局部变量 l_Index, 整数型<br /> <br /> .如果真 (取数组成员数 (TextArray) ＞ 0)<br />     清除数组 (TextArray)<br /> .如果真结束<br /> <br /> .如果真 (l_Regx.创建 (“ \s(\d+)\s”, SourceData, 假, 假, 真, 真) ＝ 假)<br />     返回 (0)<br /> .如果真结束<br /> <br /> .计次循环首 (l_Regx.取匹配数量 (), l_Index)<br />     加入成员 (TextArray, l_Regx.取子匹配文本 (l_Index, 1, ))<br /> .计次循环尾 ()<br /> <br /> .如果真 (取数组成员数 (TextArray) ＞ 0)<br />     返回 (取数组成员数 (TextArray))<br /> .如果真结束<br /> <br /> 返回 (0)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 l_Index, 整数型, 静态<br /> <br /> .如果真 (l_Index ＝ 0)<br />     l_Index ＝ 1<br /> .如果真结束<br /> <br /> .如果真 (l_Index ＞ 取数组成员数 (m_Array))<br />     l_Index ＝ 0<br />     返回 ()<br /> .如果真结束<br /> <br /> 编辑框1.内容 ＝ m_Array [l_Index]<br /> 延迟 (200)<br /> <br /> l_Index ＝ l_Index ＋ 1<br /> <br /> _按钮1_被单击 ()

补充内容 (2026-6-19 04:38):
自行加载精易模块