Mp3 playlist

[Jonas]

Hallo

 

Holder på med en playlist her nå. Den loader alle adressene i en txt fil inn i list2 og denne koden skal få ut filnavnene og legge de i list1:

Private Sub loadlist1()
If List2.ListCount = 0 Then Exit Sub

Dim o
o = 0

Do
List2.ListIndex = o
CommonDialog2.FileName = List2.Text
List1.AddItem CommonDialog2.FileTitle
o = o + 1
If o = List2.ListCount Then Exit Sub
Loop

End Sub

Men den funker ikke! Filename blir korekt, men FileTitle blir bare blank. Er det noe jeg har gjort galt her, eller funker bare filetitle når man bruker en showopen?

Endret 26. mars 2004 av jonas22282460

[aadnk]

Ja, FileTitle blir bare fylt med data når noen av dialogene åpnes og en fil blir valgt. Bruk heller denne funksjonen:

 

Public Function GetFileTitle(FilePath As String) As String

GetFileTitle = Mid(FilePath, InStrRev(FilePath, "\") + 1)

End Function

[Jonas]

Hmm.. Prøvde den, men fikk den ikke helt til å virke.. GetFileTitle blir bare blank

Private Sub loadlist1()
Dim GetFileTitle
If List2.ListCount = 0 Then Exit Sub

Dim o As Double
o = 0

Do
List2.ListIndex = o
GetFileTitle = Mid(FilePath, InStrRev(List2.Text, "\") + 1)
List1.AddItem GetFileTitle
o = o + 1
If o = List2.ListCount Then Exit Sub
Loop

End Sub

Eller kan jeg heller ikke bruke denne koden sånn?

[aadnk]

Hvorfor brukte du bare ikke funksjonen og sparte oss begge fra masse trøbbel?

Uansett, du må skrive koden slik hvis du skal ungå å bruke en funksjon:

 

GetFileTitle = Mid(List2.Text, InStrRev(List2.Text, "\") + 1)

[Jonas]

Fordi jeg ikke viste hvordan jeg brukte den..

 

Men takk

[GeirGrusom]

sånn tilegg:

 

ID3 tag 1.0 er de siste 128 byte i MP3 fila...

3 byte - ("TAG") for å sjekke om det er noen ID3 tag der

30 byte - Title

30 byte - Artist

30 byte - Album

4 byte - Year

30 byte - Comment

1 byte - Genre

[Jonas]

Noe sånt der jeg leter etter ja Men hvordan får jeg ut de 128 siste byte'ene?

[aadnk]

Se litt på dette eksempelet. Det støtter både ID3 tag v.1.0 og v.2.0, noe som gir større funksjonalitet i programmet. Koden er også enkel å bruke, samtidig som den gir mulighet for å endre på tag'en.