[Creat0R]

Код:

Func _Convert2()
    $sDelimiters = '#!#'
    $sMenuItems = ''

    $iConfig = Int(IniRead($INICONV, 'Setting', 'Config', 1))
    $sData1 = GUICtrlRead($Edit1)
    $sData2 = GUICtrlRead($Edit2)

    GUICtrlSetData($Edit2, '')

    $aData = StringRegExp($sData1, '(?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

            $sMItem = 'M '

            If $iConfig = 1 Then
                $sMItem = 'MENUITEM '
            EndIf

            $sMItem &= $aParams[4] & $sDelimiters & $aParams[3] & $sDelimiters & $aParams[1] & $sDelimiters & $aParams[2]
            $sMItem = StringRegExpReplace($sMItem, '(\Q' & $sDelimiters & '\E){2,}', $sDelimiters) ;Заменяем два или более присутствующих разделителей на один
            $sMenuItems &= StringRegExpReplace($sMItem, '\Q' & $sDelimiters & '\E\h*$', '') & @CRLF ;Удаляем разделитель на конце строки
        EndIf

        GUICtrlSetData($Edit2, $sData2 & $sMenuItems)
        _GUICtrlEdit_Scroll($Edit2, $SB_SCROLLCARET)
        GUICtrlSetData($Edit1, '')
    Next
EndFunc