字符串分割((编辑框获取文本("编辑框_内容")),"\r\n",内容)
if(内容 != 0)
文件写配置("喊话内容","喊话",内容,路径&"\\data\\config.ini")
end
var time = 编辑框获取文本("编辑框_延时")
if(time != 0)
文件写配置("延长时间","延时",time,路径&"\\data\\config.ini")
else
messagebox("这里不加延时会很卡")
end
结束
------------------------
功能 读取配制()
var 内容 = 数组(10)
var 路径 = 系统获取工作路径()
var len=字符串分割((文件读配置("喊话内容","喊话",路径&"\\data\\config.ini")),"\r\n",内容)
//编辑框设置文本("编辑框_内容",内容)
for(var i = 0; i < len; i++)
编辑框设置文本("编辑框_内容",内容[i])
end
var time = 文件读配置("延长时间","延时",路径&"\\data\\config.ini")
编辑框设置文本("编辑框_延时",time)
//var len=字符串分割((文件读配置("喊话内容","喊话",路径&"\\data\\config.ini")),",",内容) //读这里不会读入数组。。分割不了?。。
内容=文件读配置("喊话内容","喊话",路径&"\\data\\config.ini")
var len = 数组大小(内容)
traceprint(内容) //这里输出的内容是正确的.输出>>"array("0"="1111","1"="2222","2"="333")" 行号:82 文件:e:\roblm\自动喊话\自动喊话\自动喊话.t
//编辑框设置文本("编辑框_内容",内容)
for(var i = 0; i < len; i++)
编辑框设置文本("编辑框_内容",内容&"\r\n")
end
var time = 文件读配置("延长时间","延时",路径&"\\data\\config.ini")
编辑框设置文本("编辑框_延时",time)
结束
-----------------------
for(var i = 0; i < len; i++)
编辑框设置文本("编辑框_内容",内容&"\r\n")
end
这里不会写入编辑框。。