内容 = 编辑框获取文本("编辑框_内容")

sjfff99

内容 = 编辑框获取文本("编辑框_内容")
    if(内容 != 0)
        文件写配置("喊话内容","喊话",内容,路径&"\\data\\config.ini")
    else
        traceprint("文本内容=NULL")
    end

这里 编辑框获取文本("编辑框_内容")  只能得到一行的。
获取多长文本要怎么处理。 。。。。。。。。。。

个人神话

1，编辑框 设置不允许多行
2，加一个下拉控件 设置1=喊话1，2=喊话2 等等
3，文件写配置("喊话内容","1",内容,路径&"\\data\\config.ini")
文件写配置("喊话内容","2",内容,路径&"\\data\\config.ini")

如果全部都喊话，就循环


方法2

如果真的打算写配置只写一行的话，可以如下写：

变量 喊话="收购电冰箱|收购洗衣机|收购电视机"
文件写配置("喊话内容","喊话",喊话,路径&"\\data\\config.ini")
变量 喊话数组
字符串分割(文件读配置("喊话内容","喊话",路径&"\\data\\config.ini"),"|",喊话数组)
调试输出(喊话数组[0])

sjfff99

。。。没人回？？

千叶de悠一

xml文件解析

sjfff99

没有搞定。。在帮看下。。
[喊话内容]
喊话=array("0"="11111","1"="2222","2"="33")
[延长时间]
延时=10
-------------------------------------------------------------------------------
功能 保存配制()
    var 内容 = 数组(10)
    var  路径 = 系统获取工作路径()
   
    文件夹创建(路径&"\\data")
   
    字符串分割((编辑框获取文本("编辑框_内容")),"\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)
   
-------------------------------------------------------------------
array("0"="11111","1"="2222","2"="33")
它怎么会写成这。。我只要写入值不要数组这些的。

sjfff99

功能 读取配制()
    var 内容 = 数组(10)
    var  路径 = 系统获取工作路径()
   
    //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
这里不会写入编辑框。。