Создание пробелов, интервала между каталогами, при создании списка файлов в каталогах и подкаталогах

@sotrudnik87 · Регистрация: 06.02.2019

Author24 — интернет-сервис помощи студентам

Все привет!
Есть батник с помощью которого я создаю опись каталогов, мне его помогли довести до ума в соседней ветке.

Windows Batch file

@echo off
chcp 1251
(for /f delims^= %%i in ('dir /s /b /a-d') do (
set "file=%%i"
call echo %%file:%cd%=%%
)) > Список.doc
start список.doc

По окончании он выводит вот такой список файлов

\А\Абвов Алексей\Сталкер-2\Сталкер-2 1.txt
\А\Абвов Алексей\Сталкер-2\Сталкер-2 2.txt
\А\Абвов Алексей\Сталкер-2\Сталкер-2 3.txt
\А\Абвов Алексей\Сталкер-2\Сталкер-2 4.txt
\А\Абвов Алексей\Третий шанс\1 Агент 000.txt
\А\Абвов Алексей\Третий шанс\2 Прораб стройки светлого будущего.txt
\А\Абвов Алексей\Цифровая крепость\1 Цифровая крепость.txt
\А\Абвов Алексей\Цифровая крепость\2 Цифровая крепость.txt
\А\Абвов Алексей\Цифровая крепость\3 Цифровая крепость.txt
\А\Абвов Алексей\Цифровая крепость\4 Цифровая крепость.txt
\А\Абвов Алексей\Черная полоса\Чёрная полоса 1.txt
\А\Абвов Алексей\Черная полоса\Черная полоса 2.txt
\А\Абвов Алексей\Что нас не убивает\1 Что нас не убивает.txt
\А\Абвов Алексей\Что нас не убивает\2 Испытание силой.txt
\А\Абдуллаев Чингиз\Дронго\001. Голубые ангелы .txt
\А\Абдуллаев Чингиз\Дронго\002. Почти невероятное убийство.txt
\А\Абдуллаев Чингиз\Дронго\003. Охота на человека.txt
\А\Абдуллаев Чингиз\Дронго\004. Игры профессионалов.txt
\А\Абдуллаев Чингиз\Дронго\005. В ожидании апокалипсиса.txt
\А\Абдуллаев Чингиз\Дронго\006. Правило профессионалов.txt
\А\Абдуллаев Чингиз\Дронго\007. Выбери себе смерть.txt
\А\Абдуллаев Чингиз\Дронго\008. Правила логики.txt
\А\Абдуллаев Чингиз\Дронго\009. Закон негодяев.txt
\А\Абдуллаев Чингиз\Дронго\010. Кредо негодяев.txt
\А\Абдуллаев Чингиз\Дронго\011. Совесть негодяев.txt

Как видите все в одной куче.
Подскажите, пожалуйста, возможно ли подредактировать этот батник. чтобы он делал интервалы между разными каталогами?
Чтоб было примерно так
\А\Абвов Алексей\Сталкер-2\Сталкер-2 1.txt
\А\Абвов Алексей\Сталкер-2\Сталкер-2 2.txt
\А\Абвов Алексей\Сталкер-2\Сталкер-2 3.txt
\А\Абвов Алексей\Сталкер-2\Сталкер-2 4.txt

\А\Абвов Алексей\Третий шанс\1 Агент 000.txt
\А\Абвов Алексей\Третий шанс\2 Прораб стройки светлого будущего.txt

\А\Абвов Алексей\Цифровая крепость\1 Цифровая крепость.txt
\А\Абвов Алексей\Цифровая крепость\2 Цифровая крепость.txt
\А\Абвов Алексей\Цифровая крепость\3 Цифровая крепость.txt
\А\Абвов Алексей\Цифровая крепость\4 Цифровая крепость.txt

\А\Абвов Алексей\Черная полоса\Чёрная полоса 1.txt
\А\Абвов Алексей\Черная полоса\Черная полоса 2.txt

\А\Абвов Алексей\Что нас не убивает\1 Что нас не убивает.txt
\А\Абвов Алексей\Что нас не убивает\2 Испытание силой.txt

