超级列表框读写配置和移动表项

小了白了兔

支持开源~！感谢分享

TBit

感谢分享

dashang

感谢分享，很给力！~

seven7c

RE: 超级列表框读写配置和移动表项 [修改]

shuaier

支持开源~！感谢分享

wmv520

        感谢分享，很给力！~

菠萝儿

支持开源

faka23

#在这里快速回复#一点没大用的小东西凑个热闹

ensurf

这个可以有，感谢楼主分享

Suky

  

子程序名	返回值类型	公开	备 注
Adm_超级列表框_保存配置			保存超级列表框标题数据到配置文件,与<Adm_超级列表框_读入数据>配套使用   适用于<报表列表框>
参数名	类 型	参考	可空	数组	备 注
P_配置文件路径	文本型				要保存的配置文件路径，需包含文件名，建议txt或ini格式确保能正确写入
P_超级列表框	超级列表框				要进行保存的超级列表框组件名称
P_分隔符	文本型				表项配置文本分隔符，需超列标题中未包含的 文本组合

变量名	类 型	静态	数组	备 注
n	整数型			表项循环数
i	整数型			列循环数
L_文本	文本型
L_列循环数	整数型
L_组件名	文本型

L_列循环数 ＝ P_超级列表框.取列数 () － 1
L_组件名 ＝ 取组件名称 (P_超级列表框)  ' 取组件名用作节名称，与 Adm_超级列表框_读入配置 节名称保持一致
计次循环首 (P_超级列表框.取表项数 (), n)  ' 依次读取每一个表项数据并进行处理
计次循环首 (L_列循环数, i)  ' 获取当前处理表项总列数,并依次添加到要保存的数据文本中
L_文本 ＝ L_文本 ＋ P_超级列表框.取标题 (n － 1, i) ＋ P_分隔符
计次循环尾 ()
写配置项 (P_配置文件路径, L_组件名, P_超级列表框.取标题 (n － 1, 0), L_文本)  ' 首列作为配置项名，不加入配置项文本
L_文本 ＝ “”
计次循环尾 ()
返回 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 Adm_超级列表框_保存配置, , 公开, 保存超级列表框标题数据到配置文件,与<Adm_超级列表框_读入数据>配套使用   适用于<报表列表框><br /> .参数 P_配置文件路径, 文本型, , 要保存的配置文件路径，需包含文件名，建议txt或ini格式确保能正确写入<br /> .参数 P_超级列表框, 超级列表框, , 要进行保存的超级列表框组件名称<br /> .参数 P_分隔符, 文本型, , 表项配置文本分隔符，需超列标题中未包含的 文本组合<br /> .局部变量 n, 整数型, , , 表项循环数<br /> .局部变量 i, 整数型, , , 列循环数<br /> .局部变量 L_文本, 文本型<br /> .局部变量 L_列循环数, 整数型<br /> .局部变量 L_组件名, 文本型<br /> <br /> L_列循环数 ＝ P_超级列表框.取列数 () － 1<br /> L_组件名 ＝ 取组件名称 (P_超级列表框)  ' 取组件名用作节名称，与 Adm_超级列表框_读入配置 节名称保持一致<br /> .计次循环首 (P_超级列表框.取表项数 (), n)  ' 依次读取每一个表项数据并进行处理<br />     .计次循环首 (L_列循环数, i)  ' 获取当前处理表项总列数,并依次添加到要保存的数据文本中<br />                L_文本 ＝ L_文本 ＋ P_超级列表框.取标题 (n － 1, i) ＋ P_分隔符<br />     .计次循环尾 ()<br />     写配置项 (P_配置文件路径, L_组件名, P_超级列表框.取标题 (n － 1, 0), L_文本)  ' 首列作为配置项名，不加入配置项文本<br />     L_文本 ＝ “”<br /> .计次循环尾 ()<br /> 返回 ()

这个子程序可以这样优化一下
详细原因的可以参看此帖：
分割文本（）的隐藏设定？
https://bbs.125.la/forum.php?mod=viewthread&tid=14747213
(出处: 精易论坛)