批量_超级列表框_保存配置

SoloCat

  

子程序名	返回值类型	公开	备 注
批量_超级列表框_读取配置	整数型		与"批量_日期框_保存配置()"命令一起用的!  返回被操作的编辑框数量!
参数名	类 型	参考	可空	数组	备 注
组件的父窗口	窗口				直接填写顶级窗口就行了,如:_启动窗口
配置文件名	文本型				可空:默认保存在根目录\data目录下,名为setsoft.ini

变量名	类 型	静态	数组	备 注
局_寻找句柄	整数型
局_计次	整数型
局_组件	超级列表框
局_临时文本	文本型
局_组件数量	整数型
局_列数	整数型
局_项数	整数型
局_数组1	文本型		0
局_数组2	文本型		0
局_计次1	整数型
局_计次2	整数型
表项	整数型

如果真 (是否为空 (配置文件名))
配置文件名 ＝ 取默认目录 ()
局_寻找句柄 ＝ 寻找组件 (组件的父窗口, , “超级列表框”, , )
局_组件数量 ＝ 取找到组件数目 (局_寻找句柄)
计次循环首 (局_组件数量, 局_计次)
局_组件 ＝ 取所找到组件 (局_寻找句柄, 局_计次 － 1)
局_临时文本 ＝ 读配置项 (配置文件名, “超级列表框”, 取组件名称 (局_组件), “”)
局_数组1 ＝ 分割文本 (局_临时文本, “{!}”, )
局_项数 ＝ 取数组成员数 (局_数组1)
计次循环首 (局_项数, 局_计次1)
局_数组2 ＝ 分割文本 (局_数组1 [局_计次1], “,”, )
表项 ＝ 局_组件.插入表项 (, , , , , )
局_列数 ＝ 取数组成员数 (局_数组2)
计次循环首 (局_列数, 局_计次2)
局_组件.置标题 (表项, 局_计次2 － 1, 局_数组2 [局_计次2])
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
清除组件寻找句柄 (局_寻找句柄)
返回 (局_组件数量)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 批量_超级列表框_读取配置, 整数型, 公开, 与"批量_日期框_保存配置()"命令一起用的!  返回被操作的编辑框数量!<br /> .参数 组件的父窗口, 窗口, , 直接填写顶级窗口就行了,如:_启动窗口<br /> .参数 配置文件名, 文本型, 可空, 可空:默认保存在根目录\data目录下,名为setsoft.ini<br /> .局部变量 局_寻找句柄, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_组件, 超级列表框<br /> .局部变量 局_临时文本, 文本型<br /> .局部变量 局_组件数量, 整数型<br /> .局部变量 局_列数, 整数型<br /> .局部变量 局_项数, 整数型<br /> .局部变量 局_数组1, 文本型, , "0"<br /> .局部变量 局_数组2, 文本型, , "0"<br /> .局部变量 局_计次1, 整数型<br /> .局部变量 局_计次2, 整数型<br /> .局部变量 表项, 整数型<br /> <br /> .如果真 (是否为空 (配置文件名))<br />     配置文件名 ＝ 取默认目录 ()<br /> .如果真结束<br /> 局_寻找句柄 ＝ 寻找组件 (组件的父窗口, , “超级列表框”, , )<br /> 局_组件数量 ＝ 取找到组件数目 (局_寻找句柄)<br /> .计次循环首 (局_组件数量, 局_计次)<br />     局_组件 ＝ 取所找到组件 (局_寻找句柄, 局_计次 － 1)<br />     局_临时文本 ＝ 读配置项 (配置文件名, “超级列表框”, 取组件名称 (局_组件), “”)<br />     局_数组1 ＝ 分割文本 (局_临时文本, “{!}”, )<br />     局_项数 ＝ 取数组成员数 (局_数组1)<br />     .计次循环首 (局_项数, 局_计次1)<br />         局_数组2 ＝ 分割文本 (局_数组1 [局_计次1], “,”, )<br />         表项 ＝ 局_组件.插入表项 (, , , , , )<br />         局_列数 ＝ 取数组成员数 (局_数组2)<br />         .计次循环首 (局_列数, 局_计次2)<br />             局_组件.置标题 (表项, 局_计次2 － 1, 局_数组2 [局_计次2])<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (局_寻找句柄)<br /> 返回 (局_组件数量)

  

子程序名	返回值类型	公开	备 注
批量_超级列表框_保存配置	整数型
参数名	类 型	参考	可空	数组	备 注
组件的父窗口	窗口				直接填写顶级窗口就行了,如:_启动窗口
配置文件名	文本型				可空:默认保存在根目录\data目录下,名为setsoft.ini
不保存的控件名称	文本型				不需要自动保存数据的控件名称,以|分开;