\А\Абдуллаев Чингиз\Дронго\001. Голубые ангелы .txt
\А\Абдуллаев Чингиз\Дронго\002. Почти невероятное убийство.txt
\А\Абдуллаев Чингиз\Дронго\003. Охота на человека.txt
\А\Абдуллаев Чингиз\Дронго\004. Игры профессионалов.txt
\А\Абдуллаев Чингиз\Дронго\005. В ожидании апокалипсиса.txt
\А\Абдуллаев Чингиз\Дронго\006. Правило профессионалов.txt
\А\Абдуллаев Чингиз\Дронго\007. Выбери себе смерть.txt
\А\Абдуллаев Чингиз\Дронго\008. Правила логики.txt
\А\Абдуллаев Чингиз\Дронго\009. Закон негодяев.txt
\А\Абдуллаев Чингиз\Дронго\010. Кредо негодяев.txt
\А\Абдуллаев Чингиз\Дронго\011. Совесть негодяев.txt

@bidstrup · 15.07.2019, 12:22

PowerShell

1	gci *.txt -rec \| group Directory \|% { $_.group.fullname; "`n" }

@sotrudnik87 · 15.07.2019, 19:10 **[ТС]**

это надо добавить в мой батник? Какой строкой?

Добавлено через 33 минуты
разобрался! Все так просто, оказывается. Спасибо большое!!
Подскажи, пожалуйста. как убрать путь до файла до буквы "А"

E:\Папа\YandexDisk\Библиотека\Книги\А\Абвов Алексей\По следам алхимика\По следам Алхимика 1.txt
E:\Папа\YandexDisk\Библиотека\Книги\А\Абвов Алексей\По следам алхимика\По следам Алхимика 2.txt
E:\Папа\YandexDisk\Библиотека\Книги\А\Абвов Алексей\По следам алхимика\По следам Алхимика 3.txt

Чтоб в списке осталось так:
А\Абвов Алексей\По следам алхимика\По следам Алхимика 1.txt

Добавлено через 54 минуты
немного изменил твою команду.

gci *.txt -rec | group Directory |% { $_.group.fullname; "`n" } | Out-File -FilePath "Путь до папки\Название.txt"

теперь он не только показывает, но и сохраняет в нужную мне папку. Но вот решить ту проблему у меня не получается

@bidstrup · 17.07.2019, 00:20

PowerShell

1
2
3

$c = [System.IO.Path]::DirectorySeparatorChar 
 
gci *.txt -rec | group Directory |% { $_.group.fullname.foreach({$_ -replace "^(.*$c)(?=(\p{L})$c\2)",$null}); "`n" }

Добавлено через 1 час 55 минут
так культурнее:

PowerShell

1
2
3

function showpath($path) { $c=[System.IO.Path]::DirectorySeparatorChar; $path -replace "^(.*$c)(?=(\p{L})$c\2)",$null }
 
gci *.txt -rec | group Directory |% { $_.group.fullname.foreach{showpath($_)}; "`n" }

YuS_2 · 17.07.2019, 08:42

Сообщение от bidstrup

так культурнее:

культурнее, но явно не проверено...

Сообщение от bidstrup

$c=[System.IO.Path]:

irectorySeparatorChar; $path -replace "^(.*$c)(?=(\p{L})$c\2)",$null

- это проверялось на работоспособность?

надо бы удвоить, либо заэскейпить [regex]::escape($c)

@bidstrup · 17.07.2019, 14:43

Сообщение от YuS_2

это проверялось на работоспособность?

Под Windows нет, конечно. Обратная палка сыграла злую шутку ?

Добавлено через 39 минут

PowerShell

1
2

function showpath($path) { $c=[System.IO.Path]::DirectorySeparatorChar; $path -replace "^(.*\${c})(?=(\p{L})\${c}\2)",$null }
gci *.txt -rec | group Directory |% { $_.group.fullname.foreach{showpath($_)}; "`n" }

YuS_2 · 17.07.2019, 15:46

Не по теме:

Сообщение от bidstrup

Под Windows нет, конечно.

Действительно, зачем под Windows проверять, решение опубликованное в разделе про windows :) шутка...
Но это даже не в windows проблема, это ведь регэкспы так работают, что "обратные палки" необходимо экранировать... впрочем, и не под виндой должно быть то же самое, ибо... ибо... :)

@sotrudnik87 · 17.07.2019, 17:24 **[ТС]**

Спасибо большое за помощь!! Все работает как часики! немножко изменил, добавил в конце команду Out-File -FilePath "Путь до папки\Название.txt" чтобы он готовый результат записывал в файл
Еще раз огромное спасибо!!

@bidstrup · 17.07.2019, 17:29

Не по теме:

Сообщение от YuS_2

Действительно, зачем под Windows проверять

Я не покупал ни Windows 7, ни Windows 8, ни Windows 10; установлен только мой старенький XP
под virtualbox, под ним чаще всего бессмысленно что-либо проверять.

