index souborů

[strobl.r]

Ahoj.. potřeboval bych nějakej prográmek na index souborů. Přiblížím: koupil sem si mp3jku která má náhodný přehrávání, ale vždycky jen z jednoho adresáře a chtěl bych aby mi to udělalo náhodný přehrávání z veškerý hudby co tam mám a to jde jedině tak že udělám playlist, kde budou všechny soubory napsaný, řádky v playlistu vypadají asi takto /MUSIC/DOBALE~1/DOBALE~1/01-JOH~1.MP3 opisovat adresy všech souborů se mi nechce... tak se vás ptám jestli nevíte o nějakým usnadnění předem díky:-)

[Reklama]

[Myloš]

Nech si vygenerovat playlist Winampem a případnou úpravu (kompatibilitu s tebou uváděným playlistem) pak můžeš udělat prostou náhradou textových řetězců v Notepadu nebo ve Wordu (CTRL+H). Na ukázku, jak vypadá playlist ve formátu m3u

Kód: Vybrat vše

#EXTM3U
#EXTINF:305,C & K Vocal - Generace (zivotopis)
CS\C&K_Vocal\(1977)_Generace\05)_Generace (zivotopis).mp3
#EXTINF:271,Laco Deczi - Sunrise Hunter
CS\Deczi_Laco\[1996]_Forever_Again\01)_Sunrise_Hunter.mp3
#EXTINF:484,Martin Kratochvil & Jazz Q - Madona.wav
CS\Jazz_Q\6)_[1980]_Hodokvas\3)_Madona.mp3
#EXTINF:674,King Crimson - Fracture
Zahranicni\King_Crimson\06)_Starless_And_Bible_Black_[1974]\8)_Fracture.mp3
#EXTINF:618,M. Efekt - Vysoka stolicka, dlhy popol
CS\Blue_Effect\[1977]_Svitanie\1)_Vysoka_stolicka,_dlhy_popol.mp3
#EXTINF:1120,Yes - Close To The Edge
Zahranicni\Yes\05_1972_-_Close_To_The_Edge\1)_Close_To_The_Edge.mp3
#EXTINF:376,Dagmar Andrtova & Radim Hladik - Warum noch singen
CS\Andrtova_Dagmar\[1996]_Voliera_-_+Radim_Hladik\3)_Warum_noch_singen.mp3
#EXTINF:295,Black Widow - Come to the sabbat
Zahranicni\Black_Widow\2)_Sacrifice_[1970]\3)_Come_to_the_sabbat.mp3


a jak vypadá ve formátu pls

Kód: Vybrat vše

[playlist]
File1=CS\C&K_Vocal\(1977)_Generace\05)_Generace (zivotopis).mp3
Title1=C & K Vocal - Generace (zivotopis)
Length1=305
File2=CS\Deczi_Laco\[1996]_Forever_Again\01)_Sunrise_Hunter.mp3
Title2=Laco Deczi - Sunrise Hunter
Length2=271
File3=CS\Jazz_Q\6)_[1980]_Hodokvas\3)_Madona.mp3
Title3=Martin Kratochvil & Jazz Q - Madona.wav
Length3=484
File4=Zahranicni\King_Crimson\06)_Starless_And_Bible_Black_[1974]\8)_Fracture.mp3
Title4=King Crimson - Fracture
Length4=674
File5=CS\Blue_Effect\[1977]_Svitanie\1)_Vysoka_stolicka,_dlhy_popol.mp3
Title5=M. Efekt - Vysoka stolicka, dlhy popol
Length5=618
File6=Zahranicni\Yes\05_1972_-_Close_To_The_Edge\1)_Close_To_The_Edge.mp3
Title6=Yes - Close To The Edge
Length6=1120
File7=CS\Andrtova_Dagmar\[1996]_Voliera_-_+Radim_Hladik\3)_Warum_noch_singen.mp3
Title7=Dagmar Andrtova & Radim Hladik - Warum noch singen
Length7=376
File8=Zahranicni\Black_Widow\2)_Sacrifice_[1970]\3)_Come_to_the_sabbat.mp3
Title8=Black Widow - Come to the sabbat
Length8=295
NumberOfEntries=8
Version=2

[mike007]

Na vytvoření M3U playlistu můžeš využít tohoto VB skriptu. Modře označený text zkopíruj do poznámkového bloku a ten ulož s příponou vbs (například m3u-generator.vbs). Poté stačí na tento skript přetáhnout složku s hudbou a automaticky se ti během vteřiny udělá playlist. Tak ať slouží.

Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, WshShell, cptTot, objArgs, arrFiles(), sExtToGet
Dim driveLetter, pathToScan, fold, nTime, sAppName
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
sAppName = "M3U generator"

'přípona pro vyhledání
sExtToGet = "mp3"

Set objArgs = WScript.Arguments
if ( objArgs.Count = 0 ) then
WshShell.Popup "Musíš na tento skript přetáhnout složku s hudbou... ", 5, sAppName, 48
WScript.Quit
end if
pathToScan = objArgs(0)
nTime = Timer

'spustíme vyhledávání ...
Call startScanning()


Set fso = nothing
Set WshShell = nothing

Sub startScanning()
Dim i, cpt, playlistPath
cptTot = 0
If fso.FolderExists(pathToScan) Then
ReDim arrFiles(0)
Set fold = fso.Getfolder(pathToScan)
playlistPath = fold.path &"\"& fold.Name & ".m3u"

