|
发表于 2014-8-30 18:09:18
|
显示全部楼层
浙江省嘉兴市
列表框内容导出:
_按钮导出_被单击()
.版本 2
.局部变量 文件号, 整数型
.局部变量 n1, 整数型
.如果真 (通用对话框1.打开 ())
文件号 = 打开文件 (通用对话框1.文件名, #重写, )
.如果真结束
.计次循环首 (列表框1.取项目数 (), n1)
写出文本 (文件号, 列表框1.取项目文本 (n1 - 1) + #换行符)
.计次循环尾 ()
关闭文件 (文件号)
超级列表框内容导出:
_按钮导出_被单击()
.版本 2
.支持库 iext
.局部变量 局部计次变量, 整数型
.局部变量 文件号, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
' 所谓“CSV”,是Comma Separated Value(逗号分隔值)的英文缩写,通常都是纯文本文件。(注释)
通用对话框1.类型 = 1
通用对话框1.过滤器 = “文本文件(*.txt)|*.txt|所有文件(*.*)|*.*”
通用对话框1.默认文件后缀 = “.xls”
.如果真 (通用对话框1.打开 () = 假)
返回 ()
.如果真结束
文件号 = 打开文件 (通用对话框1.文件名, #重写, )
移到文件首 (文件号)
.变量循环首 (1, 超级列表框1.取表项数 (), 1, x)
.变量循环首 (1, 2, 1, y) ' 第2个参数决定取多少项,取全部用超级列表框1.取列数 ()
输出调试文本 (超级列表框1.取标题 (x - 1, y - 1))
写出文本 (文件号, 超级列表框1.取标题 (x - 1, y - 1))
写出文本 (文件号, “,”) ' 这是控制生成CSV文件用的,
.变量循环尾 ()
写出文本 (文件号, #换行符)
.变量循环尾 ()
关闭文件 (文件号) |
|