Что нового

Как скопировать в переменную диапазон строк?

agikon

Знающий
Сообщения
789
Репутация
17
Помогите пожалуйста понять как можно скопировать нужный мне диапазон строк из вот такого примера
Код:
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>

$hGUI = GUICreate('', 200, 180)

		GUICtrlCreateEdit('1' & @CRLF & '2' & @CRLF & '3' & @CRLF & '4' & @CRLF & '5' & @CRLF & '6' & @CRLF & _
        '7' & @CRLF & '8' & @CRLF & '9' & @CRLF & '10', 10, 10, 20, 150, $ES_WANTRETURN)

$nEdit1 = GUICtrlCreateEdit('даные1' & @CRLF & 'даные2' & @CRLF & 'даные3' & @CRLF & 'даные4' & @CRLF & 'даные5' & @CRLF & 'даные6' & @CRLF & _
        'даные7' & @CRLF & 'даные8' & @CRLF & 'даные9' & @CRLF & 'даные10', 30, 10, 70, 150, $ES_WANTRETURN)

$num1 = GUICtrlCreateEdit('4', 120, 10, 20, 20, $ES_WANTRETURN)
$num2 = GUICtrlCreateEdit('7', 170, 10, 20, 20, $ES_WANTRETURN)

GuiCtrlCreateLabel("c", 110, 15, 9, 15)
GuiCtrlCreateLabel("по", 155, 15, 13, 15)

$nButton1 = GUICtrlCreateButton('копировать', 110, 30, 80, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nButton1
			$var1 = GUICtrlRead($num1)
			$var2 = GUICtrlRead($num2)

			$var3 = GUICtrlRead($nEdit1); как пример отчётности
			MsgBox(64, 'Cкопировано:', $var3, $hGUI)

    EndSwitch
WEnd
 

oesoes

xor eax,eax
Сообщения
171
Репутация
9
Как вариант:
Код:
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>

$hGUI = GUICreate('', 200, 180)
        GUICtrlCreateEdit('1' & @CRLF & '2' & @CRLF & '3' & @CRLF & '4' & @CRLF & '5' & @CRLF & '6' & @CRLF & _
        '7' & @CRLF & '8' & @CRLF & '9' & @CRLF & '10', 10, 10, 20, 150, $ES_WANTRETURN)
$nEdit1 = GUICtrlCreateEdit('даные1' & @CRLF & 'даные2' & @CRLF & 'даные3' & @CRLF & 'даные4' & @CRLF & 'даные5' & @CRLF & 'даные6' & @CRLF & _
        'даные7' & @CRLF & 'даные8' & @CRLF & 'даные9' & @CRLF & 'даные10', 30, 10, 70, 150, $ES_WANTRETURN)

$num1 = GUICtrlCreateEdit('4', 120, 10, 20, 20, $ES_WANTRETURN)
$num2 = GUICtrlCreateEdit('7', 170, 10, 20, 20, $ES_WANTRETURN)

GuiCtrlCreateLabel("c", 110, 15, 9, 15)
GuiCtrlCreateLabel("по", 155, 15, 13, 15)

$nButton1 = GUICtrlCreateButton('копировать', 110, 30, 80, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nButton1
			Local $new = ''
			$list = StringSplit(GUICtrlRead($nEdit1),@LF)
			for $i = GUICtrlRead($num1) to GUICtrlRead($num2)
				$new &=$list[$i]
			next
			MsgBox(0,0,$new)
    EndSwitch
WEnd
 
Верх