Форум программистов, компьютерный форум, киберфорум
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
3 / 3 / 0
Регистрация: 23.08.2013
Сообщений: 85

Переименование первых подпапок в каждой папке

24.10.2013, 02:25. Показов 3280. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Можно ли создать батник который входил в некую Главную папку, имеющую множество подпапок с разными уровнями вложения и со всеми этими подпапками (всех уровней вложения) проделывал бы следующее - брал бы первую из них (как они расположены в папке) и добавлял в имя какой-то знак (например - @) спереди.

Добавлено через 6 минут
"Можно ли создать батник который входил в некую Главную папку ..."
Точнее было бы выразиться "анализировал бы некую Главную папку ..."
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.10.2013, 02:25
Ответы с готовыми решениями:

Количество подпапок в папке
Получается есть папка Cat в нем есть еще несколько папок (Допустим Cat1,Cat2.Cat3) и в них в свою очередь еще папки.... Вопрос как...

Получение списка подпапок в папке
Доброго времени суток, форумчане! Недавно я начал разработку одной программки, и столкнулся с проблемой вывода подпапок в указанной...

Узнать список подпапок в папке
Здраствуйте. подскажите, как узнать имена всех подпапок в определённой папке? И записать их(имена подпапок) в переменные или масив. Заранее...

12
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18033 / 7736 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
24.10.2013, 20:08
А задача то непростая, как кажется на первый взгляд.
Если мы получим слепок папок DIR, и начнем в каждой итерации переименование,
то 2-й уровень папок переименовать не получится - путь изменится уже.

Добавлено через 43 секунды
Т.е. переименовывать нужно последовательно по уровням.
Где-то был на форуме этот батник...

Добавлено через 7 минут
О, кажется придумал:

Bash
1
2
3
4
5
6
7
8
@echo off
SetLocal EnableExtensions
 
set prefix=@
set mainfolder=c:\temp
 
for /F "delims=" %%a in ('dir /b /s /ad "%mainfolder%" ^| sort /R') do move "%%~a" "%%~dpa%prefix%%%~nxa"
pause
Добавлено через 4 минуты
Цитата Сообщение от ruslaw Посмотреть сообщение
со всеми этими подпапками (всех уровней вложения) проделывал бы следующее - брал бы первую из них
блин, сделал не для первой, а для всех.

