一键保存配置开源

8492385

1. 变量 lj路径
   
2. 变量 单选框集合 = "单选框0|单选框1|单选框2"
   
3. 变量 复选框集合 = "复选框0|复选框1|复选框2"
   
4. 变量 编辑框集合 = "编辑框0|编辑框1|编辑框2"
   
5. 变量 列表框集合 = "列表框0|列表框1|列表框2"
   
6. 变量 下拉框集合 = "下拉框0|下拉框1|下拉框2"
   
7. 功能 执行()
   
8.     lj路径 = 系统获取进程路径() & "uiGlobai.ini"
   
9.     一键保存(单选框集合, 复选框集合, 编辑框集合, 下拉框集合, 列表框集合, lj路径)
   
10. 结束
    
11. 
    
12. 功能 一键保存(y单选框名称集合, y复选框名称集合, y编辑框名称集合, y下拉框名称集合, y列表框名称集合, y路径, 读写 = 真)  
    
13.     变量 y单选框名称, y复选框名称, y编辑框名称, y下拉框名称, y列表框名称, y内容
    
14.     变量 y控件名称集合 = 数组(y单选框名称集合, y复选框名称集合, y编辑框名称集合, y下拉框名称集合, y列表框名称集合)
    
15.     变量 y名称集合 = 数组(y单选框名称, y复选框名称, y编辑框名称, y下拉框名称, y列表框名称)
    
16.    
    
17.     遍历(变量 i = 0; i < 数组大小(y控件名称集合); i++)
    
18.         如果(y控件名称集合[i] != "")
    
19.             字符串分割(y控件名称集合[i], "|", y名称集合[i])
    
20.             遍历(变量 j = 0; j < 数组大小(y名称集合[i]); j++)
    
21.                 如果(读写)
    
22.                     //读
    
23.                     选择(i)
    
24.                         条件 0
    
25.                         单选框设置状态(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
    
26.                         条件 1
    
27.                         复选框设置状态(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
    
28.                         条件 2
    
29.                         编辑框设置文本(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
    
30.                         条件 3
    
31.                         下拉框设置选项(y名称集合[i][j], 文件读配置("界面配置", y名称集合[i][j], y路径))
    
32.                         
    
33.                         条件 4//列表框
    
34.                         
    
35.                         字符串分割(文件读配置("界面配置",y名称集合[i][j],y路径), "|", y内容)
    
36.                         遍历(变量 l = 0; l < 数组大小(y内容); l++)
    
37.                             列表框增加文本(y名称集合[i][j],y内容[l])
    
38.                         结束
    
39.                         //消息框(y内容)
    
40.                     结束
    
41.                 否则
    
42.                     //写
    
43.                     选择(i)
    
44.                         条件 0
    
45.                         文件写配置("界面配置", y名称集合[i][j], 单选框获取状态(y名称集合[i][j]), y路径)
    
46.                         条件 1
    
47.                         文件写配置("界面配置", y名称集合[i][j], 复选框获取状态(y名称集合[i][j]), y路径)
    
48.                         条件 2
    
49.                         文件写配置("界面配置", y名称集合[i][j], 编辑框获取文本(y名称集合[i][j]), y路径)
    
50.                         条件 3
    
51.                         文件写配置("界面配置", y名称集合[i][j], 下拉框获取选项(y名称集合[i][j]), y路径)
    
52.                         
    
53.                         条件 4//列表框
    
54.                         遍历(变量 k = 0; k < 列表框获取选项个数(y名称集合[i][j]); k++)
    
55.                             如果(k < 1)
    
56.                                 y内容 = 列表框获取文本(y名称集合[i][j], k)
    
57.                             否则
    
58.                                 y内容 = y内容 & "|" & 列表框获取文本(y名称集合[i][j], k)
    
59.                             结束
    
60.                         结束
    
61.                         文件写配置("界面配置", y名称集合[i][j], y内容, y路径)
    
62.                     结束
    
63.                     
    
64.                 结束
    
65.                
    
66.             结束
    
67.         结束
    
68.     结束
    
69.     消息框("保存成功", "提示")
    
70. 结束

复制代码

1250015590

好她妈复杂啊，我还是老实的用我的读配置吧

8545212154

是有点复杂了，没必要去用二维数组，直接控件名加编号，用遍历就可以了，而且你这还差热键这些,不过值得鼓励一下，方法很多，看自己思路