Visual Basic 2008 m3u Playlist hilfe!!!

MediaXtremely · 8. Dezember 2011, 07:43

Hallo ihr Lieben.

Ich komme einfach nicht weiter. Ich versuche das meine Listview eine m3u Playlist einliest.
Ich habe bei Google nix gefunden, für Visual Basic 2008...
Ich habe einen Code gefunden, der ist aber für Visual Basic 05/06....

Kann ich den Code auch in Visual Basic 2008 anwenden oder um schreiben???

Hier der Code:

VB.NET-Quellcode

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!
'------------- Anfang Projektdatei Projekt1.vbp -------------
' Die Komponente 'Microsoft Common Dialog Control 6.0 (SP3) (COMDLG32.OCX)' wird benötigt.
' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6) (MsComCtl.ocx)' wird benötigt.
'--------- Anfang Formular "Form1" alias Form1.frm ---------
' Steuerelement: Listenanzeigesteuerungselement "ListView1"
' Steuerelement: Standarddialog-Steuerelement "CommonDialog1"
' Steuerelement: Schaltfläche "Command1"
'Hauptfunktion zum Auslesen udn einfügen in die ListView
Private Function ReadM3U(ByVal sFilename As String, LV_Playlist _
As ListView) As Boolean
Dim Textzeile As String
Dim Zeile As Long
Dim Wrong As Boolean
Dim LastZeile As String
Dim strLVText As String
Dim stred As Long
Dim Laenge As String
Dim Laenge_Text As String
Dim FileTitle As String
Dim FileExt As String
Dim Laenge_tmp
Dim F As Integer
On Error Goto ErrHandler
With LV_Playlist
' ListView-Spalten erstellen
.Sorted = False
.View = lvwReport
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Titel / Dateiname", .Width - 1600
.ColumnHeaders.Add , , "Länge", 1000, 1
' ListView-Einträge löschen
.ListItems.Clear
' Playlist auslesen
Zeile = 0
F = FreeFile
Open sFilename For Input As #F
' Schleife bis Dateiende
Do While Not EOF(F)
Zeile = Zeile + 1
' Zeile in Variable einlesen.
Line Input #F, Textzeile
If Zeile = 1 And Textzeile <> "#EXTM3U" Then
Wrong = True
End If
If Left$(LastZeile, 8) = "#EXTINF:" Then
' zusätzliche Infos der zuletzt eingelesenen
' Zeile auswerten
strLVText = Right$(LastZeile, Len(LastZeile) - 8)
' Länge (Spieldauer) ermitteln
stred = InStr(strLVText, ",")
If stred > 0 Then
Laenge = Left$(strLVText, stred - 1)
Laenge_Text = Format(Laenge / 60, "00.00")
Laenge_Text = ReplaceM(Laenge_Text, ",", ":", ".", _
":")
strLVText = Right$(strLVText, Len(strLVText) - stred)
Laenge_tmp = ""
stred = 0
stred = InStr(Laenge_Text, ":")
If stred > 0 Then
Laenge_tmp = Right$(Laenge_Text, Len(Laenge_Text) _
- stred)
Laenge_tmp = Format((Laenge_tmp / 99) * 60, "0")
Laenge_tmp = Format(Laenge_tmp, "00")
Laenge_Text = Left$(Laenge_Text, stred - 1) & ":" _
& Laenge_tmp
End If
End If
' Titel
FileTitle = GetFileFromPath(Textzeile)
FileExt = GetFileExt(FileTitle)
If FileExt <> "" Then
FileExt = "." & FileExt
End If
FileTitle = Left$(FileTitle, Len(FileTitle) - _
Len(FileExt))
' Aktuellen Titel im ListView anzeigen
If FileTitle <> strLVText Then
.ListItems.Add , , strLVText & " - [" & Textzeile & _
"]"
Else
.ListItems.Add , , strLVText
End If
.ListItems(.ListItems.Count).SubItems(1) = Laenge_Text
End If
LastZeile = Textzeile
Loop
' Datei schließen.
Close #F
End With
ErrHandler:
If Err > 0 Then
Wrong = True
End If
ReadM3U = (Wrong = False)
End Function
' String-Ersetzen
Function ReplaceM(ByVal FromStr As String, ParamArray _
varReplacements() As Variant) As String
Dim intMacro As Integer
Dim strResString As String
Dim nFrom As Integer
Dim nTo As Integer
Dim strMacro As String
Dim strValue As String
On Error Resume Next
strResString = FromStr
' Für jedes übergebene Makro/Wert-Paar...
nFrom = LBound(varReplacements)
nTo = UBound(varReplacements)
For intMacro = nFrom To nTo Step 2
strMacro = varReplacements(intMacro)
strValue = varReplacements(intMacro + 1)
On Error Goto 0
' Ersetzen aller vorkommenden strMacro
' durch strValue
Dim intPos As Integer
Do
intPos = InStr(strResString, strMacro)
If intPos > 0 Then
strResString = Left$(strResString, intPos - 1) & _
strValue & Right$(strResString, Len(strResString) _
- Len(strMacro) - intPos + 1)
End If
Loop Until intPos = 0
Next intMacro
ReplaceM = strResString
On Error Goto 0
Exit Function
End Function
' Ermittelt die Dateierweiterung eines Dateinamens
Function GetFileExt(Pfadname As String)
Dim Dateinamen As String
Dim Länge As Integer
Dim n As Integer
Dim Position As Integer
Länge = Len(Pfadname)
Do
n = InStr(n + 1, Pfadname, ".")
If n = 0 Then
Exit Do
End If
Position = n
Loop
If Position <> 0 Then
GetFileExt = StrConv(Right$(Pfadname, Länge - Position), _
vbUpperCase)
End If
End Function
' Filtert Playlist namen
Function GetFileFromPath(Pfadname As String)
Dim Dateinamen As String
Dim Länge As Integer
Dim n As Integer
Dim Position As Integer
Länge = Len(Pfadname)
Do
n = InStr(n + 1, Pfadname, "\")
If n = 0 Then
Exit Do
End If
Position = n
Loop
GetFileFromPath = Right$(Pfadname, Länge - Position)
End Function
Private Sub Command1_Click()
On Error Resume Next
' wenn ma der User nix auswählt ;)
'Commondialog Initialisieren
With CommonDialog1
.DialogTitle = "Playlist Öffnen"
.Filter = "Playlists|*.m3u"
.InitDir = "C:\"
.ShowOpen
End With
'Playlist Laden
ReadM3U CommonDialog1.FileName, ListView1
End Sub

Dodo · 8. Dezember 2011, 07:52

MediaXtremely schrieb:

Kann ich den Code auch in Visual Basic 2008 anwenden oder um schreiben???

Ja! Im Prinzip kann man fast den Code verwenden, weil blöderweise es den Microsoft.VisualBasic-Namespace gibt, welcher die alten VB6 Methoden und Funktionen zur verfügung stellt. Aber diese sollten bei guter Programmierung nicht mehr verwendet werden, manche sind langsamer, nicht mehr OOP usw.
Ich würde dir raten den Code komplett selbst zu schreiben, so schwer dürfte das nicht sein, eine Winamp Playlist ist ja nun nicht so schwer aufgebaut. Entweder mit Split() und IndexOf() oder besser mit RegEx, welches jedoch etwas komplizierter ist, jedoch würde dadruch der Code deutlich kürzer werden.

Aufjedenfall wären scohn Grundlagen nötig.

MediaXtremely · 8. Dezember 2011, 07:58

Danke für deine Antwort.
Ich kann die Listview speichern, aber wenn ich sie wieder lade, kann ich die Tracks nicht abspielen. Da fehlt wohl was, ich weis nur nicht was?

Hier die Code zum laden

VB.NET-Quellcode

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
OpenFileDialog2.ShowDialog()
Dim Path As String = OpenFileDialog2.FileName
Dim Allitems As String
Try
Allitems = My.Computer.FileSystem.ReadAllText(Path)
Dim ItemLines As New TextBox
ItemLines.Text = Allitems
For Each line As String In ItemLines.Lines
ListView1.Items.Add(line)
Next
Catch ex As Exception
End Try
End Sub

Und hier zum seichern:

VB.NET-Quellcode

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
SaveFileDialog1.ShowDialog()
Dim Path As String = SaveFileDialog1.FileName
Dim Allitems As String = ""
Try
For Itm = 0 To ListView1.Items.Count - 1
Allitems = Allitems & ListView1.Items.Item(Itm).Text & vbNewLine
Next
Allitems = Allitems.Trim
Catch ex As Exception
End Try
Try
If My.Computer.FileSystem.FileExists(Path) Then
My.Computer.FileSystem.DeleteFile(Path)
End If
My.Computer.FileSystem.WriteAllText(Path, Allitems, False)
Catch ex As Exception
End Try
End Sub

Ich habe keine Ahnung was da fehlt...

Dodo · 8. Dezember 2011, 08:01

hast du dir die m3u im Original und nach dem Abspeichern mal im Editor angeschaut? Also im Prinzip müssen ja beide die gleiche größe haben. Wenn dem nicht der Fall ist, haste schon was falsch gemacht.

MediaXtremely · 8. Dezember 2011, 08:16

Ich habe jetzt mal meine List und eine m3u liste im Editor angeschaut.

Meine Liste speichert nur den Tag also das Item, das was man in der Listview sieht und die m3u speicher das Item und den Pfad zur Datei.

Wie kann ich jetzt noch den Pfad mit speichern???

Dodo · 8. Dezember 2011, 08:43

Nunja, indem du ihn beim auslesen mit speicherst.

MediaXtremely · 8. Dezember 2011, 10:34

Und wie mach ich das?

Kannst du mir wenigsten einen Tipp geben??

Bitte??

Dodo · 8. Dezember 2011, 10:38

Nun, den Pfad könntest du z.B. in der Tag-Eigenschaft eines ListViewItems abspeichern.

Es gibt viele Möglichkeiten, ich weiß ja nichtmal wie du die m3u ausließt in deine LsitView, da ist es auch schwierig Tips zu geben wie dabei dann bei dir dne Pfad mit speichern kannst.

MediaXtremely · 8. Dezember 2011, 10:56

Also die Items nehme ich so in die Listview auf:

VB.NET-Quellcode

Try
With OpenFileDialog1
.Filter = _
"MP3 Dateien (*.mp3*) |*.mp3*"
.FilterIndex = 1
If Form2.TextBox1.Text = "" Then
.InitialDirectory = "C:/"
Else
.InitialDirectory = Form2.TextBox1.Text
End If
.Title = "Dateien Hinzufügen"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
For Each s As String In OpenFileDialog1.FileNames
Dim Filename As String = System.IO.Path.GetFileName(s)
ListView1.Items.Add(Filename).Tag = s
Next
End If
End With
Catch ex As Exception
End Try

Da kommen der Pfad als Text und der Trackname als Tag zusammen und kann abgespielt werden.

Jetzt will ich das als Text Datei speichern und wieder laden, so das ich, wenn ich es lade auch wieder abspielen kann.

Dodo · 8. Dezember 2011, 11:09

nuja, dann musst du deine Liste durchgehen und den Pfad, der in der Tag-Eigenschaft steht einfach in die Textdatei schreiben.

MediaXtremely · 8. Dezember 2011, 11:21

Und dann passiert auch nix.
Selbst wenn ich nur den Pfad speichere. Und nur den Pfad in die Listview einfüge, kommt auch nix. es geht nur wenn ich die Lieder per OpenFileDialog einfüge.
Wenn ich es als Text speichere und lade, kann ich die nicht abspielen.

Wie bekomme ich die Informationen in Die Textdatei?
Und wie lade ich die Text Datei mit den Informationen??

Kann mir keiner helfen????

Dodo · 8. Dezember 2011, 11:25

Dann zeig uns doch mal ein bischel mehr Code, sollen wir Raten?? Wie die MP3 Dateien in deine ListView bekommst wissen wir nun, aber wie die Textdatei speicherst und lädst wissen wir nicht und somit auch nicht was du da ggf. falsch machst.

MediaXtremely · 8. Dezember 2011, 11:31

danke mache ich...

Hier wird er gespeichert:

VB.NET-Quellcode

SaveFileDialog1.ShowDialog()
Dim Path As String = SaveFileDialog1.FileName
Dim Allitems As String = ""
Try
For Itm = 0 To ListView1.Items.Count - 1
Allitems = Allitems & ListView1.Items.Item(Itm).Tag & vbNewLine & ListView1.Items.Item(Itm).Text
Next
Allitems = Allitems.Trim
Catch ex As Exception
End Try
Try
If My.Computer.FileSystem.FileExists(Path) Then
My.Computer.FileSystem.DeleteFile(Path)
End If
My.Computer.FileSystem.WriteAllText(Path, Allitems, False)
Catch ex As Exception
End Try

Und hier lade ich den Text:

VB.NET-Quellcode

OpenFileDialog2.ShowDialog()
Dim Path As String = OpenFileDialog2.FileName
Dim Allitems As String
Try
Allitems = My.Computer.FileSystem.ReadAllText(Path)
Dim ItemLines As New TextBox
ItemLines.Text = Allitems
For Each line As String In ItemLines.Lines
ListView1.Items.Add(line)
Next
Catch ex As Exception
End Try

Dodo · 8. Dezember 2011, 12:03

Nunja, erstmal schaue dir den StreamWriter an, der ist für dich besser geeignet als alles erst in einen String zu schreiben und dann noch den My-Namespace zu nutzen.

Zudem speicherst du ja zuerst den Pfad dann neue Zeile und dann das Lied, danach machst du aber keinen Zeilenumbruch, damit wird das nächste Mal der Pfad direkt hinter das Lied gesetzt. Wenn jedoch den StreamWrtier nutzt erübrigt sich das Problem, mit der WriteLine()-Methode.

Beim Auslesen fügst du JEDE Zeile in deine ListView ein, aber das klappt ja so nicht, da in der einen Zeile der Pfad steht und darunter die Datei.
Zudem musst du keine Textbox verwenden um an die Lines zu kommen, sondern nutze hierfür Split() bzw. ließ gleich alles über System.IO.File.ReadAllLines() ein, dann hast du gleich ein Array.
Dann machst du eine For Schleife mit Step 2 und ließt den Index des Arrays aus wo der Pfad drin steht und mit Index + 1 den Liedtitel.

MediaXtremely · 8. Dezember 2011, 12:30

Kannst du mir ein Codebeispiel geben??

Das habe ich probiert:

VB.NET-Quellcode

Dim writer As New StreamWriter(SaveFileDialog1.FileName)
writer.WriteLine(ListView1.Items)
writer.Close(

Dodo · 8. Dezember 2011, 13:16

Nunja, in deinem alten Code gehst du die Items in einer Schleif durch, wieso meinst du das hier nun nicht mehr machen zu müssen? Ich habe lediglich gesagt dass der StreamWrtier und die WriteLine-Methode dir das zusammenstellen des String abnimmt.

Code bauchst du nicht, du hast im prinzip schon alles was du brauchst, wenn du wirklich weißt, was dort passiert bekommst du das auch alleine hin. Wir geben hier lediglich Hilfestellung und programmieren nicht für jemand.

MediaXtremely · 8. Dezember 2011, 14:39

Ja du sollst mir auch nicht den Code schreiben.

Deine Hilfe hilft mir ja und ich danke dir sehr dafür, aber ich kann es nicht umsetzen, deswegen meine ich ein Beispiel...

Dodo · 8. Dezember 2011, 14:46

Nunja als Beispiel könnte ich jetzt deinen Code kopieren den schon hast

VB.NET-Quellcode

SaveFileDialog1.ShowDialog()
Dim Path As String = SaveFileDialog1.FileName
Dim Allitems As String = ""
Try
For Itm = 0 To ListView1.Items.Count - 1
Allitems = Allitems & ListView1.Items.Item(Itm).Tag & vbNewLine & ListView1.Items.Item(Itm).Text
Next
Allitems = Allitems.Trim
Catch ex As Exception
End Try
Try
If My.Computer.FileSystem.FileExists(Path) Then
My.Computer.FileSystem.DeleteFile(Path)
End If
My.Computer.FileSystem.WriteAllText(Path, Allitems, False)
Catch ex As Exception
End Try

Da hat du alles drin, wenn nicht sogar noch mehr, als du brauchst.

Erstmal würde ich das DialogResult auswerten, denn wenn man im Dialog Abbrechen drückt, wird es zu Fehlern kommen, die du anscheint mit Try-Catch abfängst, was aber nicht sauber ist. Mache einfach

VB.NET-Quellcode

If SaveDialog.ShowDialog()= DialogResult.OK Then
End If

Damit wird der Code nur ausgeführt wenn OK gewählt wurde.

Dann gehst du alle Items durch, das hast du schon, du stückelst momentan einen String zusammen, das machste weg und ersetzt das einfach durch die WriteLine-Methode des StreamWriters.

Also Ganz logisch vorgehen:

1. SaveDialog anzeigen
2. DialogResult auswerten
3. StreamWriter mit angegebenen Datei öffnen
4. Schleife durch die Items
5. Mittels WriteLine() die einzelnen Items wegschreiben
6. Wenn Schleife durchgelaufen ist, StreamWriter beenden
7. Sich freuen weil der Code so übersichtlich und vorallem kurz ist

MediaXtremely · 8. Dezember 2011, 15:12

Danke...

Ist alle plausibel, aber ich verstehe das nicht mit der Writeline:

VB.NET-Quellcode

SaveFileDialog1.ShowDialog()
Dim Path As String = SaveFileDialog1.FileName
Dim Allitems As String = ""
Try
For Itm = 0 To ListView1.Items.Count - 1
Dim writer As New StreamWriter(SaveFileDialog1.FileName)
writer.WriteLine(ListView1.Items.)
writer.Close()
Next
Allitems = Allitems.Trim
Catch ex As Exception
End Try
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If My.Computer.FileSystem.FileExists(Path) Then
My.Computer.FileSystem.DeleteFile(Path)
End If
My.Computer.FileSystem.WriteAllText(Path, Allitems, False)
End If

Jetzt steht nix in der text Datei und Das SavefileDialog öffnet sich nach dem OK nochmal...

Bin ich jetzt blöd???:)

SystemUnknow · 8. Dezember 2011, 15:27

codeproject.com/KB/audio-video/m3u_playlist_copier.aspx
oder
codeproject.com/KB/audio-video/MCIplayer.aspx

Visual Basic 2008 m3u Playlist hilfe!!!

Visual Basic 2008 m3u Playlist hilfe!!!

VB.NET-Quellcode

MediaXtremely schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

1 Benutzer hat hier geschrieben