Zorion`s Weblog

Да, вот такая хитрая задача.

Есть у меня в машине магнитофон который играет ровно 648 песен и ни одной больше. Даже если просто взять 648 песен, то всё-равно будешь слушать что-то по порядку.

Набирать столько музыки руками, перед дальними поездками, желания особо нет. Раньше я спасался mediamonkey, но последнее время стараюсь отказаться от всего платного и особо от установки чего-либо в систему. Пришлось воспользоваться PowerShell.

Как всегда изобретать ни чего не пришлось, всё уже кем-то было придумано и сделано, осталось подогнать это под свои нужды.

Скрипт был взят тут

Ниже то, что получилось у меня.

Сразу есть вопросы

1. Почему я ставлю 648, а на выходе получаю чуть меньше? Где-то имена совпадают?
2. Как теперь с помощью PowerShell записать это всё на диск?

# get the music folder's path
$mp3 = Get-ChildItem D:\Musik\MP3 *.mp3 -Recurse | Get-Random -Count 648 |
Select-Object fullname
$mp3 | foreach {copy-item $_.fullname d:\musik\test -force}
$music = resolve-path "D:\Musik\test"

# get the sorted list of the songs
# filter files only (no directories)
$original = get-childItem $music *.mp3 -recurse | where {!$_.psIsContainer} |
Get-Random -Count 648

# change the Output Field Separator
$ofs = ''

$counter = 648

# create a list of new names from the first list
$new = $original | foreach {
# create the new name in the form of
# <counter><space><name> without the .mp3 extension
# and decrement the counter
"{0:000} - {1}" -f $counter--,
((split-path $_.fullname -leaf) -replace '\.mp3$')
} | foreach {
# limit the size of the new name to 22 chars
# and append the .mp3 extension (+4 chars)
# filename's length should be -le 26 chars
# here is why the $ofs was changed to an empty string
"$($_[0..21]).mp3"
}

# iterate through all elements and create a new list with
# escaped brackets in order for Rename-Item to rename all files
$original_ = $original | foreach {$_.fullName -replace '[\[\]]', '``$0'}

# verify that both lists are of the same size
if ($original_.length -eq $new.length) {
# pipe the lists' indices
0..($new.length - 1) | foreach {
# rename each file, _remove_ -whatIf if trial run succeeds
rename-item $original_[$_] $new[$_]
}
}

# restore the Output Field Separator to a space
$ofs = ' '