Umwandlung von Playlisten (Winamp, ITunes -> M740)

[smarties]

Moin,

ich finde den thread nicht mehr in dem es um ein Umwandlungsmakro ging.
Gibt's so etwas mittlerweile schon irgendwo zum download ?


Frohes Fest, Sebastian

[danmic]

Guckst Du hier (http://forum.digitalfernsehen.de/forum/showpost.php?p=604012&postcount=2)

[joker]

Hi,
Das Tool finde ich interessant - leider kann ich keinen Link finden zum Download.
gibt es einen im Forum oder auf der m740.info page?

[Betamaxxx]

Hier gibt es das Progi:
http://forum.digitalfernsehen.de/forum/showthread.php?p=604012#post604012

[karlo.h]

Hi,
Das Tool finde ich interessant - leider kann ich keinen Link finden zum Download.
gibt es einen im Forum oder auf der m740.info page?

Ohne Garantie etc. Pfade und so sind hard codiert und es ist praktisch alles ungetestet ;-)




' GPL - Autor: Karlo.h@gmx.net

option explicit

' Aufruf: AlleAlben
dim srcparam ' Parameter für Sourcepfad
dim destparam ' Parameter für Zielpfad
dim prefixparam ' Parameter für Dateiname-Prefix
dim dest ' Top-Level-Directory-Objekt zum Schreiben
dim source ' Top-Level-Directory zum Lesen der Listen
dim tab, nl

dim fs
set fs = CreateObject("Scripting.FileSystemObject")

Call Main()

WScript.Quit 0
'
'
'
sub Main()
argumenteAuswerten
initialisieren
listenSchreiben source, ""
End Sub

sub initialisieren
if fs.FolderExists(destparam) then
set dest = fs.GetFolder(destparam)
else
set dest = fs.CreateFolder(destparam)
end if

if fs.FolderExists(srcparam) then
set source = fs.GetFolder(srcparam)
else
WScript.Quit(1)
end if

tab = Chr(9)
nl = Chr(10)
end sub

sub argumenteAuswerten()
dim args
'
set args = WScript.Arguments
if args.Count < 3 then
prefixparam = "/pvr/media/PC3/Listen/"
else
prefixparam = args.Item(2)
end if
if args.Count < 2 then
destparam = "R:\Listen"
else
destparam = args.Item(1)
end if
if args.Count < 1 then
srcparam = "R:\Listen"
else
srcparam = args.Item(0)
end if
End sub

sub listenSchreiben(dir, relpath)
' rekursive Abarbeitung
dim subdir, datei
for each subdir in dir.SubFolders
listenSchreiben subdir, relpath + "/" + subdir.Name
next
for each datei in dir.Files
if Right(datei.Name, 4) = ".m3u" then
listeSchreiben datei, relpath
end if
next
end sub

sub listeSchreiben(liste, relpath)

dim artistdir
dim albumfile, albumfilename, albumtitel, albumpath
dim songs, zeile
dim position, count

WScript.StdOut.WriteLine("Bearbeite Liste >" + relpath + "/" + liste.Name + "<")

