我也很懒，也写了一个超级列表框导入导出的源码

终极易人

  

子程序名	返回值类型	公开	备 注
远_超级列表框_保存	文本型		第0列不保存的 返回被保存的全部shuj 或 指定shuj
参数名	类 型	参考	可空	数组	备 注
超级列表框名称	超级列表框
保存文件路径	文本型
保存分隔符	文本型				可空 默认为：“---”  超级列表框_导入时分隔符要一样
是否只返回文本不保存	逻辑型				不进行文件保存，只返回储存shuj
shuj筛选关键词	文本型				有这个关键词的 才进行保存
筛选列索引	整数型				关键词索引列

变量名	类 型	静态	数组	备 注
列数	整数型
i	整数型
内容	文本型
单行内容	文本型
n	整数型
全部内容	文本型
筛选关键词	文本型
储存内容	文本型

如果真 (保存分隔符 ＝ “”)
保存分隔符 ＝ “---”

列数 ＝ 超级列表框名称.取列数 ()
计次循环首 (超级列表框名称.取表项数 (), n)
判断 (shuj筛选关键词 ≠ “”)
筛选关键词 ＝ 超级列表框名称.取标题 (n － 1, 筛选列索引)
判断 (筛选关键词 ＝ shuj筛选关键词)
计次循环首 (列数, i)
判断 (i － 1 ＝ 0)
内容 ＝ “”
内容 ＝ 超级列表框名称.取标题 (n － 1, i － 1)

判断 (单行内容 ＝ “”)
单行内容 ＝ 内容
单行内容 ＝ 单行内容 ＋ 保存分隔符 ＋ 内容

计次循环尾 ()
全部内容 ＝ 全部内容 ＋ 单行内容 ＋ #换行符
单行内容 ＝ “”




计次循环首 (列数, i)
判断 (i － 1 ＝ 0)
内容 ＝ “”
内容 ＝ 超级列表框名称.取标题 (n － 1, i － 1)

判断 (单行内容 ＝ “”)
单行内容 ＝ 内容
单行内容 ＝ 单行内容 ＋ 保存分隔符 ＋ 内容

计次循环尾 ()
全部内容 ＝ 全部内容 ＋ 单行内容 ＋ #换行符
单行内容 ＝ “”

计次循环尾 ()
储存内容 ＝ 文本_删除空行_汇编 (全部内容)
判断 (是否只返回文本不保存 ＝ 真 或 保存文件路径 ＝ “”)
返回 (储存内容)
判断 (储存内容 ≠ “”)
远_写到文件 (保存文件路径, 储存内容)
返回 (“”)
返回 (“”)

子程序名	返回值类型	公开	备 注
远_超级列表框_导入			第0列自动排序
参数名	类 型	参考	可空	数组	备 注
超级列表框名称	超级列表框
导入文件路径或文本	文本型
导入分隔符	文本型				可空 默认为：---
是否为文本	逻辑型				是否导入的是 远_超级列表框_保存 返回的文本 而不是导入的读取文件的内容

变量名	类 型	静态	数组	备 注
shuj源	文本型
shuj源数组	文本型		0
i	整数型
单行数组	文本型		0
索引	整数型
n	整数型

如果真 (导入分隔符 ＝ “”)
导入分隔符 ＝ “---”

判断 (是否为文本 ＝ 假)
shuj源 ＝ 远_读入文件 (导入文件路径或文本)
shuj源 ＝ 导入文件路径或文本

