#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("for SFC", 369, 403)
$Input1 = GUICtrlCreateInput("", 8, 16, 121, 21)
$Input2 = GUICtrlCreateInput("", 8, 56, 121, 21)
$Input3 = GUICtrlCreateInput("", 8, 96, 121, 21)
$Input4 = GUICtrlCreateInput("", 8, 136, 121, 21)
$Edit1 = GUICtrlCreateEdit ( "", 8, 184, 305, 162)
$Button1 = GUICtrlCreateButton("...", 232, 366, 26, 25); кнопка выбора файла для сохранения
$Input5 = GUICtrlCreateInput("", 8, 368, 217, 21); путь к файлу
GUICtrlSetData ($Input5, @ScriptDir & "\TextFile.txt")
$Button2 = GUICtrlCreateButton("Сохранить", 280, 368, 75, 25); кнопка сохранения
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_SelFileToSave()
Case $Button2
_SaveTextData()
EndSwitch
WEnd
Func _SaveTextData()
Local $sAllTxt = "" ; объявляем переменную куда собирается весь текст
$sInput1txt = GUICtrlRead ($Input1)
; проверка - если поле ввода не пустое, то объединяем его с переменной
If $sInput1txt <> "" Then $sAllTxt &= "Инпут 1: " & $sInput1txt & @CRLF
$sInput2txt = GUICtrlRead ($Input2)
If $sInput2txt <> "" Then $sAllTxt &= "Инпут 2: " & $sInput2txt & @CRLF
$sInput3txt = GUICtrlRead ($Input3)
If $sInput3txt <> "" Then $sAllTxt &= "Инпут 3: " & $sInput3txt & @CRLF
$sInput4txt = GUICtrlRead ($Input4)
If $sInput4txt <> "" Then $sAllTxt &= "Инпут 4: " & $sInput4txt & @CRLF
$sEdit1txt = GUICtrlRead ($Edit1)
If $sEdit1txt <> "" Then $sAllTxt &= "Эдит 1: " & $sEdit1txt & @CRLF
$sTxtFile = GUICtrlRead ($Input5); читаем путь к файлу для сохранения
If $sTxtFile <> "" Then ; если путь не пустой, то открываем файл для записи в конец файла
$hTxtFile = FileOpen ($sTxtFile, 1)
FileWrite ($hTxtFile, $sAllTxt)
FileClose ($hTxtFile)
MsgBox (0, "", "Готово!" & @CRLF & $sTxtFile)
Else
MsgBox (0, "", "Ошибка! Не указан путь сохранения.")
EndIf
EndFunc
Func _SelFileToSave(); функция выбора файла для сохранения
GUICtrlSetData ($Input5, ""); очищаем инпут
$sResult = FileSaveDialog ( "укажите текстовый файл", @ScriptDir, "Текстовые файлы (*.txt)", 2+16, "TextFile.txt")
GUICtrlSetData ($Input5, $sResult)
EndFunc |
