Total Commander

Код: Выделить всё

@echo off &chcp 1251 >nul &setlocal enableextensions

rem Параметры: file.txt "ВходнойРазделительВыходнойРазделитель" "Приставка"
rem Пример параметров кнопки TC: %P%N " ;"

if "%~1"=="" (echo  Use: srt_.cmd duplicates.txt &pause >nul &exit /b)
call :create "%temp%\sbs2.com"

if "%~2"=="" (set "sep= ") else set "sep=%~2"
"%temp%\sbs2.com" 0 "%sep:~,1%" "$0d$0a" <"%~f1" >"%temp%\~ext.tmp"
sort "%temp%\~ext.tmp" /o "%temp%\~srt.tmp" &del "%temp%\~ext.tmp" /q

set "e="
for /f "usebackq delims=" %%e in ("%temp%\~srt.tmp") do call :compare "%%~e" "%~3"
del "%temp%\~srt.tmp" /q

"%temp%\sbs2.com" 0 "$22" "" <"%temp%\~ext.tmp" >"%temp%\~srt.tmp"
rem "%temp%\sbs2.com" 0 "$0d$0a" "%sep:~-1%" <"%temp%\~srt.tmp" >"%~n1_srt%~x1"
move "%~1" "%~1.bak"
"%temp%\sbs2.com" 0 "$0d$0a" "%sep:~-1%" <"%temp%\~srt.tmp" >"%~1"
del "%temp%\~ext.tmp" /q &del "%temp%\~srt.tmp" /q &exit /b

:compare
if not "%e%"=="%~1" (echo "%~2%~1">> "%temp%\~ext.tmp"& set "e=%~1")
goto :eof

:create the assembler program, by Herbert Kleebauer
if "%~z1"=="659" goto :eof
echo Bj@jzh`0X-`/PPPPPPa(DE(DM(DO(Dh(Ls(Lu(LX(LeZRR]EEEUYRX2Dx=>  "%~1"
echo 0DxFP,0Xx.t0P,=XtGsB4o@$?PIyU!WvX0GwUY Wv;ovBX2Gv0ExGIuht6>> "%~1"
echo ?@}IKuNWpe~Fpe?FNHlF?wGMECIQqo{Ox{T?kPv@jeoSeIlRFD@{AyEKj@>> "%~1"
echo iqe~1NeAyR?mHAG~BGRgB{~H?o~TsdgCYqe?HR~upkpBG?~slJBCyA?@xA>> "%~1"
echo LZp{xq`Cs?H[C_vHDyB?Hos@QslFA@wQ~~x}viH}`LYNBGyA?@xAB?sUq`>> "%~1"
echo LRy@PwtCYQEuFK@A~BxPtDss@fFqjVmzD@qBEOEenU?`eHHeBCMs?FExep>> "%~1"
echo LHsPBGyA?@xAunjzA}EKNs@CA?wQpQpKLBHv?s`WJ`LRCYyIWMJaejCksl>> "%~1"
echo H[GyFGhHBwHZjjHeoFasuFUJeHeB?OsQH[xeHCPvqFj@oq@eNc?~}Nu??O>> "%~1"
echo ~oEwoAjBKs?Zp`LBzHQzyEFrAWAG{EFrAqAGYwHTECIQ{coKIsaCsf{Oe~>> "%~1"
echo CK}Ayre~CNFA{rAyEKFACrA{EKGAjbA}eKGSjNMtQFtc{OAyDGFj?{FDGQ>> "%~1"
echo KAjNVk_OCAx@e?f{o?CosI}1EGizhljJ~H1ZeG}JBA~rACBMDGjjDG@g0>>  "%~1"
if not "%~z1"=="659" (
echo Удалите пробелы в конце каждой строки командного файла "%~nx0"
del "%~1" /q &pause >nul &exit)
goto :eof

rem Важно: копируя код через буфер обмена удалите пробелы в конце каждой строки

Код: Выделить всё

"%temp%\sbs2.com" 0 "$0d$0a" "%sep:~-1%" <"%temp%\~srt.tmp" >"%~n1_srt%~x1"

Код: Выделить всё

TOTALCMD#BAR#DATA
%comspec% /c chcp 1251&
(for /f "tokens=3" %%a in ('findstr /r /c:"^file extension .*" %N') do @<nul set /p str=*.%%a )> _exts.txt &move _exts.txt %N
%COMMANDER_PATH%\TOTALCMD.EXE,26
exts from file-extensions.org

1
-1