.版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 写到文件 (“D:\123.CSV”, 到字节集 (LVMTOCSV (超级列表框1))) .子程序 LVMTOCSV, 文本型, 公开, 列表框数据转CSV;CSV可以用EXCEL打开 .参数 LVM, 超级列表框 .局部变量 整数, 整数型, , "3", 使用到的整数变量 .局部变量 文本, 文本型, , "2", 使用到的文本变量 .判断开始 (LVM.取列数 () ＝ 0 或 LVM.取表项数 () ＝ 0) 返回 (文本 [2]) .默认 .变量循环首 (1, LVM.取列数 (), 1, 整数 [1]) .判断开始 (整数 [1] ＝ 1) 文本 [1] ＝ LVM.取列标题 (整数 [1] － 1) .默认 ' 本源码来自三叶资源网(www.sanye.cx) 文本 [1] ＝ 文本 [1] ＋ “,” ＋ LVM.取列标题 (整数 [1] － 1) .判断结束 .变量循环尾 () 文本 [2] ＝ 文本 [1] ＋ #换行符 .变量循环首 (1, LVM.取表项数 (), 1, 整数 [1]) 整数 [3] ＝ 整数 [1] － 1 .变量循环首 (1, LVM.取列数 (), 1, 整数 [2]) .判断开始 (整数 [2] ＝ 1) 文本 [1] ＝ LVM.取标题 (整数 [3], 整数 [2] － 1) .默认 ' 本源码来自三叶资源网(www.sanye.cx) 文本 [1] ＝ 文本 [1] ＋ “,” ＋ LVM.取标题 (整数 [3], 整数 [2] － 1) .判断结束 .变量循环尾 () 文本 [2] ＝ 文本 [2] ＋ 文本 [1] ＋ #换行符 .变量循环尾 () 返回 (文本 [2]) .判断结束