《龍皇技术课堂》保存导出源码

龍皇

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


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

aini1wna2

666666666666666

zeng20160808

支持开源，感谢分享……

a1527019700

好像很厉害的样子

爺受亽跪拜

支持开源，感谢分享……

本源

来学习下啦

myboot

不错，学习一下

dulang

支持开源，感谢分享……

sa123123

支持下楼主,感谢分享

d8xing

66666666666666666