Call DoIt(fold)
Else
WshShell.Popup "Složka """& pathToScan &""" neexistuje. ", 5, sAppName, 48
Wscript.quit
End If

' uložíme
If (UBound(arrFiles) > 0) Then
Call Quicksort(arrFiles,0,cptTot-1)
Call createAndSavePlaylist(arrFiles, playlistPath)
End If

WshShell.Popup "Hotovo. " & chr(13) & chr(13) & cptTot & _
" souborů bylo zaznamenáno do M3U souboru v " & _
pathToScan & Chr(13) & Chr(13) & showTime(nTime) _
, 0, sAppName, 64
End Sub

Sub AddFiles(fold)

Dim strExt, mpFiles, strName, foldName, foldPath, f

foldPath = fold.Path
Set mpfiles = fold.Files

For each f in mpfiles
strName = f.Name
strExt = LCase(fso.GetExtensionName(strName))
If strExt = sExtToGet Then
arrFiles(cptTot) = foldPath &"\"& UCase(Left(strName, 1)) & Mid(strName,2,Len(strName))
ReDim Preserve arrFiles(UBound(arrFiles)+1)
cptTot = cptTot + 1
End If
Next

End Sub

Sub createAndSavePlaylist(arrFiles, playlistPath)
Dim txt, txtFile

'-- vytvoření m3u souboru
If Not fso.FileExists(playlistPath) Then
Set txtFile = fso.CreateTextFile(playlistPath,true,false) 'ASCII
End If
Set txtFile = fso.GetFile(playlistPath)
Set txt = txtFile.OpenAsTextStream(ForWriting, 0) '0 pro ASCII (-1 pro Unicode)
txt.write Join(arrFiles,vbCrLf)
txt.close
Set txtFile = nothing
End Sub

Sub DoIt(fold)
Dim sfold, sfoo
Call AddFiles(fold)
Set sfold = fold.subfolders
for each sfoo in sfold
Call DoIt(sfoo)
Next
End Sub

Function showTime(nTime)
showTime = "Uplynulý čas : " & Round((Timer - nTime),2) &" vteřin"
End Function


Sub QuickSort(vec,loBound,hiBound)
Dim pivot,loSwap,hiSwap,temp

if hiBound - loBound = 1 then
if vec(loBound) > vec(hiBound) then
temp=vec(loBound)
vec(loBound) = vec(hiBound)
vec(hiBound) = temp
End If
End If

pivot = vec(int((loBound + hiBound) / 2))
vec(int((loBound + hiBound) / 2)) = vec(loBound)
vec(loBound) = pivot
loSwap = loBound + 1
hiSwap = hiBound

do

while loSwap < hiSwap and vec(loSwap) <= pivot
loSwap = loSwap + 1
wend
while vec(hiSwap) > pivot
hiSwap = hiSwap - 1
wend

if loSwap < hiSwap then
temp = vec(loSwap)
vec(loSwap) = vec(hiSwap)
vec(hiSwap) = temp
End If
loop while loSwap < hiSwap

vec(loBound) = vec(hiSwap)
vec(hiSwap) = pivot

if loBound < (hiSwap - 1) then Call QuickSort(vec,loBound,hiSwap-1)
if hiSwap + 1 < hibound then Call QuickSort(vec,hiSwap+1,hiBound)

End Sub

[JSinfo]

Videl bych to jeste jednoduseji. Staci vytvorit soubor s priponou .BAT a s obsahem jedineho prikazu

dir *.mp3 /b > seznam.m3u

Soubor umistite do adresare s .MP3 soubory a spustite
A mame plylist hotov

Pro .OGG a jine typy se jen upravi hledana pripona.

[Myloš]

Jako výpis souborů prima, sám to dělám podobně, ale výpis přes DIR není ve formátu M3U – podívej se na strukturu výše uvedeného M3U seznamu a uvidíš to.

Jinak si nejsem jistý, jestli strobl.r stojí o odpověď ještě po roce a půl. Než na nějaký dotaz zareaguješ, vždy se napřed podívej, ze kdy je poslední příspěvek, neboli je-li to ještě aktuální.

[JSinfo]

Ale je to ve formatu M3U.
Prikazy #EXTM3U a #EXTINF: nejsou povinne. Navic vnitrni informace ID3 maji vzdy prednost a jsou bohatsi.
Aktualnost dotazu je tu porad - seznamy mp3 jsou potreba kazdou chvili pro mnoho lidi. Sem jsem se dostal prave pri vyhledavani informaci na dane tema pro kolegu.

[Owner]

Pomocí toho příkazu to jde bez problému, ale jak zahrnout subsložky ?
Nějaký příkaz inc subdir ?
Zkoušel jsem toto : dir *.mp3 /b * /D > seznam.m3u , ale to vypíše jenom složky, ale ne jejich obsah.

[Myloš]

příkazy commandu mají přepínač /?
napíšeš-li například dir /?
vypíše ti to nápovědu. Tu můžeš přesměrovat do souboru takhle:
dir /? > jmenosouboru.txt

[Myloš]

To znamená, že příkaz
dir /s /b /on > jmenosouboru.priponasouboru
přesměruje rekursivní krátký výpis souborů (jen jména), to celé řazeno podle abecedy, do daného souboru.