Что нового

@CRLF добавляется к строке в цикле. Как сделать чтобы в конце не добавлялся

atlake

Новичок
Сообщения
40
Репутация
0
Код:
For $For1 = 1 To 4
   GUICtrlSetData($Edit1, _Crypto_GetRandomString(GUICtrlRead($Input2), $Flag1) & @CRLF, 1)
Next


В цикле:
добавляет строку в GUI, в конце @CRLF.

Получается вот что:
Строка1 @CR
@LF Строка2 @CR
@LF Строка3 @CR
@LF Строка4 @CR
@LF

После четвертой строки @CRLF ставить не нужно.
Как сделать чтобы не ставилось? Ничего придумать не могу.

P.S.: StringMid удаляет @CRLF?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
это ты как узнал, что
Код:
Строка1@CR
@LF
?
там что
Код:
Строка1@CR@CRLF@LF
?
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("123", 210,300)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 209, 299)
Local $String
For $i=1 To 4
	$String&="Hello"&@CRLF
Next
;~ $String=StringStripWS($String,2)
GUICtrlSetData($Edit1,$String)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Если раскоментировать строку после цикла то в Edit элемент будет высылаться стрка уже без @crlf в конце
 
Автор
A

atlake

Новичок
Сообщения
40
Репутация
0
[box title=Справка]StringStripWS
Удаляет пробельные символы в строке.[/box]

Я думал только пробы удаляет, поэтому не заглядывал. А оказывается и перевод строки удаляет и табуляцию... Спасибо!
 

DarWiM

Продвинутый
Сообщения
527
Репутация
90
atlake
Как вариант
Код:
For $For1 = 1 To 4
	$sTextToEdit1=_Crypto_GetRandomString(GUICtrlRead($Input2), $Flag1)
	If $For1 <> 4 Then $sTextToEdit1&=@CRLF
	GUICtrlSetData($Edit1, $sTextToEdit1, 1)
Next
 
Верх