| View previous topic :: View next topic |
| Author |
Message |
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
 (Separately) Posted: Sun May 23, 2010 20:44 Post subject: |
 |
|
| Code: | @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 Важно: копируя код через буфер обмена удалите пробелы в конце каждой строки
|
|
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun May 23, 2010 21:29 Post subject: |
|
|
Tol!k
Спасибо, работает! Не подскажешь как ещё этот момент решить? |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Sun May 23, 2010 21:38 Post subject: |
|
|
Раскомментируй строку
| Code: | "%temp%\sbs2.com" 0 "$0d$0a" "%sep:~-1%" <"%temp%\~srt.tmp" >"%~n1_srt%~x1" |
а следующие две за ней закомментируй |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun May 23, 2010 21:46 Post subject: |
|
|
Благодарю!  |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
| (Separately) Posted: Sun Dec 12, 2010 19:16 Post subject: |
|
|
| Avada wrote: | | В Опере и FF действительно нормально обрабатывается вся сохранённая страничка. Более новые версии IE не проверял. |
В Опере 10.61 проделать фокус не получилось. Напомню, есть кнопка, есть сайт http://open-file.ru/ , сохранить как текст, получить список.
Добавлено:
А, тут можно просто - выделить всё, скопировать, кинуть в блокнот.
Спасибо, Tol!k.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Sun Dec 12, 2010 22:24 Post subject: |
|
|
Аналогичная кнопка для file-extensions.org
| Code: | 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
|
Ахтунг: некоторые категории там на нескольких страницах.
_________________
 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Dec 12, 2010 22:33 Post subject: |
|
|
Tol!k
Во как. А я с помощью старого варианта давно уже сделал.  |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
| (Separately) Posted: Mon Dec 13, 2010 08:47 Post subject: |
|
|
А где их больше всего? - Там или там?
| Tol!k wrote: | | Аналогичная кнопка для file-extensions.org |
Не работает. 
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Mon Dec 13, 2010 10:33 Post subject: |
|
|
> А где их больше всего? - Там или там?
Где больше всего – не знаю. На open-file.ru 17kB (21 категория), на file-extensions.org 57kB (28 категорий)
> Не работает.
Опера 10.61? А если опять "выделить всё, скопировать, кинуть в блокнот"?
Last edited by Tol!k on Mon Dec 13, 2010 11:34; edited 1 time in total |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
| (Separately) Posted: Mon Dec 13, 2010 11:02 Post subject: |
|
|
| Tol!k wrote: | | Опера 10.61? А если опять "выделить всё, скопировать, кинуть в блокнот"? |
И так, и так.
Страничка "Audio, music or song file extensions.txt" - 339.4 Кб
После действия кнопки - 0 б
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Dec 13, 2010 20:09 Post subject: |
|
|
| ask-rus wrote: | | А где их больше всего? - Там или там? |
Даже не обсуждается. Знаю порядка восьми сайтов-аналогов, нигде больше чем на file-extensions.org нет, да и вряд ли на тех сайтах есть расширения, которых нет на file-extensions.org.
| Tol!k wrote: | | http://depositfiles.com/files/xwt6334vw |
Почему не все? Там ещё такие есть: Binary, Common, Dangerous and malicious, Email attachment blocked, Graphics, Internet related, Office 2007 document, System, Text, Various data.
Да, замечу: в фильтрах и цветовых настройках нужно учитывать, что в различных категориях много совпадающих расширений. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Tue Dec 14, 2010 02:48 Post subject: |
|
|
| Flasher wrote: | | Почему не все? Там ещё такие есть: Binary, Common, Dangerous and malicious, Email attachment blocked, Graphics, Internet related, Office 2007 document, System, Text, Various data. |
Office 2007 document уже нет, кажется теперь это Microsoft Office files
А в остальных категориях "много совпадающих расширений" |
|
| Back to top |
|
|
ask-rus
Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation
|
| (Separately) Posted: Tue Dec 14, 2010 09:23 Post subject: |
|
|
| Flasher wrote: | | Да, замечу: в фильтрах и цветовых настройках нужно учитывать, что в различных категориях много совпадающих расширений. |
А зачем это учитывать? Это разве плохо?
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Tue Dec 14, 2010 12:42 Post subject: |
|
|
> А зачем это учитывать?
Расширение может оказаться в нескольких категориях, но цвет-то у файла м.б. только один |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
