Что нового

[Данные, строки] редактор конфигурационных файлов

damien2008

Осваивающий
Сообщения
178
Репутация
34
Редактора конфигурационных файлов.

Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>

$Danny_1 ="(для сохранения 1)"
$Danny_2 ="(для сохранения 2)"
$Danny_3 ="(для сохранения 3)"

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 363, 185, 219, 141)
$Label1 = GUICtrlCreateLabel("Данные 1", 16, 24, 134, 17)
$Input1 = GUICtrlCreateInput("Значение 1", 176, 24, 161, 21)
$Label2 = GUICtrlCreateLabel("Данные 2", 16, 57, 152, 17)
$Input2 = GUICtrlCreateInput("Значение 2", 176, 57, 161, 21)
$Label3 = GUICtrlCreateLabel("Данные 3", 16, 89, 152, 17)
$Input3 = GUICtrlCreateInput("Значение 3", 176, 89, 161, 21)
$Button1 = GUICtrlCreateButton("Записать", 264, 128, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
           Exit
       Case $Button1
         _Save()
        EndSwitch
WEnd

Func _Save()
$sZnach1 = GuiCtrlRead($Input1)
$sZnach2 = GuiCtrlRead($Input2)
$sZnach3 = GuiCtrlRead($Input3)
$hFile = FileOpen($sZnach1 &" "& $sZnach2&".txt",256)
If @error Then MsgBox(16,"Ошибка","Ошибка создания файла")
FileWrite($hFile, "Начало" & @CRLF & _
$Danny_1 & ":" & $sZnach1 & @CRLF & _
$Danny_2 & ":" & $sZnach2 & @CRLF & _
$Danny_3 & ":" & $sZnach3 & @CRLF & _
"Конец")
FileClose($hFile)
EndFunc


при нажатии на кнопку "Записать" в папке со скриптом создавался файл вида: "Значение1 Значение2.txt" - кодировка UTF-8 без BOM, а содержимое такое:

Код:
Начало
(для сохранения 1):Значение1
(для сохранения 2):Значение2
(для сохранения 3):Значение3

Конец
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
Код:
$sZnach1 = GuiCtrlRead($Input1)
$sZnach2 = GuiCtrlRead($Input2)
$sZnach3 = GuiCtrlRead($Input3)
$hFile = FileOpen($sZnach1 &" "& $sZnach2&".txt",256)
FileWrite($hFile, "Начало" & @CRLF & _
$Danny_1 & ":" & $sZnach1 & @CRLF & _
$Danny_2 & ":" & $sZnach2 & @CRLF & _
$Danny_3 & ":" & $sZnach3 & @CRLF & _
"Конец")
FileClose($hFile)

Так? Лучше бы привел код, а мы бы разбирались...
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
Добавь после этой сточки
Код:
$hFile = FileOpen($sZnach1 &" "& $sZnach2&".txt",256)


Эту

Код:
If @error Then MsgBox(16,"Ошибка","Ошибка создания файла")


P.S. И что, у тебя и код в скрипте на русском хочешь сказать?
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>

$Danny_1 ="(для сохранения 1)"
$Danny_2 ="(для сохранения 2)"
$Danny_3 ="(для сохранения 3)"

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 363, 185, 219, 141)
$Label1 = GUICtrlCreateLabel("Данные 1", 16, 24, 134, 17)
$Input1 = GUICtrlCreateInput("Значение 1", 176, 24, 161, 21)
$Label2 = GUICtrlCreateLabel("Данные 2", 16, 57, 152, 17)
$Input2 = GUICtrlCreateInput("Значение 2", 176, 57, 161, 21)
$Label3 = GUICtrlCreateLabel("Данные 3", 16, 89, 152, 17)
$Input3 = GUICtrlCreateInput("Значение 3", 176, 89, 161, 21)
$Button1 = GUICtrlCreateButton("Записать", 264, 128, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
           Exit
       Case $Button1
         _Save()
        EndSwitch
WEnd

Func _Save()
$sZnach1 = GuiCtrlRead($Input1)
$sZnach2 = GuiCtrlRead($Input2)
$sZnach3 = GuiCtrlRead($Input3)
$hFile = FileOpen($sZnach1 &" "& $sZnach2&".txt",256)
If @error Then MsgBox(16,"Ошибка","Ошибка создания файла")
FileWrite($hFile, "Начало" & @CRLF & _
$Danny_1 & ":" & $sZnach1 & @CRLF & _
$Danny_2 & ":" & $sZnach2 & @CRLF & _
$Danny_3 & ":" & $sZnach3 & @CRLF & _
"Конец")
FileClose($hFile)
EndFunc
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Medic84
Боюсь вся проблема в магической цифре 258 ;D
Код:
$hFile = FileOpen(@ScriptDir & "\" & $sZnach1 &" "& $sZnach2&".txt",258)
 
Верх