VermanVendetta13
Новичок
- Сообщения
- 147
- Репутация
- 0
Данный скрипт, пишет в текстовый файл данные выбранные в CheckBox, но возникает одна проблема с тем, что файл полностью переписывается вместо того чтоб записывать новые данные. как это исправить?
P.S Для "Новой" записи пока что скрипт нужно перезапускать
P.S Для "Новой" записи пока что скрипт нужно перезапускать
Код:
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <Word.au3>
GUICreate('Функция FileSelectFolder')
$CheckBox1 = GUICtrlCreateCheckbox( 'ДА', 10, 150, 50, 50)
$CheckBox2 = GUICtrlCreateCheckbox( 'НЕТ', 10, 200, 50, 50)
$btn = GUICtrlCreateButton ("Готово", 300, 75, 60, 20)
GUISetState (1)
$kiss = '1'
$kiss2 = '0'
While 1
Switch GUIGetMsg()
Case $btn
if BitAND( GUIctrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
$1 = $kiss = WRITE1()
ElseIf BitAND( GUIctrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
$2 = $kiss2 = WRITE()
Func WRITE()
$hFile = FileOpen(@ScriptDir & "\DTest.txt", 0)
$sText = FileRead($hFile)
FileClose($hFile)
$hFile = FileOpen(@ScriptDir & "\DTest.txt", 2)
FileWrite($hFile, $kiss2)
FileClose($hFile)
EndFunc
Func WRITE1()
$hFile = FileOpen(@ScriptDir & "\DTest.txt", 0)
$sText = FileRead($hFile)
FileClose($hFile)
$hFile = FileOpen(@ScriptDir & "\DTest.txt", 2)
FileWrite($hFile, $kiss)
FileClose($hFile)
EndFunc
EndIf
GUIDelete()
ExitLoop
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd