Добавление в поиск TC большого списка расширений файлов

[Tol!k]

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

@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 Важно: копируя код через буфер обмена удалите пробелы в конце каждой строки

[Flasher]

Tol!k
Спасибо, работает! Не подскажешь как ещё этот момент решить?

[Tol!k]

Раскомментируй строку

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

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

а следующие две за ней закомментируй

[Flasher]

Благодарю!

[ask-rus]

В Опере и FF действительно нормально обрабатывается вся сохранённая страничка. Более новые версии IE не проверял.

В Опере 10.61 проделать фокус не получилось. Напомню, есть кнопка, есть сайт http://open-file.ru/ , сохранить как текст, получить список.

Добавлено:
А, тут можно просто - выделить всё, скопировать, кинуть в блокнот.
Спасибо, Tol!k.

[Tol!k]

Аналогичная кнопка для file-extensions.org

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

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

Ахтунг: некоторые категории там на нескольких страницах.

[Flasher]

Tol!k
Во как. А я с помощью старого варианта давно уже сделал.

[ask-rus]

А где их больше всего? - Там или там?

Аналогичная кнопка для file-extensions.org

Не работает.

[Tol!k]

> А где их больше всего? - Там или там?
Где больше всего – не знаю. На open-file.ru 17kB (21 категория), на file-extensions.org 57kB (28 категорий)

> Не работает.
Опера 10.61? А если опять "выделить всё, скопировать, кинуть в блокнот"?

[ask-rus]

Опера 10.61? А если опять "выделить всё, скопировать, кинуть в блокнот"?

И так, и так.

Страничка "Audio, music or song file extensions.txt" - 339.4 Кб
После действия кнопки - 0 б

[Tol!k]

> Страничка "Audio, music or song file extensions.txt" - 339.4 Кб
Очень много. У меня на 10.10 две страницы – 64кВ. После обработки 7кВ

http://depositfiles.com/files/xwt6334vw

[Flasher]

А где их больше всего? - Там или там?

Даже не обсуждается. Знаю порядка восьми сайтов-аналогов, нигде больше чем на file-extensions.org нет, да и вряд ли на тех сайтах есть расширения, которых нет на file-extensions.org.

http://depositfiles.com/files/xwt6334vw

Почему не все? Там ещё такие есть: Binary, Common, Dangerous and malicious, Email attachment blocked, Graphics, Internet related, Office 2007 document, System, Text, Various data.

Да, замечу: в фильтрах и цветовых настройках нужно учитывать, что в различных категориях много совпадающих расширений.

[Tol!k]

Почему не все? Там ещё такие есть: Binary, Common, Dangerous and malicious, Email attachment blocked, Graphics, Internet related, Office 2007 document, System, Text, Various data.

Office 2007 document уже нет, кажется теперь это Microsoft Office files
А в остальных категориях "много совпадающих расширений"

[ask-rus]

Да, замечу: в фильтрах и цветовых настройках нужно учитывать, что в различных категориях много совпадающих расширений.

А зачем это учитывать? Это разве плохо?

[Tol!k]

> А зачем это учитывать?
Расширение может оказаться в нескольких категориях, но цвет-то у файла м.б. только один