albumtitel = liste.Name
albumtitel = Replace(albumtitel, "/", "-")
albumtitel = Replace(albumtitel, "\", "-")
albumtitel = Replace(albumtitel, """", "´")

albumfilename = Left(liste.Path, Len(liste.Path)-4) + ".pla"
WScript.StdOut.WriteLine(" - Erstelle Datei >" + albumfilename + "<")

set albumfile = fs.CreateTextFile(albumfilename, true)
set songs = liste.OpenAsTextStream(1)
count = 0
do until songs.AtEndOfStream
zeile = songs.ReadLine
if Left(zeile,1) <> "#" then
count = count + 1
end if
loop
songs.Close
' Header schreiben
albumfile.Write("Name" + tab + tab + albumtitel + nl)
albumfile.Write("FileURL"+ tab + tab + prefixparam + albumtitel + ".pla" + nl)
albumfile.Write("MimeType"+ tab + tab + "(null)" + nl)
albumfile.Write("CreationTime"+ tab + tab + "0" + nl)
albumfile.Write("LastModificationTime"+ tab + tab + "0" + nl)
albumfile.Write("Looping"+ tab + tab + "1" + nl)
albumfile.Write("PlaybackMode"+ tab + tab + "1" + nl)
albumfile.Write("N"+ tab + tab + CStr(count) + nl)
' Songs schreiben
set songs = liste.OpenAsTextStream(1)
position = 0
do until songs.AtEndOfStream
zeile = songs.ReadLine
if Left(zeile, 1) <> "#" then
albumpath = Mid(zeile, 4)
albumpath = Replace(albumpath, "\", "/")
albumtitel = Mid(zeile, InStrRev(zeile, "\")+1)
albumfile.Write(tab + CStr(position) + " " + tab + "/pvr/media/PC1/" + albumpath + nl)
albumfile.Write(tab + CStr(position) + " " +tab + "(null)" + nl)
albumfile.Write(tab + CStr(position) + " " +tab + "0" + nl)
albumfile.Write(tab + CStr(position) + " " +tab + "(null)" + nl)
albumfile.Write(tab + CStr(position) + " " +tab + "(null)" + nl)
albumfile.Write(tab + CStr(position) + " " +tab + albumtitel + nl)
position = position+1
end if
loop
songs.Close
albumfile.Close
end sub

function gibDir(folder, subfoldername)
dim subfolder, f, folderpath
subfoldername = Replace(subfoldername, "/", "-")
subfoldername = Replace(subfoldername, "\", "-")
subfoldername = Replace(subfoldername, """", "´")
folderpath = folder.Path + "\" + subfoldername
set subfolder = Nothing
if fs.FolderExists(folderpath) then
set subfolder = fs.GetFolder(folderpath)
end if
if subfolder is nothing then
WScript.StdOut.WriteLine(" - Erstelle Ordner " + folderpath)
set subfolder = fs.CreateFolder(folderpath)
end if
set gibDir = subfolder
end function

[JungJ]

Das erstellen von Playlisten für MP3-Files - auch über mehrere Ebenen - habe ich zwischenzeitlich gelöst.
Leider habe ich die Box aber mit einer Playliste mit 1700 Eintragungen zum Absturz gebracht. Es war ein Reinstall mit Verlust aller Einstellungen notwendig.
Seitdem baue ich nur noch Playlisten pro Album auf.
Mein Programm steht als Freeware zur Verfügung.
Allerdings habe ich noch nicht alle Probleme bei der Präsentation unter
www.jung-hamburg.de und bei der Installation gelöst.
Seit heute (Version 0.3) werden auch die m3u-Listen von Winamp zu Playlisten umgeformt.

Zusätzlich bietet das Programm eine Funktion, die vorhandene Bilder auf
TV-Größe skaliert und passende Playlisten erstellt.

[Oldboke]

Das erstellen von Playlisten für MP3-Files - auch über mehrere Ebenen - habe ich zwischenzeitlich gelöst.
Leider habe ich die Box aber mit einer Playliste mit 1700 Eintragungen zum Absturz gebracht. Es war ein Reinstall mit Verlust aller Einstellungen notwendig.
Seitdem baue ich nur noch Playlisten pro Album auf.
Mein Programm steht als Freeware zur Verfügung.
Allerdings habe ich noch nicht alle Probleme bei der Präsentation unter
www.jung-hamburg.de und bei der Installation gelöst.
Seit heute (Version 0.3) werden auch die m3u-Listen von Winamp zu Playlisten umgeformt.

Zusätzlich bietet das Programm eine Funktion, die vorhandene Bilder auf
TV-Größe skaliert und passende Playlisten erstellt.

Playlisten mit mehr als 1000 Einträgen, sollen mit der nächsten FW funktionieren.
Ich kann auf meinem Rechner (XP,Sp2) JAI nicht installieren.

Kann mir vielleicht jemand einen Tip geben.
JRE 1.4.6 und 1.5 sind installiert.

[JungJ]

Was klappt nicht?
Der Link lautet:<a href="http://java.sun.com/products/java-media/jai/downloads/download-1_1_2.html"> http://java.sun.com/products/java-media/jai/downloads/download-1_1_2.html
</a> :)

[Oldboke]

Was klappt nicht?
Der Link lautet:<a href="http://java.sun.com/products/java-media/jai/downloads/download-1_1_2.html"> http://java.sun.com/products/java-media/jai/downloads/download-1_1_2.html
</a> :)

