Total Commander

Code: Select all

      SetWorkingDir, %1% 
;slouceni    
    Loop, read, %2%
    {
    ;msgbox, %A_LoopReadLine% 
    clipboard := A_LoopReadLine
    send cm_LoadSelectionFromClip{ENTER}
    send {HOME}
    send cm_GotoNextSelected{ENTER}
    sleep 100
    send cm_Combine{ENTER}
    sleep 100
    send {ENTER} ;hlaska - sloucit soubory?
    WinWaitActive, ahk_class #32770 ;hlaska slucovani probehlo
    sleep 100
    send {ENTER} ;hlaska slucovani probehlo
    }

;oznaceni sloucenych
    clipboard := ""
    Loop, read, %2%
    {
    radka := RegExReplace(A_LoopReadLine, ".+\\", "") ;odstraneni plne cesty, zbyde samotne jmeno
    radka := RegExReplace(radka, "\.[0-9]+", "*") ; .001 -> .* (pro oznaceni .001, .002 ..)
    clipboard := radka . "`n" . clipboard ; musi byt v tomto poradi 
    sleep 200
    send cm_LoadSelectionFromClip{ENTER}
    }        
return