nibble74
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Skif_off
Вот для наглядности часть скрипта:
Код: $hSearch = FileFindFirstFile("*.iso")
$hFile = FileOpen("test.txt", 2)
While 1
$NextFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
FileWriteLine($hFile, $NextFile)
WEnd
FileClose($hSearch)
FileClose($hFile)
$hFile = FileOpen('test.txt')
If FileReadLine($hFile, 1) Then $Iso1 = StringTrimRight(FileReadLine($hFile, 1), 4)
If FileReadLine($hFile, 2) Then $Iso2 = StringTrimRight(FileReadLine($hFile, 2), 4)
FileClose($hFile)
$sFile = $Iso1
$hGUI = GUICreate("", 530, 290, -1, -1, 0x00040000)
$TreeView = GUICtrlCreateTreeView(15, 15, 505, 215, 0x0020+0x0200+0x1000, 0x00000200)
$id1 = GUICtrlCreateTreeViewItem(" " & $Iso1, $TreeView)
$id2 = GUICtrlCreateTreeViewItem(" " & $Iso2, $TreeView)
; >>
$Btn = GUICtrlCreateButton("Распаковать", 210, 234, 100, -1, 0x00800000)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $id1
$sFile = $Iso1
Case $id2
$sFile = $Iso2
Case $Btn
MsgBox(0, "TEST", $sFile)
EndSwitch
WEnd
|
В Case $Btn присутствуют несколько команд, кроме того в Gui есть ещё и GuiCtrlCreateCheckbox-ы, вообщем команд там несколько и везде подставляется $sFile.
В прошлом сообщении забыл написать, что имена нужны без расширений.
Вот и проблема возникла потому, что количество образов может варьироваться.
Мозг кипит уже, не знаю как бы это дело скомпоновать.
И да на счёт массива идея хороша конечно. |
Всего записей: 17 | Зарегистр. 30-12-2013 | Отправлено: 14:21 07-08-2018 | Исправлено: nibble74, 14:27 07-08-2018 |
|
