VermanVendetta13
Новичок
- Сообщения
- 147
- Репутация
- 0
Какое-то время назад, ребята с форума помогли мне с программой "Слайдшоу" которое листает фото из выбранной папки, но к сожалению сейчас я попробовал запустить программу и она не смогла найти ни одной фотографии вот код
вот, на форуме ничего с похожей проблемой не нашел, и это пол беды
я решил взять за основу к другому скрипту FileSelectFolder. Но так же он совершенно не ищет файлы
и кстати, хотел бы попросить дописать его
там где взято в рамочку, необходимо сделать так, чтобы помимо подсчета всех определенно заданых символов открвывался отдельно MsgBox такого вида
____________________________
| Имя файла без расширения Х |
|__________________________ |
|Ответов с 1 баллом |
| 10 |
|___________________________|
____________________________
| Имя файла без расширения Х |
|__________________________ |
|Ответов с 2 баллами |
| 10 |
|___________________________|
____________________________
| Имя файла без расширения Х |
|__________________________ |
|ОШИБОК |
| 10 |
|___________________________|
Открыться они должны для каждого файла отдельно
как сделать текст с помощью Label я знаю, конкретно интересует отдельность и как назвать MsgBox Именем файла
На форуме, я к сожалению подобных вещей не обнаружил и прошу помочь мне
Заранее спасибо
Код:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
$hGui = GUICreate('Функция FileSelectFolder')
$iButton = GUICtrlCreateButton('-', 10, 10, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', 4, 0)
GUISetState()
While 1
Switch GUIGetMsg()
Case $iButton
$sPath = FileSelectFolder('Выберите папку', '', 3, @DesktopDir, $hGui)
If @error Or Not StringInStr(FileGetAttrib($sPath), "D") Then ContinueLoop
#include <GuiConstantsEx.au3>
#include <File.au3>
$Folder = $sPath
$Files = _FileListToArray($Folder, "*.jpg", 1, True)
If @error Then Exit
Global $Width = 960, $Height = 600, $i = 1, $Pic
$GUI = GUICreate("Example", $Width, $Height)
$Pic = GUICtrlCreatePic($Files[1], 0, 0, $Width, $Height)
GUISetState()
Do
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_EVENT_PRIMARYDOWN
$i += 1
If $i > $Files[0] Then $i = 1
GUICtrlDelete($Pic)
$Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
Case $GUI_EVENT_SECONDARYDOWN
$i -= 1
If $i < 1 Then $i = $Files[0]
GUICtrlDelete($Pic)
$Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
EndSwitch
Until 0
Case $GUI_EVENT_CLOSE
GUIDelete($hGui)
ExitLoop
EndSwitch
WEnd
вот, на форуме ничего с похожей проблемой не нашел, и это пол беды
я решил взять за основу к другому скрипту FileSelectFolder. Но так же он совершенно не ищет файлы
и кстати, хотел бы попросить дописать его
Код:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <Word.au3>
#include <File.au3>
; Пример 1
$hGui = GUICreate("Дешифратор анкет 1.0.0", 500,500, @DesktopWidth/2-160, @DesktopHeight/2-45, -1, 0x00000018)
$iButton = GUICtrlCreateButton('-', 10, 10, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', 4, 0)
GUISetState()
While 1
Switch GUIGetMsg()
Case $iButton
$sPath = FileSelectFolder('Выберите папку', '', 3, @DesktopDir, $hGui)
If @error Or Not StringInStr(FileGetAttrib($sPath), "D") Then ContinueLoop
$Folder = $sPath
$Files = _FileListToArray($Folder, "\*.para", 1, True) ; НЕ МОЖЕТ НАЙТИ ТАКОЕ РАСШИРЕНИЕ А ТАКЖЕ И ДРУГИЕ ИЗВЕСТНЫЕ
FileMove($sPath "\*.para", $sPath "\*.txt")
If @error Then Exit
GUISetState()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$hFile = FileOpen($Folder "\*.txt", 0) ;
$sText = FileRead($hFile) ;
FileClose($hFile) ;
StringReplace($sText, '1', '') ;
MsgBox(0, "Ответов с 1 баллом", @Extended) ;
;
StringReplace($sText, '2', '') ;
MsgBox(0, "Ответов с 2 баллами", @Extended) ;
;
StringReplace($sText, '0', '') ;
MsgBox(0, "ОШибок", @Extended) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $GUI_EVENT_CLOSE
GUIDelete($hGui)
ExitLoop
EndSwitch
WEnd
там где взято в рамочку, необходимо сделать так, чтобы помимо подсчета всех определенно заданых символов открвывался отдельно MsgBox такого вида
____________________________
| Имя файла без расширения Х |
|__________________________ |
|Ответов с 1 баллом |
| 10 |
|___________________________|
____________________________
| Имя файла без расширения Х |
|__________________________ |
|Ответов с 2 баллами |
| 10 |
|___________________________|
____________________________
| Имя файла без расширения Х |
|__________________________ |
|ОШИБОК |
| 10 |
|___________________________|
Открыться они должны для каждого файла отдельно
как сделать текст с помощью Label я знаю, конкретно интересует отдельность и как назвать MsgBox Именем файла
На форуме, я к сожалению подобных вещей не обнаружил и прошу помочь мне
Заранее спасибо