Hat mittlerweile geklappt. :)

[M.F.]

Nachdem ich nun bereits ca. 6 Std. erfolglos damit verbracht habe :mad: das Programm zum Laufen zu bekommen bitte ich nun hier um Hilfe.
Ich möchte in erster Linie Playlisten für Mp3 generieren.
Ich kann das Programm starten, habe demzufolge alle nötigen Javakomponenten installiert.
Die Mp3's befinden sich auf dem Netzwerkrechner "Kellerkind", Freigabeordner "Familie", dort in entsprechenden Ordnern.
In der Box ist PC1 Familie eingetragen.
Ich kriege nun bei meinen Versuchen immer die Meldung "Verzeichnis nicht über Share ereichbar".
Ich habe die Datei "SiemensM740AV.properties" mit einem Texteditor entsprechend verändert, nachdem ich im Program selbst keine Freigabeordner eintragen konnte.
Bislang sind es bei mir ziemlich blinde Versuche, in der Hoffnung irgendwann einen Treffer zu landen.
Nun gebe ich auf und bitte um Hilfe, bzw. um genaue Angaben, was ich eigentlich machen muß.
Mit Dank im Voraus,

Ciao Michael

[M.F.]

Kann mir denn keiner helfen.
Habe mich alternativ nun schon an die playlist-easy.pl gewagt. Als Windows-User habe ich langwierig Perl installiert. Bekomme zwar eine Datei geschrieben, aber deren Inhalt ist nicht korrekt.
Vieleicht erbarmt sich ja jemand mir das Programm von Hern Jung zu erklären.

Ciao Michael

[zoidberg]

Kannst Du mir mal eine fehlerhafte playliste schicken ?
Das kriegen wir schon ans fliegen mit playlist-easy.pl

Ciao

[m28]

@M.F.:
Ich sehe Du hast die selben Probleme wie ich. Ich hab mir in EXCEL nen VBA Makro geschrieben. Es hat mir inzwischen schon gute Dienste geleistet, doch weiß ich nicht, ob es in dem Zustand schon auf die Welt losgelassen werden kann.
Das Makro unterstützt bisher das Generieren von Playlisten aus Verzeichnissen. Ich habs bisher nur mit Office XP getestet. Falls Du Excel hast, kannst Du es einfach mal ausprobieren. Der Code kann meinetwegen auch verändert werden ...

m.

[Oldboke]

Hat denn jemand schonmal das prog von Herrn Jung zum Laufen bekommen ?

Ich bin zu blöd dazu :D

[M.F.]

Gratulation an m28!
Mit der Exeltabelle habe ich eine Playliste erzeugen können, die zwar noch nicht ganz so war wie sie sein sollte, da in der Liste nicht der Pfad zu meinem Musikverzeichnis stimmt.
Ich habe mir aber damit geholfen die erzeugte Playliste mit einem Editor zu bearbeiten und "Suche und Ersetzte" "PC1/ -> PC1/Musik/" und schon funktioniert alles.

Soweit so gut soll mir auch erst mal so reichen.
Danke für diese Möglichkeit.

Ciao Michael

PS: Danke auch für das Angebot von Zoidberg mir bei dem Perlscript unter die Arme zu greifen. Aber das Ganze ist mir zu hoch und es ist mir den Aufwand nicht wert. Frage am Rande: Ich habe ActivePerl installiert. Kann man es irgendwie deinstallieren, Kann man den Ordner einfach löschen, Deinstallationsroutine habe ich nicht gefunden.

[Markus]

Danke m28,
dein Excel-Makro hat wunderbar funktioniert. ;)
An den anderen Scripten bin ich leider gescheitert. :(

Schön dass du eine so einfache Lösung gefunden hast.

mfg
Markus