Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Переупорядочить папки по первым буквам их имён

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Itar-Tass



Joined: 18 Jan 2009
Posts: 48

Post (Separately) Posted: Wed Dec 16, 2009 19:58    Post subject: Reply with quote

А не подскажете какой-нибудь скрипт или прогу, чтобы папки
рассортировать в 30 подпапок с именами а,б,в,г, ....э,ю,я?

По первой букве названия папки.

 !  Avada:
В той теме, где было помещено это сообщение, оно являлось оффтопом. Отделяю в самостоятельную тему.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Dec 17, 2009 10:30    Post subject: Reply with quote

Itar-Tass wrote:
А не подскажете какой-нибудь скрипт

Подскажем.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Itar-Tass



Joined: 18 Jan 2009
Posts: 48

Post (Separately) Posted: Fri Dec 18, 2009 01:17    Post subject: Reply with quote

Спасибо большое.
Но этот скрипт только файлы раскидывает.А мне нужно папки.

P.S Avada sorry не хотел новые темы плодить.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Fri Dec 18, 2009 02:26    Post subject: Reply with quote

Itar-Tass
Сохрани код в текстовый файл с расширением .cmd ;
допиши остаток алфавита ;
помести файл в нужную папку (или создай кнопку) и запусти

:::::::::::::::::::::::::::::::::::::::::::::::::: абвг.cmd ::::::::::::::::::::::::::::::::::::::::::::::::::
Code:
@echo off &chcp 1251 >nul
rem Рассортировать папки в подпапки А,Б,В,Г,...
rem По первой букве в названии папки
setlocal enableextensions
for %%a in (А Б В Г Д Е) do (
for /d %%d in (%%a*) do (
if not "%%a"=="%%d" (
if not exist "%%a" md "%%a"
move "%%d" "%%a\%%d" >nul
)
)
)

:::::::::::::::::::::::::::::::::::::::::::::::::: абвг.cmd ::::::::::::::::::::::::::::::::::::::::::::::::::


Last edited by Tol!k on Sat Jan 09, 2010 16:03; edited 2 times in total
Back to top
View user's profile Send private message
Itar-Tass



Joined: 18 Jan 2009
Posts: 48

Post (Separately) Posted: Fri Dec 18, 2009 11:35    Post subject: Reply with quote

Спасибо, получилось.

Правда выскакивает Dos окно
Quote:

"chcp" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.


но я думаю это не страшно.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Fri Dec 18, 2009 12:25    Post subject: Reply with quote

Quote:
"chcp" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

Какая у тебя операционка? В XP д.б. файл C:\WINDOWS\system32\chcp.com
http://www.computerhope.com/chcphlp.htm
Back to top
View user's profile Send private message
Itar-Tass



Joined: 18 Jan 2009
Posts: 48

Post (Separately) Posted: Fri Dec 18, 2009 17:25    Post subject: Reply with quote

2003 server 64-bit engl with Mui

Списал файл из XP-надпись исчезла.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Mon Nov 28, 2011 18:48    Post subject: Reply with quote

Code:
@echo off &setlocal enableextensions &chcp 1251 >nul
rem Переместить выделенное в папки по первым буквам их имён
rem Параметры: "%F" "%T"

set "trg=%~2"
for /f "usebackq delims=" %%f in ("%~1") do call :move "%%f"
goto :eof

:move
set "l=%~1"
set "l=%l:~0,1%"
if not exist "%trg%%l%" md "%trg%%l%"
move %1 "%trg%%l%\%~1" >nul ||move "%~1." "%trg%%l%\%~1."
goto :eof
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва

Post (Separately) Posted: Fri May 04, 2012 03:48    Post subject: Reply with quote

Здравствуйте.
Tol!k

Вы как спец по батникам, не подскажете, почему при перемещении файлов, - данный батник, часто, вместо помещения файла в существующую папку, перемещает его рядом с созданием собственной папки с укороченным именем (значение 0,1% изменил для большей точности на 0,4%), вроде спец символы в именах и каталогах отсутствуют...
Можно сделать так, чтобы при неправильной интерпретации, папка с коротким именем не создавалась, а файл просто перемещался, или если это не возможно, вовсе оставался на месте..
Спасибо.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Fri May 04, 2012 18:05    Post subject: Reply with quote

нет 2го параметра?
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва

Post (Separately) Posted: Fri May 04, 2012 18:34    Post subject: Reply with quote

К сожалению, данный батник изначально создавался для другого задания и для моей цели не подойдет.
Спасибо.


Last edited by shveicar on Fri May 04, 2012 19:19; edited 1 time in total
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Fri May 04, 2012 18:56    Post subject: Reply with quote

Quote:
на деле происходит по другому

Потому что заказ был совершенно другой.
~0,1 определяет имя целевой папки, а не перемещаемых файлов.
Back to top
View user's profile Send private message
shveicar



Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва

Post (Separately) Posted: Fri May 04, 2012 19:09    Post subject: Reply with quote

Тогда, да в данном случае действительно другая тема...
Извиняюсь за недоразумение..
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri May 04, 2012 23:15    Post subject: Reply with quote

shveicar wrote:
Можно сделать так, чтобы при неправильной интерпретации, папка с коротким именем не создавалась, а файл просто перемещался
Какая ещё "интерпретация"? Может, инициализация? Тогда - сюда.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Fri May 04, 2012 23:53    Post subject: Reply with quote

Flasher, это не то.
Задача shveicar'a описана здесь
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group