shuj源 ＝ 文本_删除空行_汇编 (shuj源)
shuj源数组 ＝ 分割文本 (shuj源, #换行符, )
计次循环首 (取数组成员数 (shuj源数组), n)
单行数组 ＝ 分割文本 (shuj源数组 [n], 导入分隔符, )
索引 ＝ 超级列表框名称.插入表项 (, , , , , )
超级列表框名称.置标题 (索引, 0, 到文本 (索引 ＋ 1))
计次循环首 (取数组成员数 (单行数组), i)
超级列表框名称.置标题 (索引, i, 单行数组 [i])
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 远_超级列表框_保存, 文本型, 公开, 第0列不保存的 返回被保存的全部shuj 或 指定shuj<br /> .参数 超级列表框名称, 超级列表框<br /> .参数 保存文件路径, 文本型, 可空<br /> .参数 保存分隔符, 文本型, 可空, 可空 默认为：“---”  超级列表框_导入时分隔符要一样<br /> .参数 是否只返回文本不保存, 逻辑型, 可空, 不进行文件保存，只返回储存shuj<br /> .参数 shuj筛选关键词, 文本型, 可空, 有这个关键词的 才进行保存 <br /> .参数 筛选列索引, 整数型, 可空, 关键词索引列<br /> .局部变量 列数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 单行内容, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 全部内容, 文本型<br /> .局部变量 筛选关键词, 文本型<br /> .局部变量 储存内容, 文本型<br /> <br /> <br /> .如果真 (保存分隔符 ＝ “”)<br />     保存分隔符 ＝ “---”<br /> .如果真结束<br /> <br /> 列数 ＝ 超级列表框名称.取列数 ()<br /> <br /> <br /> .计次循环首 (超级列表框名称.取表项数 (), n)<br /> <br />     .判断开始 (shuj筛选关键词 ≠ “”)<br /> <br />         筛选关键词 ＝ 超级列表框名称.取标题 (n － 1, 筛选列索引)<br /> <br />         .判断开始 (筛选关键词 ＝ shuj筛选关键词)<br /> <br />             .计次循环首 (列数, i)<br /> <br />                 .判断开始 (i － 1 ＝ 0)<br />                     内容 ＝ “”<br />                 .默认<br />                     内容 ＝ 超级列表框名称.取标题 (n － 1, i － 1)<br />                 .判断结束<br /> <br />                 .判断开始 (单行内容 ＝ “”)<br />                     单行内容 ＝ 内容<br />                 .默认<br />                     单行内容 ＝ 单行内容 ＋ 保存分隔符 ＋ 内容<br />                 .判断结束<br /> <br />             .计次循环尾 ()<br /> <br />             全部内容 ＝ 全部内容 ＋ 单行内容 ＋ #换行符<br /> <br />             单行内容 ＝ “”<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br />         .计次循环首 (列数, i)<br /> <br />             .判断开始 (i － 1 ＝ 0)<br />                 内容 ＝ “”<br />             .默认<br />                 内容 ＝ 超级列表框名称.取标题 (n － 1, i － 1)<br />             .判断结束<br /> <br />             .判断开始 (单行内容 ＝ “”)<br />                 单行内容 ＝ 内容<br />             .默认<br />                 单行内容 ＝ 单行内容 ＋ 保存分隔符 ＋ 内容<br />             .判断结束<br /> <br />         .计次循环尾 ()<br /> <br />         全部内容 ＝ 全部内容 ＋ 单行内容 ＋ #换行符<br /> <br />         单行内容 ＝ “”<br /> <br />     .判断结束<br /> <br /> <br /> .计次循环尾 ()<br /> 储存内容 ＝ 文本_删除空行_汇编 (全部内容)<br /> .判断开始 (是否只返回文本不保存 ＝ 真 或 保存文件路径 ＝ “”)<br />     返回 (储存内容)<br /> .判断 (储存内容 ≠ “”)<br />     远_写到文件 (保存文件路径, 储存内容)<br />     返回 (“”)<br /> .默认<br />     返回 (“”)<br /> .判断结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 远_超级列表框_导入, , 公开, 第0列自动排序<br /> .参数 超级列表框名称, 超级列表框<br /> .参数 导入文件路径或文本, 文本型<br /> .参数 导入分隔符, 文本型, 可空, 可空 默认为：--- <br /> .参数 是否为文本, 逻辑型, 可空, 是否导入的是 远_超级列表框_保存 返回的文本 而不是导入的读取文件的内容<br /> .局部变量 shuj源, 文本型<br /> .局部变量 shuj源数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 单行数组, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> .局部变量 n, 整数型<br /> <br /> <br /> <br /> .如果真 (导入分隔符 ＝ “”)<br />     导入分隔符 ＝ “---”<br /> .如果真结束<br /> <br /> .判断开始 (是否为文本 ＝ 假)<br />     shuj源 ＝ 远_读入文件 (导入文件路径或文本)<br /> .默认<br />     shuj源 ＝ 导入文件路径或文本<br /> .判断结束<br /> <br /> shuj源 ＝ 文本_删除空行_汇编 (shuj源)<br /> shuj源数组 ＝ 分割文本 (shuj源, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (shuj源数组), n)<br /> <br />     单行数组 ＝ 分割文本 (shuj源数组 [n], 导入分隔符, )<br /> <br />     索引 ＝ 超级列表框名称.插入表项 (, , , , , )<br /> <br />     超级列表框名称.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br /> <br />     .计次循环首 (取数组成员数 (单行数组), i)<br /> <br />         超级列表框名称.置标题 (索引, i, 单行数组 <i>)<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> .计次循环尾 ()

猪蹄汤

谢谢分享

终极易人

忧郁之子 发表于 2020-6-12 20:58
远_写到文件  这个是什么？

就是 写到文件()     写到文件不是参数是字节集嘛 每次都要 到字节集 所以 我就改了一下  直接保存shuj是文本就行

忧郁之子

远_写到文件  这个是什么？

lyq3255489

终极易人 发表于 2020-6-10 14:06
会卡的死死的

哈哈哈哈 小文本 还是可以的  大shuj用不上

终极易人

lyq3255489 发表于 2020-6-10 13:51
10M的文本导入会不会卡死呢

会卡的死死的

lyq3255489

10M的文本导入会不会卡死呢

终极易人

a5538779 发表于 2020-6-5 17:16
求源码

.................... 我发的不就是源码么，。，。，

a5538779

求源码

wjswzj0

学习一下 怎么操作的