VermanVendetta13
Новичок
- Сообщения
- 147
- Репутация
- 0
Всем доброго времени суток!
Ну не будем тянуть кота за уши и сразу к делу. Старый школьный учитель меня попросил написать опросники для своих учеников. ( догадываюсь что в интернете наверняка много примеров и готовых программ, но мне эти знания не помешают на реальной практике)
Суть такова. Ученик. Запускает опрос, отвечает. Его ответы сохраняются в текстовый документ под другим форматом, что бы он не успел открыть и посмотреть где он ошибся)
Вот код, который я сумел для этого написать. Но в некоторых местах мне так и осталось не ясно что делать
Затем. Запускается открывашка и счетчик в одном лице
Вот до куда мне удалось добраться
Как наверняка заметно, в расшифровке моя задумка состоит в том, чтобы открыть папку сразу со всеми файлами "para".
Затем в мои планы входит по нажатию кнопки, все файлы автоматом меняют формат на "txt" а затем читаются по отдельности и записываются в таблице excel примерно следующим образом
Имя текстового документа без расширения | blablablabla
Количество верных ответов. | 10
Вот собственно мой сегодняшний вопрос. Как мне все это дело осуществить?
Буду благодарен любой помощи, будь то наглядный пример или совет
Заранее спасибо!
Я так же посмотрел вот эту тему, и мне кажется что она может подойти для решения вопроса со вторым кодом http://autoit-script.ru/index.php?topic=20800.msg122804;topicseen#new
Но к сожалению как и автор того поста, я мало что понял на этот счет
Ну не будем тянуть кота за уши и сразу к делу. Старый школьный учитель меня попросил написать опросники для своих учеников. ( догадываюсь что в интернете наверняка много примеров и готовых программ, но мне эти знания не помешают на реальной практике)
Суть такова. Ученик. Запускает опрос, отвечает. Его ответы сохраняются в текстовый документ под другим форматом, что бы он не успел открыть и посмотреть где он ошибся)
Вот код, который я сумел для этого написать. Но в некоторых местах мне так и осталось не ясно что делать
Код:
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
GUICreate("Анкетировщик 1.0.0", 500,500, @DesktopWidth/2-160, @DesktopHeight/2-45, -1, 0x00000018); WS_EX_ACCEPTFILES
$tipaDA1 = 'Правильно'
$nifiga1 = 'Неверно'
$iDAiNET1 = 'Относительно'
$file1 = GUICtrlCreateInput ( "Введите ФИО...", 10, 30, 300, 20)
$file2 = GUICtrlCreateInput ( "Введите Город...", 10, 60, 300, 20)
$file3 = GUICtrlCreateInput ( "Введите Школу и класс...", 10, 90, 300, 20)
; тут что то вроде вопроса
$CheckBox1 = GUICtrlCreateCheckbox( 'ДА', 10, 150, 50, 50)
$CheckBox1 = GUICtrlCreateCheckbox( 'НЕТ', 10, 200, 50, 50)
$CheckBox1 = GUICtrlCreateCheckbox( 'НЕ ЗНАЮ', 90, 150, 100, 50)
GUICtrlSetState(-1,$GUI_DROPACCEPTED)
$btn = GUICtrlCreateButton ("Готово", 400, 75, 60, 20)
GUISetState ()
While 1
Switch GUIGetMsg()
Case $btn
if BitAND( GUIctrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlRead($hren1)
Or Not BitAND( GUIctrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlRead($nifiga1)
Or Not BitAND( GUIctrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlRead($iDAiNET1)
; ТУТ Я НЕ СМОГ ТОЧНО ВЫРАЗИТЬ ЧТО ТРЕБУЕТСЯ СДЕЛАТЬ ПРОГРАММЕ. ТУТ НЕОБХОДИМО СДЕЛАТЬ ТАК:
; 1) ГАЛОЧКА НЕ СТОИТ - ПРОВЕРЯЕМ ДАЛЬШЕ - ГАЛОЧКА СТОИТ - ЗАПОМИНАЕМ
; 2) ГАЛОЧКА СТОИТ - ЗАПОМИНАЕМ - ДАЛЬШЕ НЕ ПРОВЕРЯЕМ
$Pass1 = GUICtrlRead($file1)
$Pass2 = GUICtrlRead($file2)
$Pass3 = GUICtrlRead($file3)
EndIf
GUIDelete()
ExitLoop
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
$Text = "" & $file1 & $file2 & $file3 & "" & @CRLF & _
;ЕСЛИ ОТМЕЧЕНО ДА ТО
"" & $tipaDA1 & ""
;ЕСЛИ ОТМЕЧЕНО НЕТ ТО
"" & $nifiga1 & ""
;ЕСЛИ ОТМЕЧЕНО НЕ ЗНАЮ ТО
"" & $iDAiNET1 & ""
FileWrite("nameschoolcity.para", $Text)Затем. Запускается открывашка и счетчик в одном лице
Вот до куда мне удалось добраться
Код:
#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)
If @error Then Exit
GUISetState()
; Тут ОН ДОЛЖЕН АВТОМАТИЧЕСКИ ПЕРЕИМЕНОВАТЬСЯ В TXTКак наверняка заметно, в расшифровке моя задумка состоит в том, чтобы открыть папку сразу со всеми файлами "para".
Затем в мои планы входит по нажатию кнопки, все файлы автоматом меняют формат на "txt" а затем читаются по отдельности и записываются в таблице excel примерно следующим образом
Имя текстового документа без расширения | blablablabla
Количество верных ответов. | 10
Вот собственно мой сегодняшний вопрос. Как мне все это дело осуществить?
Буду благодарен любой помощи, будь то наглядный пример или совет
Заранее спасибо!
Я так же посмотрел вот эту тему, и мне кажется что она может подойти для решения вопроса со вторым кодом http://autoit-script.ru/index.php?topic=20800.msg122804;topicseen#new
Но к сожалению как и автор того поста, я мало что понял на этот счет
это уже существенно упрощает задачу в первом случае....
