TC官方合作论坛

标题: 初始化界面配置，轻松设置一键保存，真正的简单配置...... [打印本页]

---

作者: 87010068    时间: 2016-11-27 23:37
标题: 初始化界面配置，轻松设置一键保存，真正的简单配置......


初始化界面配置，轻松设置一键保存，真正的简单配置，免费分享给大家了......保存配置按照例子填写就行了，初始化调用载入配置()，就可以了

例：
说明：保存配置参数为("控件,控件名|.......")


功能  测试()
    保存配置("浏览框,浏览框0")
    保存配置("编辑框,编辑框0|热键,热键0|单选框,单选框0")
结束
功能  初始化()
     载入配置()
结束

1. 功能 保存配置(控件组)
   
2.    
   
3.     变量 n,a,b,z=数组()
   
4.     n=字符串分割(控件组,"|",a)
   
5.     遍历(变量 i=0;i<n;i++)
   
6.         z[i]=0
   
7.         字符串分割(a[i],",",b)
   
8.         如果(b[0]=="热键")
   
9.             变量 键值,键码,功能键
   
10.             热键获取键码(b[1],键码,功能键)
    
11.             循环(真)
    
12.                 变量 返回值
    
13.                 变量 内容=文件读配置("保存配置","控件"&z[i],进程路径&"配置文件.ini")
    
14.                 如果(内容=="")
    
15.                     热键销毁(b[1])
    
16.                     文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&键码&","&功能键,进程路径&"配置文件.ini")
    
17.                     热键注册(b[1])
    
18.                     跳出
    
19.                 否则
    
20.                     字符串分割(内容,"|",返回值)
    
21.                     字符串分割(返回值[2],",",键值)
    
22.                     如果(b[0]==返回值[0]&&b[1]==返回值[1]&&(键值[0]!=键码||键值[0]!=功能键))
    
23.                         热键销毁(b[1])
    
24.                         文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&键码&","&功能键,进程路径&"配置文件.ini")
    
25.                         热键注册(b[1])
    
26.                         跳出
    
27.                     结束
    
28.                 结束
    
29.                 z[i]++
    
30.             结束  
    
31.         否则如果(b[0]=="编辑框")
    
32.             循环(真)
    
33.                 变量 返回值
    
34.                 变量 内容=文件读配置("保存配置","控件"&z[i],进程路径&"配置文件.ini")
    
35.                 如果(内容=="")
    
36.                     文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&字符串替换(编辑框获取文本(b[1]),"|",","),进程路径&"配置文件.ini")
    
37.                     跳出
    
38.                 否则
    
39.                     字符串分割(内容,"|",返回值)
    
40.                     如果(b[0]==返回值[0]&&b[1]==返回值[1])
    
41.                         文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&字符串替换(编辑框获取文本(b[1]),"|",","),进程路径&"配置文件.ini")
    
42.                         跳出
    
43.                     结束
    
44.                 结束
    
45.                 z[i]++
    
46.             结束
    
47.         否则如果(b[0]=="浏览框")
    
48.             循环(真)
    
49.                 变量 返回值
    
50.                 变量 内容=文件读配置("保存配置","控件"&z[i],进程路径&"配置文件.ini")
    
51.                 如果(内容=="")
    
52.                     文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&字符串替换(浏览框获取文本(b[1]),"|",","),进程路径&"配置文件.ini")
    
53.                     跳出
    
54.                 否则
    
55.                     字符串分割(内容,"|",返回值)
    
56.                     如果(b[0]==返回值[0]&&b[1]==返回值[1])
    
57.                         文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&字符串替换(浏览框获取文本(b[1]),"|",","),进程路径&"配置文件.ini")
    
58.                         跳出
    
59.                     结束
    
60.                 结束
    
61.                 z[i]++
    
62.             结束
    
63.         否则如果(b[0]=="下拉框")
    
64.             循环(真)
    
65.                 变量 返回值
    
66.                 变量 内容=文件读配置("保存配置","控件"&z[i],进程路径&"配置文件.ini")
    
