Antes de nada, Feliz año !!
Este año voy a intentar ordenar la música, como tantos otros años
así que instale el programa EasyTAG pero, par ami sorpresa no funciona con los archivos ogg vorbis cuando debería hacerlo, así que antes de inventar la rueda hice un intento con MetaEdit pero me tira un error en el módulo ShowTags()
Te paso algo de feedback por si te resulta útil.
El problema se presenta cuando en el bucle se intenta separar con Split en el carácter ":" pero este no existe EL texto es el siguiente "[0m" y lo corregí así:
El botón tbSavePicture intenta poner la imagen incrustada en un archivo que se llama como el archivo de música, cuando creo que lo que debe suceder es que sa algo como "cover.jpg"
Nuevamente gracias por compartir el programa.
Este año voy a intentar ordenar la música, como tantos otros años
así que instale el programa EasyTAG pero, par ami sorpresa no funciona con los archivos ogg vorbis cuando debería hacerlo, así que antes de inventar la rueda hice un intento con MetaEdit pero me tira un error en el módulo ShowTags()Te paso algo de feedback por si te resulta útil.
Código:
Private Sub ShowTags()
Dim n As Integer
Dim aline As String[]
Dim ar As String[]
ar = $Track["Metadata"]
For n = 0 To ar.max
aline = Split(ar[n], ":")
If aline[1] > "" Then
showTag(aline)
Endif
Next
EndEl problema se presenta cuando en el bucle se intenta separar con Split en el carácter ":" pero este no existe EL texto es el siguiente "[0m" y lo corregí así:
Código:
Private Sub ShowTags()
Dim n As Integer
Dim aline As String[]
Dim ar As String[]
ar = $Track["Metadata"]
For n = 0 To ar.max
If InStr(ar[n], ":") Then
aline = Split(ar[n], ":")
If aline[1] > "" Then
showTag(aline)
Endif
Endif
Next
EndEl botón tbSavePicture intenta poner la imagen incrustada en un archivo que se llama como el archivo de música, cuando creo que lo que debe suceder es que sa algo como "cover.jpg"
Nuevamente gracias por compartir el programa.
1 Saludo.