读写配置之常用控件，有不正确之处欢迎指出，或有更好... - TC官方合作论坛

空间读写配置测试
//可能会有代码不当之处,欢迎指正
//表格控件很复杂,读写配置只针特定情况
功能保存界面配置(路径)
//-------------------------------下拉框保存--------------------------------//
辅助.写配置("读写配置","下拉框",下拉框.得到选项("下拉框_测试"),路径)
//-------------------------------编辑框保存--------------------------------//
辅助.写配置("读写配置","编辑框",编辑框.获得文本("编辑框_测试"),路径)
//-------------------------------复选框保存--------------------------------//
辅助.写配置("读写配置","复选框",复选框.获得状态("复选框_测试"),路径)
//--------------------------------单选框保存-------------------------------//
变量内容
if(单选框.获得状态("单选框_测试1"))
内容 = "单选框_测试1"
else
if(单选框.获得状态("单选框_测试2"))
内容 = "单选框_测试2"
else
if(单选框.获得状态("单选框_测试3"))
内容 = "单选框_测试3"
else
内容 = ""
endif
endif
endif
辅助.写配置("读写配置","单选框",内容,路径)
//--------------------------列表框保存--------------------------------//
变量列表框列表
for(i = 0; i < 列表框.得到个数("列表框_测试"); i++)
if(i == 0)
列表框列表 = 列表框.获得文本("列表框_测试",i)
else
列表框列表 = 列表框列表&"|"&列表框.获得文本("列表框_测试",i)
endif
endfor
辅助.写配置("读写配置","列表框",列表框列表,路径)
//---------------------------滑块保存------------------------------//
辅助.写配置("读写配置","滑块",滑块.得到位置("滑块_测试"),路径)
//---------------------------浏览框保存----------------------------//
辅助.写配置("读写配置","浏览框",浏览框.获得("浏览框_测试"),路径)
//-----------------------日期框保存-----------------------------//
辅助.写配置("读写配置","日期框",日期框.获得文本("日期框_测试"),路径)
//--------------------------热键保存----------------------------//
变量返回键码,返回功能键,是否成功
是否成功 = 热键.获得("热键_测试",返回键码,返回功能键)
if(是否成功)
辅助.写配置("热键配置","键码1",返回键码,路径)
辅助.写配置("热键配置","功能键1",返回功能键,路径)
endif
热键.销毁("热键_测试")
热键.注册("热键_测试")
//----------------------表格保存--------------------------//
变量行内容,表格内容,返回行,返回列
表格.大小("表格_测试",返回行,返回列)
for(i = 1; i < 返回行; i++) //第一行不保存
for(j = 0; j < 返回列 ; j++)
if(j == 0)
行内容 = 表格.获得内容("表格_测试",i,j)
else
行内容 = 行内容&","&表格.获得内容("表格_测试",i,j)
endif
endfor
if(i==1)
表格内容 = 行内容
else
表格内容 = 表格内容&"|"&行内容
endif
endfor
辅助.写配置("读写配置","表格",表格内容,路径)
功能结束
功能导入界面配置(路径)
变量内容
//-----------------------读下拉框------------------------------//
内容 = 类型.转整型(辅助.读配置("读写配置","下拉框",路径))
下拉框.设置选项("下拉框_测试",内容)
//------------------------读编辑框----------------------------//
编辑框.设置文本("编辑框_测试",辅助.读配置("读写配置","编辑框",路径))
//-------------------------读复选框----------------------------//
内容 = 类型.转逻辑型(辅助.读配置("读写配置","复选框",路径))
复选框.选中("复选框_测试",内容)
//------------------------读单选框-------------------------------//
内容 = 辅助.读配置("读写配置","单选框",路径)
// 单选框.选中(内容,真) //在已经选择单选框的情况下,,又会选中另外一个,不建议使用!
if(内容 != "")
选择(内容)
条件 "单选框_测试1":
单选框.选中("单选框_测试1",真)
单选框.选中("单选框_测试2",假)
单选框.选中("单选框_测试3",假)
条件 "单选框_测试2":
单选框.选中("单选框_测试1",假)
单选框.选中("单选框_测试2",真)
单选框.选中("单选框_测试3",假)
条件 "单选框_测试3" :
单选框.选中("单选框_测试1",假)
单选框.选中("单选框_测试2",假)
单选框.选中("单选框_测试3",真)
选择结束
endif
//-----------------------读列表框---------------------------//
变量列表框数组,大小
内容 = 辅助.读配置("读写配置","列表框",路径)
if(内容 != "")
列表框.清空("列表框_测试")
if(字符串.查找字符串(内容,"|") != -1)
字符串.分割(内容,"|",列表框数组)
数组空间.大小(列表框数组,大小)
for(i = 0 ;i < 大小 ;i++ )
列表框.增加文本("列表框_测试",列表框数组[i])
endfor
else
列表框.增加文本("列表框_测试",内容)
endif
endif
//------------------------读滑块-------------------------//
内容 = 类型.转整型(辅助.读配置("读写配置","滑块",路径))
滑块.设置位置("滑块_测试",内容)
//-------------------------读浏览框-----------------//
内容 = 辅助.读配置("读写配置","浏览框",路径)
浏览框.设置("浏览框_测试",内容)
//-------------------------读日期框-----------------//
内容 = 辅助.读配置("读写配置","日期框",路径)
日期框.设置文本("日期框_测试",内容)
//------------------读热键----------------------//
变量返回键码,返回功能键
返回键码 = 辅助.读配置("热键配置","键码1",路径)
返回功能键 = 辅助.读配置("热键配置","功能键1",路径)
热键.设置("热键_测试",返回键码,返回功能键)
热键.销毁("热键_测试")
热键.注册("热键_测试")
//-----------------读表格--------------------------//
变量返回行,返回列,表格内容,表格数组,表格数组1,长度,长度1
表格内容 = 辅助.读配置("读写配置","表格",路径)
if(表格内容 != "")
if(字符串.查找字符串(表格内容,",") != -1)
if(字符串.查找字符串(表格内容,"|") != -1)
字符串.分割(表格内容,"|",表格数组)
数组空间.大小(表格数组,长度)
调试输出("长度="&长度)
表格.大小("表格_测试",返回行,返回列)
调试输出("返回行 = "&返回行)
if(返回行-1 > 长度)
for(i = 长度; i < 返回行 ; i++)
表格.删除行("表格_测试",i)
endfor
else
for(i = 0; i <=长度-返回行;i++)
表格.插入行("表格_测试","",-1)
endfor
endif
for(i = 0; i < 长度; i++) //第一行不随机
字符串.分割(表格数组[i],",",表格数组1)
数组空间.大小(表格数组1,长度1)
for(j = 0; j < 长度1 ; j++)
表格.设置内容("表格_测试",i+1,j,表格数组1[j])
endfor
endfor
else
字符串.分割(表格内容,",",表格数组1)
数组空间.大小(表格数组1,返回列)
for(j = 0; j < 返回列 ; j++)
表格.设置内容("表格_测试",1,j,表格数组1[j])
endfor
表格.大小("表格_测试",返回行,返回列)
for(i = 0 ; i < 返回行 ; i++)
表格.删除行("表格_测试",i)
endfor
endif
else
表格.设置内容("表格_测试",1,0,表格内容)
endif
endif
功能结束
功能按钮_保存配置_点击()
路径 = 文件.对话框(0, "配置文件(*.ini)|*.ini||")
调试输出("路径--"&路径)
if(路径 != "")
if(字符串.查找字符串(路径,".ini") == -1)
路径 = 路径&".ini"
endif
读写配置测试.保存界面配置(路径)
endif
功能结束
功能按钮_导入配置_点击()
路径 = 文件.对话框(1, "配置文件(*.ini)|*.ini||")
调试输出("路径--"&路径)
if(路径 != "")
if(字符串.查找字符串(路径,".ini") == -1)
路径 = 路径&".ini"
endif
读写配置测试.导入界面配置(路径)
endif
功能结束
功能初始化()
读写配置测试.表格初始化()
读写配置测试.列表框初始化()
功能结束
//测试用
功能列表框初始化()
for(i =0 ; i < 辅助.随机数(5,10);i++)
内容 = "测试"&辅助.随机数(1,9)
列表框.增加文本("列表框_测试",内容)
endfor
功能结束
//测试用
功能表格初始化()
变量返回行,返回列
表格.大小("表格_测试",返回行,返回列)
for(i = 1; i < 返回行; i++) //第一行不随机
for(j = 0; j < 返回列 ; j++)
表格.设置内容("表格_测试",i,j,辅助.随机数(-100,100))
endfor
endfor
功能结束
空间结束

复制代码