Показать полную графическую версию : [решено] Как отсортировать файлы?
Patroklos
15-07-2019, 15:45
У меня есть фильмы названные следующим образом: Название, год, оценка.
Hannibal Rising__2007__6.2__.mp4
Hannibal__2001__6.8__.mp4
Manhunter__1986__7.2__.mp4
Red Dragon__2002__7.2__.mp4
The Silence of the Lambs__1991__8.6__.mp4
Каким образом можно отсортировать файлы по году?
megaloman
15-07-2019, 18:22
Patroklos, Как понять "отсортировать"? Что в результате?@Echo Off
cls
Set "BoxIn=Z:\Box_In"
Set "Mask=*__????__?.?__.mp4"
FOR /L %%y IN (1900,1,2050) DO (
Call Set "MMask=%%Mask:????=%%y%%
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "%BoxIn%\%%MMask%%"`) DO (
Echo %%f
))
Pause
Exit /B
Patroklos, в Проводнике — стандартными средствами, полагаю, никак. В скрипте WSH — так:
Option Explicit
Const adVarChar = 200
Const adVarWChar = 202
Dim strSourceFolder
Dim objFSO
Dim objFile
Dim objRegExp
Dim objRecordSet
If WScript.Arguments.Count = 1 Then
strSourceFolder = WScript.Arguments.Item(0)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strSourceFolder) Then
Set objRegExp = WScript.CreateObject("VBScript.RegExp")
objRegExp.Pattern = "^.+__(\d{4})__\d\.\d__\.(?:avi|wmv|flv|3gp|webm|ogv|mpg|mpeg|mp4|mkv|m4v)$"
With WScript.CreateObject("ADODB.RecordSet")
With .Fields
.Append "File name", adVarWChar, 255
.Append "Year", adVarChar, 4
End With
.Open()
For Each objFile In objFSO.GetFolder(strSourceFolder).Files
If objRegExp.Test(objFile.Name) Then
.AddNew Array("File name", "Year"), Array(objFile.Name, objRegExp.Execute(objFile.Name).Item(0).Submatches.Item(0))
End If
Next
.Sort = "Year"
Do Until .EOF
WScript.Echo .Fields.Item("File name")
.MoveNext
Loop
.Close()
End With
Set objRegExp = Nothing
Else
WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
WScript.Quit 2
End If
Set objFSO = Nothing
Else
WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>"
WScript.Quit 1
End If
WScript.Quit 0
https://i.imgur.com/AKRYiYX.png
На PowerShell должно быть ещё проще — там можно тупо приписать новое свойство к производному классу и отсортировать по нему.
Patroklos
15-07-2019, 19:35
Как понять "отсортировать"? Что в результате? »
Прошу прощения что непонятно написал.
В результате хочу получить список фильмов отсортированный по году. От младшего к старшему.
Manhunter__1986__7.2__.mp4
The Silence of the Lambs__1991__8.6__.mp4
Hannibal__2001__6.8__.mp4
Red Dragon__2002__7.2__.mp4
Hannibal Rising__2007__6.2__.mp4
в Проводнике — стандартными средствами, полагаю, никак. »
Как раз в проводнике это элементарно. mp4 поддерживает теги с которыми проводник хорошо работает.
Но мне удобней накостылить свой лоунчер.
WSH »
Ужас. Я с WSH даже шапочно не знаком. Но спасибо, вот и повод познакомиться.
Как раз в проводнике это элементарно. mp4 поддерживает теги с которыми проводник хорошо работает. »
Так тэги — это тэги, про них ничего не было сказано, а у нас же в техзадании — просто часть имени файла.
В результате хочу получить список фильмов отсортированный по году. »
получить где? плейлист, консоль, файл, файловый менеджер?
powershell
самый простецкий вариант:
dir *.mp4|sort{$_.basename -replace '.*(\d{4}).*','$1'}
megaloman
15-07-2019, 20:19
@Echo Off
cls
>nul chcp 1251
Set "BoxIn=Z:\Box_In"
Set "Mask=*__????__?.?__.mp4"
Set "OutFile=Z:\Box_In\_Reestr.txt"
>"%OutFile%" (FOR /L %%y IN (1900,1,2050) DO (
Call Set "MMask=%%Mask:????=%%y%%
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "%BoxIn%\%%MMask%%"`) DO (
Echo %%f
)))
Pause
Exit /B
Patroklos
15-07-2019, 20:27
Так тэги — это тэги, про них ничего не было сказано, а у нас же в техзадании — просто часть имени файла. »
Справедливо замечено. Просто я теги рассматривал в первую очередь. Для этого они и придуманы.
получить где? плейлист, консоль, файл, файловый менеджер? »
Консоль. Дальше я уже сам осилю. Надеюсь.
А можно ещё сортировку по оценке?
megaloman, Спасибо большое, всё работает как надо!
А можно ещё сортировку по оценке? »
по аналогии:
dir *.mp4|sort {$_.basename -replace '.*_(\d\.\d)_.*','$1'}
Предполагаю следующий вопрос: "А можно ли совместить?"
- Можно :)
dir *.mp4|sort {$_.basename -replace '.*_(\d\.\d)_.*','$1'},{$_.basename -replace '.*_(\d{4})_.*','$1'}
Patroklos
15-07-2019, 21:04
Супер, спасибо! А как заставить ПоШ искать рекурсивно и при этом писать в консоль только имя и путь?
Я на сайте МС читаю хелп но он не мне не помог.
Я пишу -Recurse у меня в консоли бардак.
Я пишу -Name -Recurse он не желает искать рекурсивно.
Есть возможность совместить -Name и -Recurse ?
Есть возможность совместить -Name и -Recurse ? »
(dir *.mp4 -rec|sort {$_.basename -replace '.*_(\d\.\d)_.*','$1'},{$_.basename -replace '.*_(\d{4})_.*','$1'}).name
Patroklos
15-07-2019, 21:15
Отлично. Спасибо!
megaloman
16-07-2019, 09:59
Увы, но так коротко как в пошике, батник так не напишешь. @Echo Off
cls
>nul chcp 1251
Set "BoxIn=Z:\Box_In"
Set "Mask=*__????__?.?__.mp4"
Set "OutFile=Z:\Box_In\_Reestr.txt"
Set /A N=10000
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "%BoxIn%\%Mask%"`) DO (
Set "Name=%%~nf"
Set /A N+=1
Call Set "@@%%Name:*__=%%%%N%%=%%f"
)
>"%OutFile%" (FOR /F "usebackq tokens=1* delims==" %%a IN (`2^>nul Set "@@"`) DO Echo %%b)
Pause
Exit /B
@Echo Off
cls
>nul chcp 1251
Set "BoxIn=Z:\Box_In"
Set "Mask=*__????__?.?__.mp4"
Set "OutFile=Z:\Box_In\_Reestr.txt"
Set /A N=10000
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D /S "%BoxIn%\%Mask%"`) DO (
Set "Name=%%~nf"
Set /A N+=1
Call Set @@%%Name:*__="%%%%N%%=%%~nf" "%%~dpf"
)
>"%OutFile%" (FOR /F "usebackq tokens=1* delims==" %%a IN (`2^>nul Set "@@"`) DO Echo %%b)
Pause
Exit /B
Patroklos
16-07-2019, 17:52
megaloman, спасибо большое!
Patroklos
17-07-2019, 18:51
Уважаемый megaloman, к сожалению скрипт который ищет рекурсивно у меня не работает как надо.
@Echo Off
cls
>nul chcp 1251
Set "BoxIn=Z:\Box_In"
Set "Mask=*__????__?.?__.mp4"
Set "OutFile=Z:\Box_In\_Reestr.txt"
Set /A N=10000
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D /S "%BoxIn%\%Mask%"`) DO (
Set "Name=%%~nf"
Set /A N+=1
Call Set @@%%Name:*__="%%%%N%%=%%~nf" "%%~dpf"
)
>"%OutFile%" (FOR /F "usebackq tokens=1* delims==" %%a IN (`2^>nul Set "@@"`) DO Echo %%b)
Pause
Exit /B
Police Academy__1984__6.7__" "J:\#Films\"
Heat__1995__8.2__" "J:\#Films\"
The Matrix__1999__8.7__" "J:\#Films\Matrix\"
The Matrix Revolutions__2003__6.7__" "J:\#Films\Matrix\"
The Matrix Reloaded__2003__7.2__" "J:\#Films\Matrix\"
Elysium__2013__6.6__" "J:\#Films\"
Как видно имя файла впереди пути и нет расширения.
Я к сожалению не разобрался где и что менять.
Буду признателен если вы поможете починить.
Patroklos, пользуйте PowerShell, это надёжнее.
megaloman
17-07-2019, 21:13
писать в консоль только имя и путь »
Как видно имя файла впереди пути и нет расширения. »
Что просили, то и получили.
Если надо полный путь файлов в традиционном виде:@Echo Off
cls
>nul chcp 1251
Set "BoxIn=Z:\Box_In"
Set "Mask=*__????__?.?__.mp4"
Set "OutFile=Z:\Box_In\_Reestr.txt"
Set /A N=10000
FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D /S "%BoxIn%\%Mask%"`) DO (
Set "Name=%%~nf"
Set /A N+=1
rem Call Set @@%%Name:*__=%%%%N%%="%%~nf" "%%~dpf"
Call Set @@%%Name:*__=%%%%N%%=%%f
)
>"%OutFile%" (FOR /F "usebackq tokens=1* delims==" %%a IN (`2^>nul Set "@@"`) DO Echo %%b)
Pause
Exit /B
А как заставить ПоШ искать рекурсивно и при этом писать в консоль только имя и путь? »
Кстати, да, не обратил внимание, в отличие от megaloman, что вопрос был про имя и путь... но теперь уже и понятно, что нужен таки абсолютный путь с именем и расширением.
Для powershell, это будет так:
(dir *.mp4 -rec|sort {$_.basename -replace '.*_(\d\.\d)_.*','$1'},{$_.basename -replace '.*_(\d{4})_.*','$1'}).fullname
Patroklos
19-07-2019, 08:03
Всем спасибо большое! Выручили.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.