|  | 
 
 发表于 2023-5-15 10:51:00
|
显示全部楼层
   江西省宜春市 
  
| 好像加两个判断就可以吧?   超级列表框1.全部删除 ()  判断 ( 选择框2.选中 = 真)  文件_枚举 ( 编辑框1.内容, 组合框1.内容, arr, 真, , 真)  文件_枚举 ( 编辑框1.内容, 组合框1.内容, arr, 真, , 假)  调试输出 ( arr)  计次循环首 (取数组成员数 ( arr) , i)  txt = 到文本 (读入文件 ( arr [ i]) )   判断 ( 选择框1.选中 = 真)   zz.创建 ( 编辑框2.内容, txt, 真, , , )   zz.创建 ( 编辑框2.内容, txt, 假, , , )     如果真 ( zz.取匹配数量 ()  > 0)   bx = 超级列表框1.插入表项 ( , , , , , )   超级列表框1.置标题 ( bx, 0, 到文本 ( bx + 1) )   超级列表框1.置标题 ( bx, 1, arr [ i])   超级列表框1.置标题 ( bx, 2, 文件_取文件名 ( arr [ i] , ) )   超级列表框1.置标题 ( bx, 3, 到文本 ( zz.取匹配数量 () ))    计次循环尾 () 
 .版本 2
 .支持库 iext
 .支持库 spec
 
 超级列表框1.全部删除 ()
 
 .判断开始 (选择框2.选中 = 真)
 文件_枚举 (编辑框1.内容, 组合框1.内容, arr, 真, , 真)
 .默认
 文件_枚举 (编辑框1.内容, 组合框1.内容, arr, 真, , 假)
 .判断结束
 
 调试输出 (arr)
 .计次循环首 (取数组成员数 (arr), i)
 txt = 到文本 (读入文件 (arr ))
 
 .判断开始 (选择框1.选中 = 真)
 zz.创建 (编辑框2.内容, txt, 真, , , )
 .默认
 zz.创建 (编辑框2.内容, txt, 假, , , )
 .判断结束
 
 .如果真 (zz.取匹配数量 () > 0)
 bx = 超级列表框1.插入表项 (, , , , , )
 超级列表框1.置标题 (bx, 0, 到文本 (bx + 1))
 超级列表框1.置标题 (bx, 1, arr )
 超级列表框1.置标题 (bx, 2, 文件_取文件名 (arr , ))
 超级列表框1.置标题 (bx, 3, 到文本 (zz.取匹配数量 ()))
 .如果真结束
 
 .计次循环尾 ()
 | 
 |