超级列表框导出CSV文件

浅浅`

论坛找了很久的导出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，已经修复，看回复的一楼

浅浅`

  

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

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

列数 ＝ 要导出的超级列表框.取列数 ()
项数 ＝ 要导出的超级列表框.取表项数 ()
计次循环首 (列数, i)
内容 ＝ 内容 ＋ 要导出的超级列表框.取列标题 (i － 1)
如果真 (列数 ≠ i)
内容 ＝ 内容 ＋ “,”

计次循环尾 ()
内容 ＝ 内容 ＋ #换行符
计次循环首 (项数, i)
内容中间部分 ＝ “”
计次循环首 (列数, c)
tmp ＝ 要导出的超级列表框.取标题 (i － 1, c － 1)
tmp ＝ 子文本替换 (tmp, #换行符, “ ”, , , 真)
如果真 (寻找文本 (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 ＝ 子文本替换 (tmp, #换行符, “ ”, , , 真)<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 />     返回 (假)

aipca

导出的表格EXCEL不能有效的识别出分隔符 全在一行里是什么情况？

1300886755

感谢分享

9skybug

支持开源~！感谢分享

零玖电脑

那个是正确的吗？

浅浅`

深爱者 发表于 2020-8-6 15:12

已经修复了，看置顶。

浅浅`

深爱者 发表于 2020-8-6 15:12

如果字段中有逗号（,），该字段使用双引号（"）括起来；

如果该字段中有双引号，该双引号前要再加一个双引号，然后把该字段使用双引号括起来。

看完project manager的要求，我真是满头起包啊。在IT业混了十几年了，竟然不知道这样处理逗号。

举几个例子：

字段处理前	字段处理后
abc,d2	"abc,d2"
ab"c,d2	"ab""c,d2"
"abc	"""abc"
""	""""""

深爱者

另类导出CSV.e (855.04 KB, 下载次数: 24)

2020-8-6 15:12 上传

点击文件名下载附件

你是我的眼哦

支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享支持开源~！感谢分享