nibble74
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AZJIO
Русская справка есть у меня, только не слита с оригиналом. Если что надо я просто подставляю путь #include "C:\Program Files (x86)\AutoIt3\Help\Include\FileOperations.au3"
Цитата:| И ещё не пойму зачем GUICtrlCreateTreeViewItem если получаем обычный список "List"? |
Вот этот твой вопрос я не понял.
Как же без GUICtrlCreateTreeViewItem ?
Ну да ладно, вроде всё получилось вот так:
Код: #include <File.au3>
$aFileList = _FileListToArray(@ScriptDir, '*.iso', 1, False)
If @error Then Exit
$hGUI = GUICreate("", 537, 290, -1, -1, 0x00040000)
$TreeView = GUICtrlCreateTreeView(15, 15, 505, 215, 0x0020 + 0x0200 + 0x1000, 0x00000200)
Global $aID[$aFileList[0] + 1]
For $i = 1 To $aFileList[0]
$aID[$i] = GUICtrlCreateTreeViewItem($aFileList[$i], $TreeView)
Next
$Btn = GUICtrlCreateButton("Распаковать", 210, 234, 100, -1, 0x00800000)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $Btn
$item = GUICtrlRead($TreeView)
If $item = 0 Then
MsgBox(64, "Сообщение", "Нет выделенных", 0, $hGUI)
Else
$text = GUICtrlRead($item, 1)
If $text == "" Then
MsgBox(16, "Ошибка", "Ошибка при поиске инфо о пункте", 0, $hGUI)
Else
ConsoleWrite('"' & @ScriptDir & '\' & StringRegExpReplace($text, '.iso', '') & '"')
EndIf
EndIf
EndSwitch
WEnd
|
Использую _FileListToArray в GUI список получается с расширением, а в командах расширение буду убирать так StringRegExpReplace.
Вообщем получается на выходе имя файла без расширения и без переноса строки. |
