TC官方合作论坛

标题: 玩了将近半年TC了.共享一个快速保存配置的代码 [打印本页]
作者: warcraftii    时间: 2014-8-24 00:01
标题: 玩了将近半年TC了.共享一个快速保存配置的代码
本帖最后由 warcraftii 于 2014-8-24 00:09 编辑

个人原创 谈不上一键保存. 但是比自己每个控件都手动敲代码要好多了. 不说多了,分享一下.


控件的命名规则必须如此不然没法使用:   控件类型_控件名称_子界面名称
例子1(控件在主窗口上,不是在子窗口的):比如一个用来记录账号的编辑框       编辑框_账号   就这样子.不需要最后的_子窗口
例子2:(控件在子界面上) 假如子界面名称叫"子界面1"那么就是      编辑框_账号_子界面1 这样必须加上子界面名称
另外控件必须用控件类型开头.不然不好判断类型 下面是代码 分3步
1.     加入控件到控件组(控件名称)  把你界面上的控件一个个的加入
2.     全部加入完了用 一键保存配置()  保存配置 .保存路径是程序目录下 名称叫配置.ini
3.     界面载入的时候使用 一键读取配置() 就可以全部读出来啦.
另外有一些不常用的控件没有加入,只加入了常用的.需要的自己搞
最后,打个广告 老瓜工作室 接辅助脚本制作 联系QQ 194527277
  1. 空间 快速保存配置

  3. 控件组 = 数组[0]

  5. 功能 一键读取配置()
  6.         path = 系统.获取程序路径() & "配置.ini"
  7.         如果( 文件.是否存在(path) == 假)
  8.                 返回 假
  9.         如果结束
  10.         str
  11.         字符串.分割(文件.读文件(path),"\r\n",str)
  12.         len
  13.         数组空间.大小(str,len)
  14.         遍历(i=0;i<len;i++)
  15.                 如果( 字符串.查找字符串(str[i],"=") >= 0)
  16.                         tmp,tlen,父窗口
  17.                         字符串.分割(str[i],"_",tmp)
  18.                         控件类型 = tmp[0]
  19.                         控件名 = 字符串.截取(str[i],0,字符串.查找字符串(str[i],"="))
  20.                         数组空间.大小(tmp,tlen)
  21.                         如果(tlen >= 3)
  22.                                 父窗口 = tmp[2]
  23.                         否则
  24.                                 父窗口 = ""
  25.                         如果结束
  26.                         选择(控件类型)
  27.                                 条件 "编辑框":          //编辑框:设置内容
  28.                                 tmp = 辅助.读配置(控件名,控件名,path)
  29.                                 编辑框.设置文本(控件名,tmp,父窗口)
  30.                                 
  31.                                 条件 "浏览框":         //浏览框:设置内容
  32.                                 tmp = 辅助.读配置(控件名,控件名,path)
  33.                                 浏览框.设置(控件名,tmp,父窗口)
  34.                                 
  35.                                 条件 "复选框":        //复选框:设置选中状态
  36.                                 tmp = 辅助.读配置(控件名,控件名,path)
  37.                                 如果(tmp == "-1")
  38.                                         复选框.选中(控件名,真,父窗口)
  39.                                 否则
  40.                                         复选框.选中(控件名,假,父窗口)
  41.                                 如果结束
  42.                                 
  43.                                 条件 "下拉框":        //下拉框:保存选中序号
  44.                                 tmp = 辅助.读配置(控件名,控件名,path)
  45.                                 下拉框.设置选项(控件名,tmp,父窗口)
  46.                                 
  47.                                 条件 "列表框":        //列表框:保存选中序号
  48.                                 tmp = 辅助.读配置(控件名,控件名,path)
  49.                                 列表框.设置选项(控件名,tmp,父窗口)
  50.                         选择结束
  51.                 如果结束
  52.         遍历结束
  53.         
  54. 功能结束



  58. 功能 一键保存配置()
  59.         len
  60.         数组空间.大小(控件组,len)
  61.         path = 系统.获取程序路径() & "配置.ini"
  62.         遍历(i=0;i<len;i++)
  63.                 str,父窗口,tlen
  64.                 字符串.分割(控件组[i],"_",str)
  65.                 数组空间.大小(str,tlen)
  66.                 控件类型 = str[0]
  67.                 控件名 = str[0] &"_"& str[1]
  68.                 如果(tlen >= 3)
  69.                         父窗口 = str[2]
  70.                 否则
  71.                         父窗口 = ""
  72.                 如果结束
  73.                
  74.                 选择(控件类型)
  75.                         条件 "编辑框":                //编辑框:保存内容
  76.                         tmp = 编辑框.获得文本(控件名,父窗口)
  77.                         辅助.写配置(控件名,控件名,tmp,path)
  78.                         
  79.                         条件 "浏览框":                //浏览框:保存内容
  80.                         tmp = 浏览框.获得(控件名,父窗口)
  81.                         辅助.写配置(控件名,控件名,tmp,path)
  82.                         
  83.                         条件 "复选框":                 //复选框:保存选中状态
  84.                         tmp = 复选框.获得状态(控件名,父窗口)
  85.                         辅助.写配置(控件名,控件名,tmp,path)
  86.                         
  87.                         条件 "下拉框":                 //下拉框:保存选中项的序号
  88.                         tmp = 下拉框.得到选项(控件名,父窗口)
  89.                         辅助.写配置(控件名,控件名,tmp,path)
  90.                         
  91.                         条件 "列表框":                //列表框:保存选中项的序号
  92.                         tmp = 列表框.得到选项(控件名,父窗口)
  93.                         辅助.写配置(控件名,控件名,tmp,path)
  94.                 选择结束
  95.         遍历结束
  96.         
  97. 功能结束


  100. 功能 增加控件到控件组(控件名称)
  101.         数组空间.增加(控件组,控件名称,1)
  102.         
  103. 功能结束
  104. 空间结束
复制代码







作者: rainshine    时间: 2014-8-24 00:24
支持一下。
作者: ltpccj    时间: 2014-8-24 00:40
分享下原程序呗。谢谢



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1