[Creat0R]

это все работает только для кода одной кнопки, а если их несколько, то как быть? »

Для начала хотя бы показать (код), как оно выглядит где есть несколько кнопок.

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

Код:

$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)

[eus_deus]

Для начала хотя бы показать (код), как оно выглядит где есть несколько кнопок. »

Да вот так выглядит

Код:

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]

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

Это и не удивительно, если в буфере обмена нет нужного кода.
Замени ClipGet() на GUICtrlRead($Edit1).

[eus_deus]

С кнопокой такого вида - не работает

Код:

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

0
-1

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

[eus_deus]

и необходимо условие

Код:

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

Назначение - если в строке нет wcmicons.dll, то вставлять строку полностью, если содержит, то использовать только номер

[Dm666]

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

[eus_deus]

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]

теперь дополнение к вопросу »

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

Код:

$vTest = ClipGet() ;Тут содержимое кода

;Get TOTALCMD#... blocks
$aData = StringRegExp($vTest, '(?s)BAR#DATA\s+(.+?)(?:TOTALCMD#|$)', 3)
$sMenuItems = ''

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 &= 'MENUITEM ' & $aParams[4] & '#!#' & $aParams[3] & '#!#' & $aParams[1] & '#!#' & $aParams[2] & @CRLF
    EndIf
Next

MsgBox(64, 'Title', $sMenuItems)

[eus_deus]

Creat0R, ну прости засранца)) Вроде ставлю задачу, вроде всае расписываю, а всегда чего то не хватает..Я просто не углядел, что коды у кнопок могут иметь разное количество строк...