чтение INI файла через компонент Edit

[Black_Night]

Доброго здоровья
можете подкинуть скрипт чтения INI файла в компоненте Edit сам делал, но переносить текст не удаётся...

Заранее благодарен! С уважением!

 

[Viktor1703]

Что за компонент Edit? Может элемент окна?

Если да то вот:

#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>

Global $sFileIni = @ScriptDir & '\test.ini'

$hForm = GUICreate('', 600, 400)
$Input = GUICtrlCreateEdit('', 20, 20, 200, 200)
$button = GUICtrlCreateButton('Button', 20, 230, 80, 20)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
		Case $button
			$Key1 = IniRead($sFileIni, 'test', 'one', '')
			$Key2 = IniRead($sFileIni, 'test', 'two', '')
            GUICtrlSetData($Input, $Key1 & @CRLF & $Key2)	
    EndSwitch
WEnd

Файл test.ini

[test]
one=1
two=2

 

[Zaramot]

ТАк?

Global $INI

$Form1 = GUICreate("INI Editor", 623, 444, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 0, 42, 622, 401)
$Open = GUICtrlCreateButton("Открыть INI файл", 8, 8, 130, 25)
$Save = GUICtrlCreateButton("Созранить именения", 140, 8, 130, 25)
GUISetState()

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $Open
			$INI = FileOpenDialog('Choose INI file', '', 'INI File (*.ini)', '', '', GUICreate(''))
			If Not @error Then GUICtrlSetData($Edit1, FileRead($INI))
		Case $Save
			$OpenINI = FileOpen($INI, 2)
			FileWrite($OpenINI, GUICtrlRead($Edit1))
			FileClose($OpenINI)
	EndSwitch
WEnd

 

[Black_Night]

Zaramot, примерно так, спасибо, я подкорректировал!