Войти

Показать полную графическую версию : [решено] Работа со строками и циклами


eus_deus
09-09-2013, 21:43
Добрый вечер! Подбросили мне идею, и начало кода, который у меня не заработал. Итак, имеем текст в текстовом поле $Edit1

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Programs\Players\AIMP3\AIMP3.exe

%COMMANDER_PATH%\Wcmicons.dll,387
AIMP3

0
-1

Это код кнопки файлового менеджера Total commander/ Код нужно конвертировать в строку

MENUITEM AIMP3#!#387#!#%COMMANDER_PATH%\Programs\Players\AIMP3\AIMP3.exe


С этим прекрасно справляется функция
Func _Convert()
Local $s_Read, $s_Ico, $s_NewString
$Config=IniRead ($INICONV, "Setting", "Config", 1)
$s_result=GUICtrlRead($Edit2)
GUICtrlSetData($Edit2,"")
Switch $Config
Case '1'
$s_NewString="MENUITEM "
Case '0'
$s_NewString="M "
EndSwitch
$s_Read =StringSplit(GUICtrlRead($Edit1),@CRLF,1)
If $s_Read[0] < 5 Then Return

If StringInStr ( $s_Read[4], "wcmicons.dll") then
$s_Ico = StringRegExpReplace($s_Read[4], '^.*,', '')
Else
$s_Ico=$s_Read[4]
Endif

$s_NewString &=$s_Read[5] & $Delimeters & $s_Ico&$Delimeters & $s_Read[2] & StringRegExpReplace( $Delimeters & $s_Read[3], $Delimeters & '$|\s+', '')
GUICtrlSetData($Edit2, $s_result&$s_NewString& @CRLF)
_GUICtrlEdit_Scroll($Edit2, $SB_SCROLLCARET )
GUICtrlSetData($Edit1, "")
EndFunc

Но это все работает только для кода одной кнопки, а если их несколько, то как быть? Чтобы загнать 10 кнопок, нажать на кнопку, и на выходе получить 10 строк вида
MENUITEM ..................


Подкинули начало функции
Func _Convert2()
$sSect='TOTALCMD#BAR#DATA'
$Edit1=StringReplace($Edit1,$sSect,'['&$sSect&']')
$aC=StringRegExp($Edit1,'(?m)^\[[^]\r\n]+\].*(?:[\r\n]+[^[\r\n][^\r\n]+)*', 3)

For $i=0 To UBound($aC)
MsgBox(4096, "Переменная ", "$aC =>" & $aC[$i] & "<=")
Next
EndFunc

Строка MsgBox(4096, "Переменная ", "$aC =>" & $aC[$i] & "<=") выдает ошибку, хотя она там по сути и не нужна

Creat0R
10-09-2013, 01:54
это все работает только для кода одной кнопки, а если их несколько, то как быть? »
Для начала хотя бы показать (код), как оно выглядит где есть несколько кнопок.

Хотя можно попробовать:

