超级列表框指定列导出

chyanyan

这是最容易想到的代码，如果列数很多，如何实现指定列导出呢？
我没想到，大家有类似代码可以@我，谢谢了

筛选.rar (2.22 KB, 下载次数: 48)

2014-10-2 00:49 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
分隔符	文本型
i	整数型
ii	整数型
单元格文本	文本型		0

超级列表框1.全部删除 ()
通用对话框1.类型 ＝ 0
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文本文档|*.txt”  ' 仅能导入txt文档
分隔符 ＝ “----”  ' 修改这里可以设置不同的分隔符
如果 (通用对话框1.打开 ())  ' 将txt文档里的账号密码导入到超级列表框里
文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
计次循环首 (取数组成员数 (文本), i)
清除数组 (单元格文本)
单元格文本 ＝ 分割文本 (文本 [i], 分隔符, )
超级列表框1.插入表项 (, , , , , )
计次循环首 (取数组成员数 (单元格文本), ii)
超级列表框1.置标题 (i － 1, ii － 1, 单元格文本 [ii])
计次循环尾 ()
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型
数据	文本型

如果真 (选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 假 且 选择框3.选中 ＝ 假)
信息框 (“请选择至少2列”, 0, )
返回 ()
如果真 (选择框2.选中 ＝ 真 且 选择框1.选中 ＝ 假 且 选择框3.选中 ＝ 假)
信息框 (“请选择至少2列”, 0, )
返回 ()
如果真 (选择框3.选中 ＝ 真 且 选择框2.选中 ＝ 假 且 选择框1.选中 ＝ 假)
信息框 (“请选择至少2列”, 0, )
返回 ()
如果真 (选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 真 且 选择框3.选中 ＝ 假)
计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号
数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符
写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))
计次循环尾 ()
如果真 (选择框2.选中 ＝ 真 且 选择框3.选中 ＝ 真 且 选择框1.选中 ＝ 假)
计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号
数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))
计次循环尾 ()
如果真 (选择框3.选中 ＝ 真 且 选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 假)
计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号
数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))
计次循环尾 ()
如果真 (选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 真 且 选择框3.选中 ＝ 真)
计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号
数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))
计次循环尾 ()
信息框 (“导出完毕”, 0, )

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 分隔符, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 单元格文本, 文本型, , "0"<br /> <br /> 超级列表框1.全部删除 ()<br /> 通用对话框1.类型 ＝ 0<br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.过滤器 ＝ “文本文档|*.txt”  ' 仅能导入txt文档<br /> 分隔符 ＝ “----”  ' 修改这里可以设置不同的分隔符<br /> .如果 (通用对话框1.打开 ())  ' 将txt文档里的账号密码导入到超级列表框里<br />     文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )<br />     .计次循环首 (取数组成员数 (文本), i)<br />         清除数组 (单元格文本)<br />         单元格文本 ＝ 分割文本 (文本 <i>, 分隔符, )<br />         超级列表框1.插入表项 (, , , , , )<br />         .计次循环首 (取数组成员数 (单元格文本), ii)<br />             超级列表框1.置标题 (i － 1, ii － 1, 单元格文本 [ii])<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 数据, 文本型<br /> <br /> .如果真 (选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 假 且 选择框3.选中 ＝ 假)<br />     信息框 (“请选择至少2列”, 0, )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真 且 选择框1.选中 ＝ 假 且 选择框3.选中 ＝ 假)<br />     信息框 (“请选择至少2列”, 0, )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (选择框3.选中 ＝ 真 且 选择框2.选中 ＝ 假 且 选择框1.选中 ＝ 假)<br />     信息框 (“请选择至少2列”, 0, )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 真 且 选择框3.选中 ＝ 假)<br />     .计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号<br />         数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))<br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真 且 选择框3.选中 ＝ 真 且 选择框1.选中 ＝ 假)<br />     .计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号<br />         数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))<br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (选择框3.选中 ＝ 真 且 选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 假)<br />     .计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号<br />         数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))<br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (选择框1.选中 ＝ 真 且 选择框2.选中 ＝ 真 且 选择框3.选中 ＝ 真)<br />     .计次循环首 (超级列表框1.取表项数 (), i)  ' 批量导出账号<br />         数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符<br />         写到文件 (取运行目录 () ＋ “\数据_” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “_” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “_” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.txt”, 到字节集 (数据))<br />     .计次循环尾 ()<br /> .如果真结束<br /> 信息框 (“导出完毕”, 0, )

流星雨季

看看怎么使用

10008508

好牛，非常实用，下载以后再研究

宇智波·佐助

这个~            

sgxzxj

好牛，非常实用，下载以后再研究

米漫

方法有点繁琐，可以简化很多东西

火麟

还 是不错了                        

等到烟火清凉

chyanyan 发表于 2014-10-2 01:09
好代码。如果20多个选择框的情况，要如何处理呢？求教

呵呵，指定列导出，20行代码内基本可以搞定了。而且是随便你怎么加选择框和列，通用~

电工涛哥

方法 是有点笨  注意   简便

chyanyan

等到烟火清凉 发表于 2014-10-2 01:00
就比如你前面三句判断(也就是选择框的判断)。完全可以写成一句判断代码：
到整数（选择框1.选中）+到整数 ...

好代码。如果20多个选择框的情况，要如何处理呢？求教

等到烟火清凉

就比如你前面三句判断(也就是选择框的判断)。完全可以写成一句判断代码：
到整数（选择框1.选中）+到整数（选择框2.选中）+到整数（选择框3.选中）<2