超级列表框导出CSV文件 - 精易论坛

子程序名	返回值类型	公开	备注
超级列表框导出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 />
    返回 (假)

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