|
楼主 |
发表于 2011-10-14 00:13:04
|
显示全部楼层
山东省潍坊市
本帖最后由 fwdjl 于 2011-10-14 00:14 编辑
[e]
.版本 2
.子程序 写配置文件数据1
.局部变量 LL, 整数型
.局部变量 TT, 文本型
.如果真 (列表框1.选择 (组合框1.内容) ≠ -1)
返回 ()
.如果真结束
列表框1.加入项目 (组合框1.内容, )
.计次循环首 (列表框1.取项目数 (), LL)
TT = TT + 列表框1.取项目文本 (LL - 1) + “|”
.计次循环尾 ()
写加密配置项 (取当前目录 () + “config.ini”, “fwdjl1987lzd521lln”, “beforenm”, “before”, TT)
写加密配置项 (取当前目录 () + “config.ini”, “fwdjl1987lzd521lln”, “beforemm”, “before”, 编辑框2.内容)
读配置文件数据 ()
组合框1.内容 = 列表框1.取项目文本 (列表框1.取项目数 () - 1)
.子程序 读配置文件数据
.局部变量 LL, 整数型
.局部变量 TT, 文本型, , "0"
列表框1.清空 ()
组合框1.清空 ()
TT = 分割文本 (读加密配置项 (取当前目录 () + “config.ini”, “fwdjl1987lzd521lln”, “beforenm”, “before”, ), “|”, )
.计次循环首 (取数组成员数 (TT), LL)
.如果真 (TT [LL] ≠ “”)
列表框1.加入项目 (TT [LL], )
.如果真结束
.计次循环尾 ()
.计次循环首 (列表框1.取项目数 (), LL)
组合框1.加入项目 (列表框1.取项目文本 (LL - 1), )
.计次循环尾 ()
组合框1.内容 = 列表框1.取项目文本 (0)
[/e]
|
|