变量名	类 型	静态	数组	备 注
局_寻找句柄	整数型
局_计次	整数型
局_组件	超级列表框
局_临时文本	文本型
局_组件数量	整数型
局_列数	整数型
局_项数	整数型
局_计次2	整数型
局_计次3	整数型

如果真 (是否为空 (配置文件名))
配置文件名 ＝ 取默认目录 ()
局_寻找句柄 ＝ 寻找组件 (组件的父窗口, , “超级列表框”, , )
局_组件数量 ＝ 取找到组件数目 (局_寻找句柄)
计次循环首 (局_组件数量, 局_计次)
局_临时文本 ＝ “”
局_组件 ＝ 取所找到组件 (局_寻找句柄, 局_计次 － 1)
如果真 (寻找文本 (不保存的控件名称, 取组件名称 (局_组件), , 假) ＝ -1)
局_列数 ＝ 局_组件.取列数 ()
局_项数 ＝ 局_组件.取表项数 ()
计次循环首 (局_项数, 局_计次2)
计次循环首 (局_列数, 局_计次3)
局_临时文本 ＝ 局_临时文本 ＋ 局_组件.取标题 (局_计次2 － 1, 局_计次3 － 1) ＋ “,”
计次循环尾 ()
局_临时文本 ＝ 局_临时文本 ＋ “{!}”
计次循环尾 ()
写配置项 (配置文件名, “超级列表框”, 取组件名称 (局_组件), 局_临时文本)

计次循环尾 ()
清除组件寻找句柄 (局_寻找句柄)
返回 (局_组件数量)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 批量_超级列表框_保存配置, 整数型, 公开<br /> .参数 组件的父窗口, 窗口, , 直接填写顶级窗口就行了,如:_启动窗口<br /> .参数 配置文件名, 文本型, 可空, 可空:默认保存在根目录\data目录下,名为setsoft.ini<br /> .参数 不保存的控件名称, 文本型, 可空, 不需要自动保存数据的控件名称,以|分开;<br /> .局部变量 局_寻找句柄, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_组件, 超级列表框<br /> .局部变量 局_临时文本, 文本型<br /> .局部变量 局_组件数量, 整数型<br /> .局部变量 局_列数, 整数型<br /> .局部变量 局_项数, 整数型<br /> .局部变量 局_计次2, 整数型<br /> .局部变量 局_计次3, 整数型<br /> <br /> .如果真 (是否为空 (配置文件名))<br />     配置文件名 ＝ 取默认目录 ()<br /> .如果真结束<br /> 局_寻找句柄 ＝ 寻找组件 (组件的父窗口, , “超级列表框”, , )<br /> 局_组件数量 ＝ 取找到组件数目 (局_寻找句柄)<br /> .计次循环首 (局_组件数量, 局_计次)<br />     局_临时文本 ＝ “”<br />     局_组件 ＝ 取所找到组件 (局_寻找句柄, 局_计次 － 1)<br />     .如果真 (寻找文本 (不保存的控件名称, 取组件名称 (局_组件), , 假) ＝ -1)<br />         局_列数 ＝ 局_组件.取列数 ()<br />         局_项数 ＝ 局_组件.取表项数 ()<br />         .计次循环首 (局_项数, 局_计次2)<br />             .计次循环首 (局_列数, 局_计次3)<br />                 局_临时文本 ＝ 局_临时文本 ＋ 局_组件.取标题 (局_计次2 － 1, 局_计次3 － 1) ＋ “,”<br />             .计次循环尾 ()<br />             局_临时文本 ＝ 局_临时文本 ＋ “{!}”<br />         .计次循环尾 ()<br />         写配置项 (配置文件名, “超级列表框”, 取组件名称 (局_组件), 局_临时文本)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (局_寻找句柄)<br /> 返回 (局_组件数量)

自己需要，所以就仿照精易的，写了个超级列表框的，可能不适用于其他的超级列表框，不过对于我，报表的纯文本的足够用了。。

注：我是在精易模块源码里写的，可能缺少一个取默认目录，大家自己复制到精易源码里就行了。






补充内容 (2015-9-5 08:44):
这个方法比较笨拙，适用于，想把超级列表框存储为文本的人使用，如果不需要存成文本，也不需要存到配置项。只需要存成一个文件的话，可以使用  活雷锋り   说的那种。。也就是下面点评的。

l0447195

精易有你更精彩。

SoloCat

@活雷锋り 说的有道理

晓晓馨

感谢分享            

杰夫船长

精易模块没有取默认目录

梦寻简单

谢谢分享。

2442295093

精易有你更精彩。{:soso_e0c5b93889b3216f-d724921df748f344-3a6e685990ad208637a242694d68072c.jpg:}

改名字好难

精易有你更精彩。