超级列表框置标题01234567第8换第二行

aniushu · 发表于 2021-3-15 15:24:44

超级列表框置标题01234567第8换第二行正则匹配的数据1-x
数据 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16.。。。。。
置标题0 1 2 3 4 5 6 7 0 1 2 3 4 5 6 7 .。。。。

计次循环首 (局_匹配数, 局_计次)

如果 (局_子匹配数＞ 0)

数据＝局_正则.取子匹配文本 (局_计次, 1, )

超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (x, P － 1, 数据)

输出调试文本 (“匹配文本 ” ＋到文本 (局_计次) ＋ “ ：” ＋局_正则.取匹配文本 (局_计次, ))

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

寒潮 · 发表于 2021-3-15 15:24:45

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

变量名	类型	静态	数组	备注
随机数	整数型
计次	整数型
数组	整数型		0
索引	整数型
计次2	整数型
循环次数	双精度小数型

置随机数种子 ()
随机数＝取随机数 (1, 100)

计次循环首 (随机数, 计次)

加入成员 (数组, 计次－ 1)

计次循环尾 ()

如果 (取数组成员数 (数组) ％超级列表框1.取列数 () ＝ 0)

循环次数＝取数组成员数 (数组) ＼超级列表框1.取列数 ()

循环次数＝取数组成员数 (数组) ＼超级列表框1.取列数 () ＋ 1

计次循环首 (循环次数, 计次)

索引＝超级列表框1.插入表项 (, , , , , )

计次循环首 (超级列表框1.取列数 (), 计次2)

如果真 (计次 × 超级列表框1.取列数 () －超级列表框1.取列数 () ＋计次2 ≤ 取数组成员数 (数组))

超级列表框1.置标题 (索引, 计次2 － 1, 到文本 (数组 [计次 × 超级列表框1.取列数 () －超级列表框1.取列数 () ＋计次2]))

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

寒潮 · 发表于 2021-3-15 15:35:56

aniushu · 发表于 2021-3-16 19:24:56

寒潮发表于 2021-3-15 15:35
[e=0].版本 2
.支持库 iext

老师我写的是这样的。比较笨。发了帖子后我突然来了灵感写出来的。非常感谢老师的指导。

.版本 2
.支持库 iext

.如果真 (局_正则.创建 (“<td>(.*?) </td>”, 源文本, 假, 假, 真, 真) ＝假)
信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )
返回 (0)
.如果真结束
局_匹配数＝局_正则.取匹配数量 ()
.如果真 (局_匹配数＝ 0)
信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )
返回 (0)
.如果真结束
局_子匹配数＝局_正则.取子匹配数量 ()
.计次循环首 (局_匹配数, 局_计次)
.如果 (局_子匹配数＞ 0)
      输出调试文本 (“匹配文本 ” ＋到文本 (局_计次) ＋ “ 中的子匹配文本 1：” ＋局_正则.取子匹配文本 (局_计次, 1, ))
      x ＝ 0

      .计次循环首 (局_匹配数, 局_计次)
         P ＝ P ＋ 1
         .如果 (局_子匹配数＞ 0)
            数据＝局_正则.取子匹配文本 (局_计次, 1, )
            窗口1.超级列表框2.插入表项 (, , , , , )
            窗口1.超级列表框2.置标题 (x, P － 1, 数据)

            .如果真 (P ＝ 4)
                  P ＝ 0
                  x ＝ x ＋ 1
            .如果真结束

         .否则
            输出调试文本 (“匹配文本 ” ＋到文本 (局_计次) ＋ “ ：” ＋局_正则.取匹配文本 (局_计次, ))
         .如果结束

      .计次循环尾 ()

.否则
      输出调试文本 (“匹配文本 ” ＋到文本 (局_计次) ＋ “ ：” ＋局_正则.取匹配文本 (局_计次, ))
.如果结束

.计次循环尾 ()
返回 (局_匹配数)

		自动登录	找回密码
密码			注册

[已解决] 超级列表框置标题01234567第8换第二行

最佳答案

评分