окно ввода данных

[man_without_face]

Версия AutoIt: 3.
3.5.4
Описание:
Необходим код:
Создание GUI окна с полем ввода, кнопками "внести запись" и "отменить"
После ввода текста в поле по нажатию Enter или первой кнопки, значение поля поместить в переменную и закрыть окно. Вторая кнопка просто закрывает окно, значение переменной - пустое.
Метод inputbox без использования GUI не подходит, т.к. режет строку после 254 символов.
Чувствую, что решение не сложное, но интернет только в телефоне, искать трудно. Спасибо
Примечания:

 

[InnI]

$s = _Input("test")
MsgBox(0, StringLen($s), $s)

; ----------------------

Func _Input($Title = "")
  Local $GUI = GUICreate($Title, 260, 75)
  Local $Input = GUICtrlCreateInput("", 10, 10, 240)
  Local $BtnOK = GUICtrlCreateButton("Внести запись", 10, 40, 100, -1, 0x01) ; $BS_DEFPUSHBUTTON
  Local $BtnCancel = GUICtrlCreateButton("Отменить", 150, 40, 100)
  GUISetState()
  Do
    Switch GUIGetMsg()
      Case -3, $BtnCancel
        Return SetError(1, GUIDelete($GUI), "")
      Case $BtnOK
        Local $Text = GUICtrlRead($Input)
        Return SetError(0, GUIDelete($GUI), $Text)
    EndSwitch
  Until 0
EndFunc

 

[man_without_face]

Спасибо! То, что нужно. Дальше сам.

 

[alex_tm]

$s = _Input("test")
MsgBox(0, StringLen($s), $s)

; ----------------------

Func _Input($Title = "")
  Local $GUI = GUICreate($Title, 260, 75)
  Local $Input = GUICtrlCreateInput("", 10, 10, 240)
  Local $BtnOK = GUICtrlCreateButton("Внести запись", 10, 40, 100, -1, 0x01) ; $BS_DEFPUSHBUTTON
  Local $BtnCancel = GUICtrlCreateButton("Отменить", 150, 40, 100)
  GUISetState()
  Do
    Switch GUIGetMsg()
      Case -3, $BtnCancel
        Return SetError(1, GUIDelete($GUI), "")
      Case $BtnOK
        Local $Text = GUICtrlRead($Input)
        Return SetError(0, GUIDelete($GUI), $Text)
    EndSwitch
  Until 0
EndFunc

Нашел ваш пример реализации данной идеи. Очень понравилось - сделано изящно.
Можно попросить Вас подсказать - как сделать такой вариант, в котором бы Ваш скрипт сохранял в текстовый файл внесённые в текстовое поле данные?
Без запроса имени и места сохранения - заранее в скрипте указать каким должно быть итоговое имя файла, и что сохраняться он должен рядом с файлом исполняемого скрипта.
Спасибо.

 

[CreatoR]

$s = _Input("test")

$sFile = @ScriptDir & '\file.txt'
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $s)
FileClose($hFile)

...

 

[alex_tm]

$s = _Input("test")

$sFile = @ScriptDir & '\file.txt'
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $s)
FileClose($hFile)

...

Спасибо

Сообщение автоматически объединено: 25 Янв 2021

Спасибо

И ещё есть один вопрос.
Что в этом скрипте (в скомпилированном) заставляет антивирусы считать его вирусом?
И можно ли избавиться от этого?

Сообщение автоматически объединено: 25 Янв 2021

Спасибо

Сообщение автоматически объединено: 25 Янв 2021

И ещё есть один вопрос.
Что в этом скрипте (в скомпилированном) заставляет антивирусы считать его вирусом?
И можно ли избавиться от этого?

И ещё вопрос.
На последнем шаге скрипт показывает окно с результатом, где в качестве заголовка окна отображается количество знаков введённого текста и сам текст. И ждёт нажатия кнопки ОК, чтобы завершить работу.
Можно ли не выводить последнее окно с ожиданием нажатия ОК?
Т.е. показать поле для ввода текста, и как только его введу и нажму "Внести запись" - завершить работу скрипта.

 

[InnI]

Можно ли не выводить последнее окно с ожиданием нажатия ОК?

Удалите вторую строку, где MsgBox вызывается.