Ich verwende nämlich folgenden Code um die Einträge einer Winamp Playliste in eine Liste einzutragen um diese Später als Textdatei zu speichern:
Dim I, Zeile, Überprüfen, J, Komma
Dim Zähler As Integer
If List1.ListCount = 0 Then MsgBox "Keine Playliste geladen", vbInformation, "*.m3u -> *.txt", "", 0
Zähler = 0
For I = 1 To List1.ListCount - 1
Zeile = List1.List(I)
Überprüfen = Left(Zeile, 7)
If Überprüfen = "#EXTINF" Then
For J = 7 To 13
Komma = Mid(List1.List(I), J, 1)
If Komma = "," Then
Zähler = Zähler + 1
List2.AddItem Zähler & ". " & Mid(List1.List(I), J + 1)
End If
Next J
End If
Next I
List2.Visible = True
Ich weiß, der Code ist nicht gerade der beste aber ich hatte nicht viel Zeit .
Jetzt wollte ich eigentlich nur Fragen ob man diesen Code vielleicht noch vereinfachen könnte oder ob es auf eine ganz andere Weise noch einfacher geht.
Danke schon mal im voraus.
Dim I, Zeile, Überprüfen, J, Komma
Dim Zähler As Integer
If List1.ListCount = 0 Then MsgBox "Keine Playliste geladen", vbInformation, "*.m3u -> *.txt", "", 0
Zähler = 0
For I = 1 To List1.ListCount - 1
Zeile = List1.List(I)
Überprüfen = Left(Zeile, 7)
If Überprüfen = "#EXTINF" Then
For J = 7 To 13
Komma = Mid(List1.List(I), J, 1)
If Komma = "," Then
Zähler = Zähler + 1
List2.AddItem Zähler & ". " & Mid(List1.List(I), J + 1)
End If
Next J
End If
Next I
List2.Visible = True
Ich weiß, der Code ist nicht gerade der beste aber ich hatte nicht viel Zeit .
Jetzt wollte ich eigentlich nur Fragen ob man diesen Code vielleicht noch vereinfachen könnte oder ob es auf eine ganz andere Weise noch einfacher geht.
Danke schon mal im voraus.