Сообщение от YuS_2

прочем, и не под виндой должно быть то же самое,

нет не то же самое, под *nix [System.IO.Path]::DirectorySeparatorChar вернёт прямой
слэш, поэтому всё работало и без экранирования. Опять моя ошибка, да.

YuS_2 · 17.07.2019, 19:20

Не по теме:

Сообщение от bidstrup

вернёт прямой
слэш, поэтому всё работало и без экранирования. Опять моя ошибка, да.

а, вон оно чо, тоды ой, естественно... прямой слэш - не помеха...
а ошибка - мелочь... не ошибается ведь только тот, кто ничего не делает.

@sotrudnik87 0 / 0 / 0 Регистрация: 06.02.2019 Сообщений: 6
	15.07.2019, 19:10 [ТС]	3
	это надо добавить в мой батник? Какой строкой? Добавлено через 33 минуты разобрался! Все так просто, оказывается. Спасибо большое!! Подскажи, пожалуйста. как убрать путь до файла до буквы "А" E:\Папа\YandexDisk\Библиотека\Книги\А\Абвов Алексей\По следам алхимика\По следам Алхимика 1.txt E:\Папа\YandexDisk\Библиотека\Книги\А\Абвов Алексей\По следам алхимика\По следам Алхимика 2.txt E:\Папа\YandexDisk\Библиотека\Книги\А\Абвов Алексей\По следам алхимика\По следам Алхимика 3.txt Чтоб в списке осталось так: А\Абвов Алексей\По следам алхимика\По следам Алхимика 1.txt Добавлено через 54 минуты немного изменил твою команду. gci *.txt -rec \| group Directory \|% { $_.group.fullname; "`n" } \| Out-File -FilePath "Путь до папки\Название.txt" теперь он не только показывает, но и сохраняет в нужную мне папку. Но вот решить ту проблему у меня не получается 0

YuS_2 Любознательный 5672 / 1687 / 314 Регистрация: 10.03.2016 Сообщений: 3,843
	17.07.2019, 08:42	5
	Сообщение от bidstrup так культурнее: культурнее, но явно не проверено... Сообщение от bidstrup $c=[System.IO.Path]:irectorySeparatorChar; $path -replace "^(.*$c)(?=(\p{L})$c\2)",$null - это проверялось на работоспособность? надо бы удвоить, либо заэскейпить [regex]::escape($c) 1

YuS_2
	17.07.2019, 15:46 #7
	Не по теме: Сообщение от bidstrup Под Windows нет, конечно. Действительно, зачем под Windows проверять, решение опубликованное в разделе про windows :) шутка... Но это даже не в windows проблема, это ведь регэкспы так работают, что "обратные палки" необходимо экранировать... впрочем, и не под виндой должно быть то же самое, ибо... ибо... :) 0

@sotrudnik87 0 / 0 / 0 Регистрация: 06.02.2019 Сообщений: 6
	17.07.2019, 17:24 [ТС]	8
	Спасибо большое за помощь!! Все работает как часики! немножко изменил, добавил в конце команду Out-File -FilePath "Путь до папки\Название.txt" чтобы он готовый результат записывал в файл Еще раз огромное спасибо!! 0

@bidstrup 418 / 178 / 27 Регистрация: 11.03.2018 Сообщений: 764
	17.07.2019, 17:29	9
	Не по теме: Сообщение от YuS_2 Действительно, зачем под Windows проверять Я не покупал ни Windows 7, ни Windows 8, ни Windows 10; установлен только мой старенький XP под virtualbox, под ним чаще всего бессмысленно что-либо проверять. Сообщение от YuS_2 прочем, и не под виндой должно быть то же самое, нет не то же самое, под *nix `[System.IO.Path]::DirectorySeparatorChar` вернёт прямой слэш, поэтому всё работало и без экранирования. Опять моя ошибка, да. 2

YuS_2
	17.07.2019, 19:20 Создание пробелов, интервала между каталогами, при создании списка файлов в каталогах и подкаталогах #10
	Не по теме: Сообщение от bidstrup вернёт прямой слэш, поэтому всё работало и без экранирования. Опять моя ошибка, да. а, вон оно чо, тоды ой, естественно... прямой слэш - не помеха... а ошибка - мелочь... не ошибается ведь только тот, кто ничего не делает. 0

Создание пробелов, интервала между каталогами, при создании списка файлов в каталогах и подкаталогах

Решение