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

[astati]

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

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

 

[BIOS]

astati [?]

Текст из input добавляется

в текст в коде

.

Расшифруй

 

[astati]

Это вот как:
input (например написал я live)
нажал кнопу
в коде записанно заранее, допустим так:( это не наша $Input а ваша)
*в место $Input вставляется текст из Input и все это вместе пишется в Edit.

 

[BIOS]

#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

 

[astati]

Спасибо работает.
А если надо вставить текст из кода не одну а больше строк?

 

[BIOS]

astati [?]

А если надо вставить текст из кода не одну а больше строк?

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

 

[astati]

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

 

[BIOS]

astati [?]

Текст который из Input вставляется почемуто вставляется и в конце фразы.

Эт ты чтото не так сделал, у меня он лишний раз не вставляется

а надо чтоб добавлялся снизу

GUICtrlSetData($Edit,GUICtrlRead($Edit)&@CRLF&$text)

 

[astati]

да да эт я ступил в одном месте

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

 

[madmasles]

astati,
Можно не читать лишний раз Edit.

;...
$text = 'это не наша ' & GUICtrlRead($Input) & ' а ваша' & @CRLF
GUICtrlSetData($Edit, $text, 1)
;...

 

[XpycT]

Вот еще вариант

#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

 

[astati]

Всем спасибо.