Что нового

[Элементы GUI] Удаление части текста в поле Edit

Ksaan

Знающий
Сообщения
207
Репутация
15
Вопрос вроде как не сложный но я на нем завис).
Допустим есть Edit и кнопка
Код:
#include <GUIConstantsEx.au3>
Global $iCount
GUICreate('вывод переменной ', 300, 225)
$myedit = GUICtrlCreateEdit('Мама ' & @CRLF & ' Мыла' & @CRLF & 'Раму', 48, 16, 185, 89)
$a1 = GUICtrlCreateButton ("1", 10, 150, 55, 35 );1
GUISetState()
While 1
 Switch GUIGetMsg()
 Case $GUI_EVENT_CLOSE
 Exit
 Case $a1
 _RedactTexta()
EndSwitch
WEnd
Func _RedactTexta()
 $result = StringTrimRight($myedit, 3)
 ;$result = 'Та-та-та'
 $iCount = $result
 ;GUICtrlSetData($myedit, $iCount)
GUICtrlSetData($myedit, $iCount , 1)
 ;MsgBox(4096, 'Сообщение', $myedit)
 ;MsgBox(4096, 'Сообщение', $iCount)
EndFunc ;==>_RedctTexta

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

_dron_

Знающий
Сообщения
84
Репутация
8
Код:
Func _RedactTexta()
 $result = GUICtrlRead($myedit);<---++++++++++
 $result = StringTrimRight($result , 3)
GUICtrlSetData($myedit, $iCount , 1)
EndFunc
 
Автор
Ksaan

Ksaan

Знающий
Сообщения
207
Репутация
15
Код:
Func _RedactTexta()
 $result = GUICtrlRead($myedit);<---++++++++++
 $iCount = StringTrimRight($result , 3)
GUICtrlSetData($myedit, $iCount , 1)
EndFunc

Отчасти все верно, но он удаляет 3 символа только 1 раз а затем копирует всю вразу целиком и добовляет к старой
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Ksaan [?]
Отчасти все верно, но он удаляет 3 символа только 1 раз
Код:
Func _RedactTexta()
	$s_Rresult = StringTrimRight(GUICtrlRead($myedit), 3)
	GUICtrlSetData($myedit, $s_Rresult)
EndFunc ;==>_RedctTexta
 
Автор
Ksaan

Ksaan

Знающий
Сообщения
207
Репутация
15
Оба варианта верны СПС :smile:
 
Верх