$vTest = ClipGet (http://autoit-script.ru/autoit3_docs/functions/ClipGet.htm)() ;Тут содержимое кода

;Get TOTALCMD#... blocks
$aData = StringRegExp (http://autoit-script.ru/autoit3_docs/functions/StringRegExp.htm)($vTest, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)
$sMenuItems = ''

For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 0 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aData)-1
$aParams = StringRegExp (http://autoit-script.ru/autoit3_docs/functions/StringRegExp.htm)($aData[$i], '(.*)\r\n\r\n.*,(-?\d+)\r\n(.*)\r\n', 3)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aParams) >= 3 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sMenuItems &= 'MENUITEM ' & $aParams[2] & '#!#' & $aParams[1] & '#!#' & $aParams[0] & @CRLF (http://autoit-script.ru/autoit3_docs/macros.htm#@crlf)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)

MsgBox (http://autoit-script.ru/autoit3_docs/functions/MsgBox.htm)(64, 'Title', $sMenuItems)

eus_deus
10-09-2013, 13:20
Для начала хотя бы показать (код), как оно выглядит где есть несколько кнопок. »
Да вот так выглядит
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Programs\Players\AIMP3\AIMP3.exe

%COMMANDER_PATH%\Wcmicons.dll,387
AIMP3

0
-1
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Programs\Players\AIMP3\AIMP3.exe

%COMMANDER_PATH%\Wcmicons.dll,387
AIMP3

0
-1
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Programs\Players\AIMP3\AIMP3.exe

%COMMANDER_PATH%\Wcmicons.dll,387
AIMP3

0
-1
Используется один код одной кнопки, просто для наглядности.

Хотя можно попробовать:
Код:
$vTest = ClipGet() ;Тут содержимое кода
;Get TOTALCMD#... blocks
$aData = StringRegExp($vTest, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)
$sMenuItems = ''
For $i = 0 To UBound($aData)-1
$aParams = StringRegExp($aData[$i], '(.*)\r\n\r\n.*,(-?\d+)\r\n(.*)\r\n', 3)
If UBound($aParams) >= 3 Then
$sMenuItems &= 'MENUITEM ' & $aParams[2] & '#!#' & $aParams[1] & '#!#' & $aParams[0] & @CRLF
EndIf
Next
MsgBox(64, 'Title', $sMenuItems) »

При этом коде - в результате пустое окно

Creat0R
10-09-2013, 18:08
При этом коде - в результате пустое окно »
Это и не удивительно, если в буфере обмена нет нужного кода.
Замени ClipGet() на GUICtrlRead($Edit1).

eus_deus
10-09-2013, 18:43
С кнопокой такого вида - не работает
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Programs\Players\AIMP3\AIMP3.exe
%P%S
Wcmicons.dll,387
Открыть выделенные файлы\папки в AIMP3

0
-1
и menuitem ставиться только в первую строчку. не во все

eus_deus
10-09-2013, 19:21
и необходимо условие
If StringInStr ( $s_Read[4], "wcmicons.dll") then
$s_Ico = StringRegExpReplace($s_Read[4], '^.*,', '')
Else
$s_Ico=$s_Read[4]
Endif
Назначение - если в строке нет wcmicons.dll, то вставлять строку полностью, если содержит, то использовать только номер

Dm666
11-09-2013, 02:06
eus_deus,
А можно узнать, зачем все это надо?
Уважаю и TC и AutoIt, не первый год обоими пользуюсь. Но зачем надо делать подобные преобразования - ума не приложу. Вдруг мне тоже надо? :)

eus_deus
11-09-2013, 11:16
Dm666, сомневаюсь, что тебе пригодится.
А можно узнать, зачем все это надо? »
Ну как сказать - делаю для себя сборку тотала, и мне нужен такой фуннкционал. Еще хочу выучить autoit? для этого нужна реальная задача. Скрипт "Привет мир" я писал только две недели назад, простые функции вроде clipget() и guictrlsetdata() вроде понятны, а вот конструкции такого вида
For $i = 0 To UBound($aData)-1
$aParams = StringRegExp($aData[$i], '(.*)\r\n\r\n.*,(-?\d+)\r\n(.*)\r\n', 3)
If UBound($aParams) >= 3 Then
$sMenuItems &= 'MENUITEM ' & $aParams[2] & '#!#' & $aParams[1] & '#!#' & $aParams[0] & @CRLF
EndIf
Next »
для меня еще темный лес, равно как и регулярные выражения
Уважаю и TC и AutoIt, не первый год обоими пользуюсь. »
Тоже с тоталом знаком не первый год, но только в этом году решил копнуть поглубже

Итак, теперь дополнение к вопросу. Код кнопки тотала содержит 6-8 строк (в завимости от параметров)
TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Programs\Graphics\Photoshop\App\PhotoshopCS6\Photoshop.exe"
%P%S
%COMMANDER_PATH%\Wcmicons.dll,511
Открыть выбранные файлы в Photoshop


-1
или

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Programs\Players\AIMP3\AIMP3.exe
%P%S
Wcmicons.dll,387
Открыть выделенные файлы\папки в AIMP3

0
-1

Из этих строк нужна такая конструкция:
MENUITEM 5 cтрока#!#4 строка(с условием, о котором писал выше)#!#2 строка#!#3 строка
Для случая, когда в поле одна кнопка, я пример писал рабочий. Как сделать это в цикле?

Creat0R
11-09-2013, 12:46
теперь дополнение к вопросу »
Это не дополнение, а обязательные условия. На будущее, прежде чем создать тему, определи для себя какой будет задача, и укажи всевозможные условия задачи.

$vTest = ClipGet (http://autoit-script.ru/autoit3_docs/functions/ClipGet.htm)() ;Тут содержимое кода

;Get TOTALCMD#... blocks
$aData = StringRegExp (http://autoit-script.ru/autoit3_docs/functions/StringRegExp.htm)($vTest, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)
$sMenuItems = ''

For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 0 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aData)-1
$aParams = StringSplit (http://autoit-script.ru/autoit3_docs/functions/StringSplit.htm)(StringStripCR (http://autoit-script.ru/autoit3_docs/functions/StringStripCR.htm)($aData[$i]), @LF (http://autoit-script.ru/autoit3_docs/macros.htm#@lf))

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $aParams[0] >= 4 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) StringInStr (http://autoit-script.ru/autoit3_docs/functions/StringInStr.htm)($aParams[3], 'wcmicons.dll') Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$aParams[3] = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($aParams[3], '.*?(-?\d+)', '\1')
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$sMenuItems &= 'MENUITEM ' & $aParams[4] & '#!#' & $aParams[3] & '#!#' & $aParams[1] & '#!#' & $aParams[2] & @CRLF (http://autoit-script.ru/autoit3_docs/macros.htm#@crlf)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)

MsgBox (http://autoit-script.ru/autoit3_docs/functions/MsgBox.htm)(64, 'Title', $sMenuItems)

eus_deus
11-09-2013, 14:46
Creat0R, ну прости засранца)) Вроде ставлю задачу, вроде всае расписываю, а всегда чего то не хватает..Я просто не углядел, что коды у кнопок могут иметь разное количество строк...

eus_deus
11-09-2013, 15:36
Я опять сюда. Итак, после модернизации функция выглядит так
Func _Convert2()
Local $sMenuItems
$Config=IniRead ($INICONV, "Setting", "Config", 1)
$vTest = GUICtrlRead($Edit1)
$s_result=GUICtrlRead($Edit2)
GUICtrlSetData($Edit2,"")
$aData = StringRegExp($vTest, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)
Switch $Config
Case '1'
$sMenuItems="MENUITEM "
Case '0'
$sMenuItems="M "
EndSwitch
For $i = 0 To UBound($aData)-1
$aParams = StringSplit(StringStripCR($aData[$i]), @LF)

If $aParams[0] >= 4 Then
If StringInStr($aParams[3], 'wcmicons.dll') Then
$aParams[3] = StringRegExpReplace($aParams[3], '.*?(-?\d+)', '\1')
EndIf

$sMenuItems &=$aParams[4] & $Delimeters & $aParams[3] & $Delimeters & $aParams[1] & $Delimeters & $aParams[2]&@CRLF
EndIf
GUICtrlSetData($Edit2, $s_result&$sMenuItems)
_GUICtrlEdit_Scroll($Edit2, $SB_SCROLLCARET )
GUICtrlSetData($Edit1, "")
Next
EndFunc

Не устраивает два пункта:
1. Потеря menuitem после первой строки ( есть только в первой, в остальных нет)
2. В конце строк не должно быть #!# ( записанного в переменную $Delimeters)

1 вопрос решен. остался второй - удаление $Delimeters на конце строки.
Func _Convert2()
$sMenuItems=''
$Config=IniRead ($INICONV, "Setting", "Config", 1)
$vTest = GUICtrlRead($Edit1)
$s_result=GUICtrlRead($Edit2)
GUICtrlSetData($Edit2,"")
$aData = StringRegExp($vTest, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)
For $i = 0 To UBound($aData)-1
$aParams = StringSplit(StringStripCR($aData[$i]), @LF)

If $aParams[0] >= 4 Then
If StringInStr($aParams[3], 'wcmicons.dll') Then
$aParams[3] = StringRegExpReplace($aParams[3], '.*?(-?\d+)', '\1')
EndIf
Switch $Config
Case '1'
$sMenuItems &="MENUITEM "&$aParams[4] & $Delimeters & $aParams[3] & $Delimeters & $aParams[1] & $Delimeters & $aParams[2]&@CRLF
Case '0'
$sMenuItems &="M "&$aParams[4] & $Delimeters & $aParams[3] & $Delimeters & $aParams[1] & $Delimeters & $aParams[2]&@CRLF
EndSwitch
EndIf
GUICtrlSetData($Edit2, $s_result&$sMenuItems)
_GUICtrlEdit_Scroll($Edit2, $SB_SCROLLCARET )
GUICtrlSetData($Edit1, "")
Next
EndFunc

Creat0R
11-09-2013, 16:14
Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _Convert2()
$sDelimiters = '#!#'
$sMenuItems = ''

$iConfig = Int (http://autoit-script.ru/autoit3_docs/functions/Int.htm)(IniRead (http://autoit-script.ru/autoit3_docs/functions/IniRead.htm)($INICONV, 'Setting', 'Config', 1))
$sData1 = GUICtrlRead (http://autoit-script.ru/autoit3_docs/functions/GUICtrlRead.htm)($Edit1)
$sData2 = GUICtrlRead (http://autoit-script.ru/autoit3_docs/functions/GUICtrlRead.htm)($Edit2)

GUICtrlSetData (http://autoit-script.ru/autoit3_docs/functions/GUICtrlSetData.htm)($Edit2, '')

$aData = StringRegExp (http://autoit-script.ru/autoit3_docs/functions/StringRegExp.htm)($sData1, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)

For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 0 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aData) - 1
$aParams = StringSplit (http://autoit-script.ru/autoit3_docs/functions/StringSplit.htm)(StringStripCR (http://autoit-script.ru/autoit3_docs/functions/StringStripCR.htm)($aData[$i]), @LF (http://autoit-script.ru/autoit3_docs/macros.htm#@lf))

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $aParams[0] >= 4 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) StringInStr (http://autoit-script.ru/autoit3_docs/functions/StringInStr.htm)($aParams[3], 'wcmicons.dll') Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$aParams[3] = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($aParams[3], '.*?(-?\d+)', '\1')
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$sMItem = 'M '

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $iConfig = 1 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sMItem = 'MENUITEM '
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$sMItem &= $aParams[4] & $sDelimiters & $aParams[3] & $sDelimiters & $aParams[1] & $sDelimiters & $aParams[2]
$sMItem = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sMItem, '(\Q' & $sDelimiters & '\E){2,}', $sDelimiters) ;Заменяем два или более присутствующих разделителей на один
$sMenuItems &= StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sMItem, '\Q' & $sDelimiters & '\E\h*$', '') & @CRLF (http://autoit-script.ru/autoit3_docs/macros.htm#@crlf) ;Удаляем разделитель на конце строки
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

GUICtrlSetData (http://autoit-script.ru/autoit3_docs/functions/GUICtrlSetData.htm)($Edit2, $sData2 & $sMenuItems)
_GUICtrlEdit_Scroll (http://autoit-script.ru/autoit3_docs/libfunctions/_guictrledit_scroll.htm)($Edit2, $SB_SCROLLCARET)
GUICtrlSetData (http://autoit-script.ru/autoit3_docs/functions/GUICtrlSetData.htm)($Edit1, '')
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)

eus_deus
11-09-2013, 17:05
Creat0R, нет. Разделитель на конце есть, и все параметры идут одной строкой. цельной

Creat0R
11-09-2013, 18:10
Поправил.

На будущее, заготовь заранее рабочий пример, с которым можно было бы экспериментировать.
Вот мне например, пришлось самому его делать чтобы проверить функцию...

#include (http://autoit-script.ru/autoit3_docs/keywords.htm##include) <GUIConstantsEx.au3>
#include (http://autoit-script.ru/autoit3_docs/keywords.htm##include) <ScrollbarConstants.au3>
#include (http://autoit-script.ru/autoit3_docs/keywords.htm##include) <GUIEdit.au3>

$INICONV = @ScriptDir (http://autoit-script.ru/autoit3_docs/macros.htm#@scriptdir) & '\test.ini'
$sCode = ClipGet (http://autoit-script.ru/autoit3_docs/functions/ClipGet.htm)()

$hGUI = GUICreate (http://autoit-script.ru/autoit3_docs/functions/GUICreate.htm)('', 400, 600)

$Edit1 = GUICtrlCreateEdit (http://autoit-script.ru/autoit3_docs/functions/GUICtrlCreateEdit.htm)($sCode, 20, 20, 200, 200)
$Edit2 = GUICtrlCreateEdit (http://autoit-script.ru/autoit3_docs/functions/GUICtrlCreateEdit.htm)('', 20, 320, 200, 200)

GUISetState (http://autoit-script.ru/autoit3_docs/functions/GUISetState.htm)(@SW_SHOW (http://autoit-script.ru/autoit3_docs/macros.htm#@sw_show), $hGUI)

_Convert2()

While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) 1
$nMsg = GUIGetMsg (http://autoit-script.ru/autoit3_docs/functions/GUIGetMsg.htm)()

Switch (http://www.autoitscript.com/autoit3/docs/keywords.htm#Switch) $nMsg
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) $GUI_EVENT_CLOSE
Exit (http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit)
EndSwitch (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndSwitch)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _Convert2()
$sDelimiters = '#!#'
$sMenuItems = ''

$iConfig = Int (http://autoit-script.ru/autoit3_docs/functions/Int.htm)(IniRead (http://autoit-script.ru/autoit3_docs/functions/IniRead.htm)($INICONV, 'Setting', 'Config', 1))
$sData1 = GUICtrlRead (http://autoit-script.ru/autoit3_docs/functions/GUICtrlRead.htm)($Edit1)
$sData2 = GUICtrlRead (http://autoit-script.ru/autoit3_docs/functions/GUICtrlRead.htm)($Edit2)

GUICtrlSetData (http://autoit-script.ru/autoit3_docs/functions/GUICtrlSetData.htm)($Edit2, '')

$aData = StringRegExp (http://autoit-script.ru/autoit3_docs/functions/StringRegExp.htm)($sData1, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)

For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 0 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aData) - 1
$aParams = StringSplit (http://autoit-script.ru/autoit3_docs/functions/StringSplit.htm)(StringStripCR (http://autoit-script.ru/autoit3_docs/functions/StringStripCR.htm)($aData[$i]), @LF (http://autoit-script.ru/autoit3_docs/macros.htm#@lf))

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $aParams[0] >= 4 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) StringInStr (http://autoit-script.ru/autoit3_docs/functions/StringInStr.htm)($aParams[3], 'wcmicons.dll') Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$aParams[3] = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($aParams[3], '.*?(-?\d+)', '\1')
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$sMItem = 'M '

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $iConfig = 1 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sMItem = 'MENUITEM '
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$sMItem &= $aParams[4] & $sDelimiters & $aParams[3] & $sDelimiters & $aParams[1] & $sDelimiters & $aParams[2]
$sMItem = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sMItem, '(\Q' & $sDelimiters & '\E){2,}', $sDelimiters) ;Заменяем два или более присутствующих разделителей на один
$sMenuItems &= StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sMItem, '\Q' & $sDelimiters & '\E\h*$', '') & @CRLF (http://autoit-script.ru/autoit3_docs/macros.htm#@crlf) ;Удаляем разделитель на конце строки
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

GUICtrlSetData (http://autoit-script.ru/autoit3_docs/functions/GUICtrlSetData.htm)($Edit2, $sData2 & $sMenuItems)
_GUICtrlEdit_Scroll (http://autoit-script.ru/autoit3_docs/libfunctions/_guictrledit_scroll.htm)($Edit2, $SB_SCROLLCARET)
GUICtrlSetData (http://autoit-script.ru/autoit3_docs/functions/GUICtrlSetData.htm)($Edit1, '')
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)

eus_deus
11-09-2013, 18:27
Creat0R, понял, пример максимальные пояснения с меня. Объясни еще , как ты с такой расцветкой код вставляешь?

Creat0R
12-09-2013, 08:23
как ты с такой расцветкой код вставляешь? »
Au3ToPost (http://autoit-script.ru/index.php/topic,117.0.html)




© OSzone.net 2001-2012