A
at
Гость
Всех, Приветствую ! Прошу помочь. Не могу назначить переменной строковое значение GUICtrlCreateInput.
Делаю так :
Делаю так :
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$hForm = GUICreate('Form', 152, 65, 225, 150)
$vInput_1 = GUICtrlCreateInput('', 32, 8, 105, 21)
GUISetState(@SW_SHOW)
Global $vScript_Name, $sFile, $sRead
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$sFile = @ScriptDir & '\prog.log'
$sRead = FileRead($sFile)
$vScript_Name = String(GUICtrlRead($vInput_1))
$sString_A = StringRegExp($sRead, '(?m)^(.*?\[.*?INFO.*?Script:\(Script:' & $vScript_Name & '\).*?Класс.*?на старте.*)$')
$sText_A = '(?m)^(.*?\[.*?INFO.*?Script:\(Script:' & $vScript_Name & '\).*?Класс.*?на старте.*)$'
$sReplace_Text_A = @HOUR & ':' & @MIN & ':' & @SEC & '.' & '<<< ИЗМЕНЕНО >>> Информация о классе изменена успешно !' & @CRLF
If $sString_A Then
Sleep(100)
$sReplace_A = StringRegExpReplace($sRead, $sText_A, $sReplace_Text_A)
FileDelete($sFile)
FileWrite($sFile, $sReplace_A)
Func_A()
EndIf
WEnd
Func Func_A()
Sleep(10)
MsgBox(0, "Успех !", "", 1)
EndFunc