67.                 如果(内容=="")
    
68.                     文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&下拉框获取选项(b[1]),进程路径&"配置文件.ini")
    
69.                     跳出
    
70.                 否则
    
71.                     字符串分割(内容,"|",返回值)
    
72.                     如果(b[0]==返回值[0]&&b[1]==返回值[1])
    
73.                         文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&下拉框获取选项(b[1]),进程路径&"配置文件.ini")
    
74.                         跳出
    
75.                     结束
    
76.                 结束
    
77.                 z[i]++
    
78.             结束
    
79.         否则如果(b[0]=="复选框")
    
80.             循环(真)
    
81.                 变量 返回值
    
82.                 变量 内容=文件读配置("保存配置","控件"&z[i],进程路径&"配置文件.ini")
    
83.                 如果(内容=="")
    
84.                     文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&复选框获取状态(b[1]),进程路径&"配置文件.ini")
    
85.                     跳出
    
86.                 否则
    
87.                     字符串分割(内容,"|",返回值)
    
88.                     如果(b[0]==返回值[0]&&b[1]==返回值[1])
    
89.                         文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&复选框获取状态(b[1]),进程路径&"配置文件.ini")
    
90.                         跳出
    
91.                     结束
    
92.                 结束
    
93.                 z[i]++
    
94.             结束
    
95.         否则如果(b[0]=="单选框")
    
96.             循环(真)
    
97.                 变量 返回值
    
98.                 变量 内容=文件读配置("保存配置","控件"&z[i],进程路径&"配置文件.ini")
    
99.                 如果(内容=="")
    
100.                     文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&单选框获取状态(b[1]),进程路径&"配置文件.ini")
     
101.                     跳出
     
102.                 否则
     
103.                     字符串分割(内容,"|",返回值)
     
104.                     如果(b[0]==返回值[0]&&b[1]==返回值[1])
     
105.                         文件写配置("保存配置","控件"&z[i],b[0]&"|"&b[1]&"|"&单选框获取状态(b[1]),进程路径&"配置文件.ini")
     
106.                         跳出
     
107.                     结束
     
108.                 结束
     
109.                 z[i]++
     
110.             结束
     
111.         结束  
     
112.     结束
     
113.    
     
114. 结束
     
115. 
     
116. 功能 载入配置()
     
117.    
     
118.     变量 数量=0
     
119.     循环(真)
     
120.         变量 内容=文件读配置("保存配置","控件"&数量,进程路径&"配置文件.ini")
     
121.         如果(内容=="")
     
122.             跳出
     
123.         否则
     
124.             变量 返回值
     
125.             字符串分割(内容,"|",返回值)
     
126.             如果(返回值[0]=="热键")
     
127.                 变量 键值,键码,功能键
     
128.                 字符串分割(返回值[2],",",键值)
     
129.                 热键获取键码(返回值[1],键码,功能键)
     
130.                 如果(键值[0]!=键码&&键值[1]!=功能键)
     
131.                     热键设置键码(返回值[1],键值[0],键值[1])
     
132.                     热键注册(返回值[1])  
     
133.                 结束  
     
134.             否则如果(返回值[0]=="编辑框")
     
135.                 编辑框设置文本(返回值[1],字符串替换(返回值[2],",","|"))
     
136.             否则如果(返回值[0]=="浏览框")
     
137.                 浏览框设置文本(返回值[1],字符串替换(返回值[2],",","|"))
     
138.             否则如果(返回值[0]=="下拉框")
     
139.                 下拉框设置选项(返回值[1],返回值[2])
     
140.             否则如果(返回值[0]=="复选框")
     
141.                 复选框设置状态(返回值[1],返回值[2])
     
142.             否则如果(返回值[0]=="单选框")
     
143.                 单选框设置状态(返回值[1],返回值[2])
     
144.             结束
     
145.         结束
     
146.         数量++
     
147.     结束
     
148.    
     
149. 结束

复制代码

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1