精易论坛

标题: 《龍皇技术课堂》保存导出源码 [打印本页]

作者: 龍皇 时间: 2017-11-29 20:34
标题: 《龍皇技术课堂》保存导出源码
.版本 2
.支持库 iext
.子程序导出生成卡号
.局部变量文件号, 整数型
.局部变量计数器, 整数型
通用对话框1.类型＝ 1
通用对话框1.过滤器＝ “文本文件(*.txt)|*.txt|所有文件(*.*)|*.*”
通用对话框1.默认文件后缀＝ “.xls”
.如果真 (通用对话框1.打开 () ＝假)
返回 ()
.如果真结束
文件号＝打开文件 (通用对话框1.文件名, #重写, )
移到文件首 (文件号)
写出文本 (文件号, “”)
.计次循环首 (超级列表框1.取表项数 (), 计数器)
写出文本 (文件号, 超级列表框1.取标题 (计数器－ 1, 1) ＋ “--”)
写出文本 (文件号, 超级列表框1.取标题 (计数器－ 1, 2) ＋ #换行符)
处理事件 ()
.计次循环尾 ()
关闭文件 (文件号)

分享给需要的人！
尊重他人，他人在会尊重你

作者: 表哥怡风 时间: 2017-11-29 20:48
不错，学习一下

作者: 壹抹男人味 时间: 2017-11-29 20:48
.......

作者: 95First 时间: 2017-11-29 20:53

....

作者: d8xing 时间: 2017-11-29 21:20
66666666666666666

作者: sa123123 时间: 2017-11-29 21:44
支持下楼主,感谢分享

作者: dulang 时间: 2017-11-29 22:03
支持开源，感谢分享……

作者: myboot 时间: 2017-11-29 22:04

不错，学习一下

作者: 本源 时间: 2017-11-29 22:14
来学习下啦

作者: 爺受亽跪拜 时间: 2017-11-30 13:29
支持开源，感谢分享……

作者: a1527019700 时间: 2017-11-30 16:57

好像很厉害的样子

作者: zeng20160808 时间: 2017-11-30 20:16
支持开源，感谢分享……

作者: aini1wna2 时间: 2017-12-12 17:53
666666666666666

欢迎光临精易论坛 (https://125.confly.eu.org/)