| View previous topic :: View next topic |
| Author |
Message |
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
 (Separately) Posted: Wed Oct 05, 2011 17:42 Post subject: |
 |
|
Только скриптом. На всякий случай: | history.txt wrote: | | 22.07.11 Added: Multi-rename tool: Directly accept backslashes in name field (for moving to subfolders) (32/64) |
Перевод: | Quote: | | 22.07.11 Добавлено: Инструмент группового переименования: Непосредственно принимает обратную косую черту в поле имени (для перемещения в поддиректории) (32/64) |
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон) |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Oct 05, 2011 17:45 Post subject: |
|
|
| Вахмурка wrote: | | Только скриптом. |
Сейчас прибежит покачавший головой Tol!k и напишет батник.  |
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Oct 05, 2011 18:26 Post subject: |
|
|
Батя батниками, как ни парадоксально, не увлекается.  А скрипт и я могу написать, если на вопрос ответ получу. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Wed Oct 05, 2011 19:58 Post subject: |
|
|
Я становлюсь предсказуемым? 
| Code: | @echo off &setlocal enableextensions &chcp 1251 >nul
rem Всё, кроме видео, переместить в подпапку
rem Важно! удалите пробелы в конце строк
rem Параметры: "%L"
rem Автор: Tol!k
for /f "usebackq delims=" %%l in ("%~1") do call :m "%%l" "%%l."
exit /b
:m
pushd %1 &md "%~nx2" ||(popd &goto :eof)
for /f "delims=" %%f in ('dir /b/a-d ^|findstr /ev ^
/rc:26[34] /rc:\.av[ci] /c:.flv /rc:\.m[24o]v /rc:\.mp[24]v* /rc:\.mpe*g /c:.ogm /c:.vob /rc:\.vp[67] /c:.xvid /c:.wmv'
) do move "%%f" "%~1%~nx2"
popd
goto :eof
|
расширения видео дополните самостоятельно
Last edited by Tol!k on Thu Oct 06, 2011 17:14; edited 2 times in total |
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
|
| Back to top |
|
|
Riemann
Joined: 24 Sep 2008
Posts: 23
|
| (Separately) Posted: Thu Oct 06, 2011 10:18 Post subject: |
|
|
| Flasher wrote: | | А jpg обязательно будут иметь спереди базовое имя avi? |
не обязательно |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Thu Oct 06, 2011 10:55 Post subject: |
|
|
| Ну и, как отличить нужные от ненужных? |
|
| Back to top |
|
|
Riemann
Joined: 24 Sep 2008
Posts: 23
|
| (Separately) Posted: Thu Oct 06, 2011 15:22 Post subject: |
|
|
| Tol!k wrote: | | Ну и, как отличить нужные от ненужных? |
все что не видео, то в папку с названием видео. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Thu Oct 06, 2011 17:15 Post subject: |
|
|
| обновил |
|
| Back to top |
|
|
Riemann
Joined: 24 Sep 2008
Posts: 23
|
| (Separately) Posted: Thu Oct 06, 2011 20:04 Post subject: |
|
|
| Создал батник, параметр для кнопки %L и иногда получается какая ересь, а иногда вообще 0 эффект. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Oct 06, 2011 20:28 Post subject: |
|
|
Riemann
А так?
| Code: | ' Создание подкаталогов внутри выделенных папок по имени файла
' с заданным расширением и перемещение в них остальных файлов
' Параметры: %L <расширение>
'=============================================================
Ext = WScript.Arguments(1)
With CreateObject("Scripting.FileSystemObject")
Set TempFile = .OpenTextFile(WScript.Arguments(0), 1)
Do While Not TempFile.AtEndOfStream
Fd = TempFile.ReadLine
If .FolderExists(Fd) Then
On Error Resume Next
For Each F in .GetFolder(Fd).Files
If StrComp(Ext, .GetExtensionName(F), 1) = 0 Then
NF = Left(F, Len(F)-Len(Ext)-1) & "\"
If Not .FolderExists(NF) Then .CreateFolder NF
Else .MoveFile F, NF
End If
Next
For Each F in .GetFolder(Fd).Files
If StrComp(Ext, .GetExtensionName(F), 1) > 0 Then .MoveFile F, NF
Next
End If
Loop
TempFile.Close
End With
WScript.Quit |
|
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Thu Oct 06, 2011 20:37 Post subject: |
|
|
| Riemann wrote: | | Создал батник, параметр для кнопки %L и иногда получается какая ересь, а иногда вообще 0 эффект. |
Путь запуска очистил?
Уникодные имена?
7? |
|
| Back to top |
|
|
Riemann
Joined: 24 Sep 2008
Posts: 23
|
| (Separately) Posted: Thu Oct 06, 2011 20:39 Post subject: |
|
|
А такой вариант вполне работает, только не сразу понял, что надо расширение фильма в параметрах. Благодарю.
Добавлено спустя 2 минуты:
| Tol!k wrote: | | Riemann wrote: | | Создал батник, параметр для кнопки %L и иногда получается какая ересь, а иногда вообще 0 эффект. |
Путь запуска очистил?
Уникодные имена?
7? |
Спасибо, но не станем мучать ваш вариант, а то взорвется моск (мой). |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Sat Oct 08, 2011 18:34 Post subject: |
|
|
| zlodei1988 wrote: | | Доброго времени суток Умные Люди! по теме созданию папок, есть ли возможность дописать какую то строку в код, чтобы только что созданные папки всегда были на виду! Когда создаешь папки, они доходят до нижнего уровня в ТС и создаются дальше, но их уже не видать( надо сделать так чтоб они всегда были на виду... спасибо за внимание... |
Сортировка рулит. Но это не по теме
Last edited by Tol!k on Mon Oct 10, 2011 00:07; edited 1 time in total |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
