Что нового

Вставка текста из input и кода.

astati

Новичок
Сообщения
145
Репутация
4
Здраствуйте! Тема легка но как ни странно ненашел на форуме(может руки кривые?)
Такс к делу:
На форме есть поля: edit, input button
Надо: Чтобы в input вводят текст, нажимаем кнопку. Текст из input добавляется в текст в коде. И этот текст пишется в edit.

P.S. для многих покажется это простейшей задачей поэтому надеюсь на быстрый ответ. Спасибо.
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
Это вот как:
input (например написал я live)
нажал кнопу
в коде записанно заранее, допустим так:( это не наша $Input а ваша)
*в место $Input вставляется текст из Input и все это вместе пишется в Edit.
 

BIOS

Жизнь - игра. График - супер, но сюжет - хреновый.
Сообщения
173
Репутация
69
Код:
#include <GuiConstants.au3>
$GUI=GUICreate('test',400,400)
$Input=GUICtrlCreateInput('',10,10)
$Button=GuiCtrlCreateButton('Жми',250,10)
$Edit=GUICtrlCreateEdit('',10,60,300,300)

GUISetState()

While 1
	$msg=GUIGetMsg()

	if $msg=$GUI_EVENT_CLOSE Then Exit
	if $msg=$Button Then
		$text='это не наша '&GUICtrlRead($Input)&' а ваша'
		GUICtrlSetData($Edit,$text)
	EndIf

WEnd
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
Спасибо работает.
А если надо вставить текст из кода не одну а больше строк?
 

BIOS

Жизнь - игра. График - супер, но сюжет - хреновый.
Сообщения
173
Репутация
69
astati [?]
А если надо вставить текст из кода не одну а больше строк?

Код:
$text='это не наша '&GUICtrlRead($Input)&' а ваша'&@CRLF&'Следущая строка'
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
Так и еще проблемки.
И когда я второй раз жму вставить текст он заменяет предыдущий а надо чтоб добавлялся снизу
 

BIOS

Жизнь - игра. График - супер, но сюжет - хреновый.
Сообщения
173
Репутация
69
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
да да эт я ступил в одном месте:smile:

Респект тебе все работает. проблему ты мою решил.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
astati,
Можно не читать лишний раз Edit.
Код:
;...
$text = 'это не наша ' & GUICtrlRead($Input) & ' а ваша' & @CRLF
GUICtrlSetData($Edit, $text, 1)
;...
 

XpycT

Скриптер
Сообщения
380
Репутация
132
Вот еще вариант
Код:
#include <GuiConstants.au3>

$OriginalText = "Строка 1 : $InputText$" & @CRLF & "Строка 2 : $InputText$" & @CRLF & "Строка 3 : $InputText$" & @CRLF & "Строка 4 : $InputText$"

$GUI=GUICreate('test',400,400)
$Input=GUICtrlCreateInput('',10,10)
$Button=GuiCtrlCreateButton('Жми',250,10)
$Edit=GUICtrlCreateEdit($OriginalText,10,60,300,300)

GUISetState()

While 1
    $msg=GUIGetMsg()

    if $msg=$GUI_EVENT_CLOSE Then Exit
    if $msg=$Button Then _Insert()

WEnd

Func _Insert()
	Opt("ExpandVarStrings", 1) ;0=don't expand, 1=do expand

	$InputText = GUICtrlRead($Input)

	GUICtrlSetData($Edit, $OriginalText)

	Opt("ExpandVarStrings", 0) ;0=don't expand, 1=do expand
EndFunc
 
Верх