Ладно кто-то еще зайдет - поможет.
0
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
24.10.2013, 21:11
Вызов принят.
Код наиишу скорее всего завтра, ибо на планшете cmd нема
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18033 / 7736 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
24.10.2013, 21:13
Нэ порядок. Что там Андроид-разрабы бездельничают.
0
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
25.10.2013, 14:35
Цитата Сообщение от Dragokas Посмотреть сообщение
Что там Андроид-разрабы бездельничают
Выпендришись, можно открыть там shell линевый. Но это и все
0
2838 / 1647 / 254
Регистрация: 03.12.2007
Сообщений: 4,222
25.10.2013, 18:51
Что-то типа этого:
Bash
1
2
3
4
5
6
7
SetLocal EnableExtensions EnableDelayedExpansion
set first=1
for /F "delims=" %%a in ('dir /b /s /ad %2 ^| sort') do (
    if !first!==1 move "%%a" "%%~dpa%1%%~nxa"
    set first=0
    call %0 %1 "%%a"
)
Только имена должны быть без восклицательных знаков - долго я соображал, почему не работало...
0
3 / 3 / 0
Регистрация: 23.08.2013
Сообщений: 85
25.10.2013, 19:22  [ТС]
Спасибо. Но он так долго работает. У меня примерно 60 папок, где-то по 2-3 на каждом уровне и 4-5 уровней вложения. Никак не могу дождаться окончания работы, пашет уже минут 20.
!-знаков нет.
0
2838 / 1647 / 254
Регистрация: 03.12.2007
Сообщений: 4,222
25.10.2013, 22:26
Кстати, пайп с sort'ом не нужен - dir /o же. cmd лишние всё равно запускаются, но должно быть получше.
1
3 / 3 / 0
Регистрация: 23.08.2013
Сообщений: 85
25.10.2013, 23:03  [ТС]
Дождался таки - 29 минут. Но ... ничего, никакого результата.
Попробовал еще и так - сделал папку, положил в нее этот батник, создал в этой папке еще одну и запустил бат-файл - сделал за несколько секунд и тоже никакого результата.
Как первоначальный скрипт, так и без sort'а Но все-равно благодарю за усилия.
Но я кажется решил свою проблему.
Я просто исхитрился написать батник для создания в каждую папку по папке с именем "@"
0
2838 / 1647 / 254
Регистрация: 03.12.2007
Сообщений: 4,222
25.10.2013, 23:20
Вообще сортировка для нахождения минимума - это слишком...
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@echo off
:gogogo
setlocal EnableExtensions EnableDelayedExpansion
set dirsSize=0
for /d %%f in ("%~dpnx2\*") do (
    set /a dirsSize+=1
    set dirs[!dirsSize!]=%%f
)
if %dirsSize%==0 exit /b
set min=%dirs[1]%
for /l %%i in (1, 1, %dirsSize%) do (
    if !dirs[%%i]! lss !min! set min=!dirs[%%i]!
    call :gogogo %1 "!dirs[%%i]!"
)
for %%f in ("%min%") do move %%f "%%~dpf%1%%~nxf"
0
3 / 3 / 0
Регистрация: 23.08.2013
Сообщений: 85
26.10.2013, 01:06  [ТС]
Наконец-то работает, все отлично.
Только один нюанс - она добавляет название Главной папки в качестве необходимой мне метки в название первых папок. Я переименовал ее (Главную) в @ и получил исходный результат.
Спасибо!
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18033 / 7736 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
26.10.2013, 01:14
Цитата Сообщение от Somebody Посмотреть сообщение
call :gogogo %1 "!dirs[%%i]!"
А можете пояснить, что попадает в рекурсию и с какой целью вычисляется минимум?
Я интуитивно понимаю, но все же хочу услышать.
0
2838 / 1647 / 254
Регистрация: 03.12.2007
Сообщений: 4,222
26.10.2013, 11:29
В рекурсии %1 - добавляемый префикс, %2 == "!dirs[%%i]!" - имя папки с путём. Вызывается для всех подпапок той, которая обрабатывается сейчас.
Цитата Сообщение от ruslaw Посмотреть сообщение
брал бы первую из них (как они расположены в папке)
Тут, конечно, непонятно, по какому критерию папка первая, но, как я понял, с лексикографически минимальным именем. Хотя for вроде уже перебирает папки в таком порядке, я нигде не нашёл, чтобы такое поведение было документировано, поэтому решил на всякий случай отдельно искать минимум. Правда, сейчас подумал, что для папок, у которых имена - числа, строки будут сравниваться как числа, но это и в случае с for'ом так же. Так что тут опять вопрос в определении отношения порядка.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.10.2013, 11:29
Помогаю со студенческими работами здесь

Архивация подпапок в определенной папке, с учетом исключений
Здравствуйте, форумчане. Помогите с решением. У меня есть простой макрос архивации одной определенной папки C:\148\55 с паролем...

Поиск файлов по маске в папке с множеством подпапок
Скорее всего с этим уже все сталкивались. Поэтому просто покажите где искать?

Получение списка нужных папок и подпапок в указанной папке
Здравствуйте. Вот код: procedure TForm1.SearchDirs(aPath, aAddPath: AnsiString; aMask: TstringList; aList: TListBox); var SR :...

Функция поиска файла в папке и подпапок получения папок с файлом
Здравствуйте. Вот код: procedure TMyThread.ScanDir(aDir: string); var aPath: String; SearchRec: TSearchRec; FindResult:...

Как узнать имя и путь всех файлов и подпапок находящихся в папке?
Подсажите как можно узнать имя и путь всех файлов и подпапок находящихся в папке.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru