超级列表框怎么导出含有某个内容

macrokk

学习.zip (961 Bytes, 下载次数: 13)

2015-5-5 08:16 上传

点击文件名下载附件

.版本 2
.支持库 iext

超级列表框1.查找表项 (“888”, , , 1)



导出含有888的 txt文件

七月你好

87297575 发表于 2015-5-10 05:50
.版本 2
.支持库 iext

你用这个试下，都可以导出，分开保存的

剩下我de孩子气

计次循环 判断   先吧 超级列表框内容  取出来判断是不是你要的内容   然后是 就用变量  =变量+取出的内容

依然是海洋

先取表项内容再进行判断：

  

判断 (寻找文本 (超级列表框1.取标题（a，1）, “这里是要寻找的关键字”, , 假) ≠ -1)
调试输出 (“找到就导出”)
.调试输出（“未找到就不导出”）

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

.版本 2<br /> .支持库 spec<br /> <br /> .判断开始 (寻找文本 (超级列表框1.取标题（a，1）, “这里是要寻找的关键字”, , 假) ≠ -1)<br />     调试输出 (“找到就导出”)<br /> .调试输出（“未找到就不导出”）

kingsee

1. .版本 2
   
2. .支持库 iext
   
3. .支持库 spec
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 当前索引, 整数型
   
7. .局部变量 test, 文本型
   
8. 
   
9. 当前索引 ＝ -1
   
10. .判断循环首 (当前索引 ≤ 超级列表框1.取表项数 ())
    
11.     当前索引 ＝ 超级列表框1.查找表项 (编辑框1.内容, 当前索引, 假, 0)
    
12.     .如果真 (当前索引 ≥ 0)
    
13.         test ＝ test ＋ 到文本 (当前索引) ＋ “|” ＋ 超级列表框1.取标题 (当前索引, 0) ＋ #换行符
    
14.         当前索引 ＝ 当前索引 ＋ 1
    
15.     .如果真结束
    
16.     .如果真 (当前索引 ＝ -1)
    
17.         跳出循环 ()
    
18.     .如果真结束
    
19. 
    
20. .判断循环尾 ()
    
21. 调试输出 (test)
    

复制代码

qq780571

可以把位置找出来，至于要干什么，你自己弄吧。

  

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

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

变量名	类 型	静态	数组	备 注
数字位置	整数型
数字位置数组	整数型		0
关键字	文本型

关键字 ＝ “888”
数字位置 ＝ 超级列表框1.查找表项 (关键字, , 假, 1)
判断循环首 (数字位置 ＞ 0)
加入成员 (数字位置数组, 数字位置)
数字位置 ＝ 超级列表框1.查找表项 (关键字, 数字位置 ＋ 1, 假, 1)
判断循环尾 ()
调试输出 (数字位置数组)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数字位置, 整数型<br /> .局部变量 数字位置数组, 整数型, , "0"<br /> .局部变量 关键字, 文本型<br /> <br /> 关键字 ＝ “888”<br /> 数字位置 ＝ 超级列表框1.查找表项 (关键字, , 假, 1)<br /> .判断循环首 (数字位置 ＞ 0)<br />     加入成员 (数字位置数组, 数字位置)<br />     数字位置 ＝ 超级列表框1.查找表项 (关键字, 数字位置 ＋ 1, 假, 1)<br /> .判断循环尾 ()<br /> 调试输出 (数字位置数组)

qq780571

no2.zip (32.97 KB, 下载次数: 2)

2015-5-5 13:10 上传

点击文件名下载附件
还是用寻找文本吧。适当修改。

七月你好

是不是这样呢？

87297575

七月你好 发表于 2015-5-5 13:33
是不是这样呢？

.版本 2
.支持库 iext

a ＝ 超级列表框1.取表项数 ()
.计次循环首 (a, i)
    .如果真 (超级列表框1.取标题 (i － 1, 1) ＝ “888”)
        临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符
    .如果真结束

.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\符合条件的.txt”, 到字节集 (临时文本))

.计次循环首 (a, i)
    .如果真 (超级列表框1.取标题 (i － 1, 1) ＜ “888”)

        临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符
    .如果真结束

.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\不符合条件.txt”, 到字节集 (临时文本))


我这样 不符合条件的 里面还是会有 “888” 的数据