Что нового

Вывод списка файлов в GUI и дальнейшая работа с ним

Math

Новичок
Сообщения
85
Репутация
1
Всем спасибо, сам разобрался. :smile:
Может кому пригодится решение.

Как сделать так, что бы в графы FList и MList выводился список файлов из @ScriptDir & '\ini\FL\' и @ScriptDir & '\ini\ML\' соответственно.

При этом, после выделения одного файла в графе FList и одного файла в MList, и нажатия кнопки Add, в поле Result появлялось значение - <Выделенный файл из FList>:<Выделенный файл из MList>, счётчик k увеличивался на единицу, а в файл $TaskINI в секцию [task&$k] записывались строки: FList=<Выделенный файл из FList> и MList=<Выделенный файл из MList>.

Код:
#include <GUIConstantsEx.au3>
#Include <File.au3>
#Include <Array.au3>

Global $TaskINI = @ScriptDir & '\ini\tasks.ini' ;Задания

$FLSpisok = _FileListToArray(@ScriptDir & '\ini\FL\', '*', 1)
$MLSpisok = _FileListToArray(@ScriptDir & '\ini\ML\', '*', 1)
	
	$k = 0
	
    $TaskEditGUI = GUICreate("Task Edit", 446 ,600)
	
	
    $FL = GUICtrlCreateList("", 32, 40, 150, 255)
	$ML = GUICtrlCreateList("", 239, 40, 150, 255)
	
for $i = 1 to $FLSpisok[0]
	GUICtrlSetData($FL,$FLSpisok[$i])
Next

for $i = 1 to $MLSpisok[0]
	GUICtrlSetData($ML,$MLSpisok[$i])
Next

	$ButtonAdd = GUICtrlCreateButton ("Add", 68, 388, 120, 30)
	$ButtonOK =GUICtrlCreateButton ("OK", 256, 388, 120, 30)
	
	$Result = GUICtrlCreateList("Result",12, 428, 422, 160)

    GUICtrlSetLimit (-1, 255)
	
    GUISetState()
	
Do
	$msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
		GUIDelete($TaskEditGUI)
            Case $msg = $ButtonAdd
		$k = $k+1
		$INI1 = GUICtrlRead($FL)
		$INI2 = GUICtrlRead($ML)
		IniWrite($TaskINI, "Task"&$k, "FL", $INI1)
		IniWrite($TaskINI, "Task"&$k, "ML", $INI2)
		GUICtrlSetData($Result,$INI1 & " : " & $INI2)
        EndSelect
Until $msg = $GUI_EVENT_CLOSE
 
Верх