超级列表框导出CSV文件

浅浅` · 发表于 2019-10-21 14:41:31

论坛找了很久的导出csv没有找到现成的，干脆自己花了十几分钟写了一个
格式很简单，简单写了一下自己够用的，其他的格式要求大家可以根据文档改：https://wenku.baidu.com/view/56983e2458fb770bf78a55d2.html

子程序名	返回值类型	公开	备注
超级列表框导出csv	逻辑型
参数名	类型	参考	可空	数组	备注
要导出的超级列表框	超级列表框
通用对话框	通用对话框

变量名	类型	静态	数组	备注
内容中间部分	文本型
c	整数型
i	整数型
表头	文本型
内容	文本型
列数	整数型
项数	整数型
tmp	文本型

列数＝要导出的超级列表框.取列数 ()
项数＝要导出的超级列表框.取表项数 ()

计次循环首 (列数, i)

内容＝内容＋要导出的超级列表框.取列标题 (i － 1)

如果真 (列数 ≠ i)

内容＝内容＋ “,”

计次循环尾 ()
内容＝内容＋ #换行符

计次循环首 (项数, i)

内容中间部分＝ “”

计次循环首 (列数, c)

tmp ＝要导出的超级列表框.取标题 (i － 1, c － 1)

如果真 (寻找文本 (tmp, “,”, , 假) ≠ -1) ' csv文件如果有逗号要双引号包裹

tmp ＝ #左引号＋ tmp ＋ #右引号

如果真 (寻找文本 (tmp, #换行符, , 假) ≠ -1) ' csv文件如果有换行符要括起来

tmp ＝ “(” ＋ tmp ＋ “)”

内容中间部分＝内容中间部分＋ tmp

如果真 (c ≠ 列数)

内容中间部分＝内容中间部分＋ “,”

计次循环尾 ()

内容＝内容＋内容中间部分

如果真 (i ≠ 项数)

内容＝内容＋ #换行符

计次循环尾 ()
通用对话框.类型＝ 1
通用对话框.默认文件后缀＝ “.csv”
通用对话框.过滤器＝ “csv文件 (*.csv)|*.csv”

如果 (通用对话框.打开 ())

返回 (写到文件 (通用对话框1.文件名, 到字节集 (内容)))

返回 (假)

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

.版本 2<br />
.支持库 iext<br />
<br />
.子程序 超级列表框导出csv, 逻辑型<br />
.参数 要导出的超级列表框, 超级列表框<br />
.参数 通用对话框, 通用对话框<br />
.局部变量 内容中间部分, 文本型<br />
.局部变量 c, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 表头, 文本型<br />
.局部变量 内容, 文本型<br />
.局部变量 列数, 整数型<br />
.局部变量 项数, 整数型<br />
.局部变量 tmp, 文本型<br />
<br />
列数 ＝ 要导出的超级列表框.取列数 ()<br />
项数 ＝ 要导出的超级列表框.取表项数 ()<br />
.计次循环首 (列数, i)<br />
    内容 ＝ 内容 ＋ 要导出的超级列表框.取列标题 (i － 1)<br />
    .如果真 (列数 ≠ i)<br />
        内容 ＝ 内容 ＋ “,”<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
内容 ＝ 内容 ＋ #换行符<br />
.计次循环首 (项数, i)<br />
    内容中间部分 ＝ “”<br />
    .计次循环首 (列数, c)<br />
        tmp ＝ 要导出的超级列表框.取标题 (i － 1, c － 1)<br />
        .如果真 (寻找文本 (tmp, “,”, , 假) ≠ -1)  ' csv文件如果有逗号要双引号包裹<br />
            tmp ＝ #左引号 ＋ tmp ＋ #右引号<br />
        .如果真结束<br />
        .如果真 (寻找文本 (tmp, #换行符, , 假) ≠ -1)  ' csv文件如果有换行符要括起来<br />
            tmp ＝ “(” ＋ tmp ＋ “)”<br />
        .如果真结束<br />
<br />
        内容中间部分 ＝ 内容中间部分 ＋ tmp<br />
        .如果真 (c ≠ 列数)<br />
            内容中间部分 ＝ 内容中间部分 ＋ “,”<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
    内容 ＝ 内容 ＋ 内容中间部分<br />
    .如果真 (i ≠ 项数)<br />
        内容 ＝ 内容 ＋ #换行符<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
通用对话框.类型 ＝ 1<br />
通用对话框.默认文件后缀 ＝ “.csv”<br />
通用对话框.过滤器 ＝ “csv文件 (*.csv)|*.csv”<br />
.如果 (通用对话框.打开 ())<br />
    返回 (写到文件 (通用对话框1.文件名, 到字节集 (内容)))<br />
<br />
<br />
<br />
.否则<br />
<br />
    返回 (假)

补充内容 (2020-10-21 12:07):
有bug，已经修复，看回复的一楼有bug，已经修复，看回复的一楼有bug，已经修复，看回复的一楼[...

补充内容 (2020-10-21 12:07):
有bug，已经修复，看回复的一楼

补充内容 (2020-10-21 12:07):
有bug，已经修复，看回复的一楼

浅浅` · 发表于 2020-10-21 12:06:50

子程序名	返回值类型	公开	备注
超级列表框导出csv	逻辑型
参数名	类型	参考	可空	数组	备注
要导出的超级列表框	超级列表框
通用对话框	通用对话框

变量名	类型	静态	数组	备注
内容中间部分	文本型
c	整数型
i	整数型
表头	文本型
内容	文本型
列数	整数型
项数	整数型
tmp	文本型