anchie 发表于 2010-8-8 18:36:31

关于EDIT控件的问题请教[已解决]

本帖最后由 anchie 于 2010-8-9 08:31 编辑



问题描述,读取标准配置文件(*.ini)中某个节中的所有关键字或值
现在我是读取出来了 问题是我现在要怎么修改EDIT中的这些值后保存到INI文本中
请指教


<源码>
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("guioneventmode",1)

Dim $var = IniReadSection(@ScriptDir & "\config.ini","config")

$title = GUICreate("", 338, 269, -1, -1)

$Button1 = GUICtrlCreateButton("修改", 168, 232, 75, 25)
$Button2 = GUICtrlCreateButton("退出", 256, 232, 75, 25)

$Edit1 = GUICtrlCreateEdit("", 8, 8, 321, 209)
For $i = 1 To $var
        $read = IniRead(@ScriptDir & "\config.ini","config",$var[$i],"")
        GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&$read&@CRLF)
Next

GUISetState()

GUISetOnEvent($gui_event_close,"_GUI")
GUICtrlSetOnEvent($Button1,"_GUI")
GUICtrlSetOnEvent($Button2,"_GUI")


While 1
        Sleep(500)
WEnd

Func _GUI()
        Switch @GUI_CtrlId
                Case $gui_event_close
                        Exit
                Case $Button1
                        ;<修改EDIT内容的表达式>
                Case $Button2
                        Exit
        EndSwitch
EndFunc

INI配置文件


x1 = 111111111111111111
x2 = 222222222222222222
x3 = 333333333333333333
x4 = 444444444444444444
x5 = 555555555555555555
x6 = 666666666666666666
x7 = 777777777777777777
x8 = 888888888888888888
x9 = 999999999999999999

xayle 发表于 2010-8-8 20:26:39

帮助中的例子 + 论坛搜索
        For $i = 1 To UBound($var) - 1
                $var[$i] = _GUICtrlEdit_GetLine($Edit1, $i - 1) ; 更改某些数据
        Next
        IniWriteSection("config.ini", "config", $var)

xayle 发表于 2010-8-9 01:01:35

忘记了, 必须的脚本文件
#Include <GuiEdit.au3>
页: [1]
查看完整版本: 关于EDIT控件的问题请教[已解决]