mp3 tag

14/09/2009 - 16:52 por fredy | Informe spam
buenos dias.
quiero saber con vba que campos puedo obtener de un archivo binario mp3 tag.
la idea es listar los datos de mis mp3 y editarlos en una tabla de excel
para luego editar el archivo binario..

muchas gracias

coloco un ejemplo de como extraigo los datos, pero necesito saber el listado
total de campos que puedo obtener ya que aqui solo figuran unos cuantos
campos.. (siete)

Option Explicit


'Udt con la info del Tag

Type T_Tag_Mp3
Header As String * 3
SongTitle As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Comment As String * 30
Genre As Byte
End Type

Public Function Extraer_Tag_Mp3(Path_MP3 As String) As T_Tag_Mp3

On Error GoTo errSub

Dim archivo As Long

If Dir(Path_MP3) = "" Then Exit Function

archivo = FreeFile
'Abrimos el archivo Mp3 en modo binario de lectura
Open Path_MP3 For Binary Access Read As archivo
'Leemos la posición y almacenamos los datos en la función
Get archivo, LOF(1) - 127, Extraer_Tag_Mp3

'Cerramos el Archivo
Close archivo

Exit Function

'Error

errSub:

Close archivo
MsgBox Err.Description, vbCritical, " Ocurrió un error al leer el MP3 "
End Function
 

Leer las respuestas

#1 Héctor Miguel
15/09/2009 - 01:03 | Informe spam
hola, fredy !

quiero saber con vba que campos puedo obtener de un archivo binario mp3 tag.
la idea es listar los datos de mis mp3 y editarlos en una tabla de excel para luego editar el archivo binario...



aqui encuentras otros mecanismos y ejemplos:

Reading info from mp3 files using Shell32: -> http://tinyurl.com/mzumgb

read info mp3 file: -> http://tinyurl.com/l9r2bh

Shell32: -> http://tinyurl.com/nmvw47

si cualquier duda... comentas ?
saludos,
hector.

__ OP __
coloco un ejemplo de como extraigo los datos, pero necesito saber el listado total de campos que puedo obtener
ya que aqui solo figuran unos cuantos campos.. (siete)

'Udt con la info del Tag
Type T_Tag_Mp3
Header As String * 3
SongTitle As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Comment As String * 30
Genre As Byte
End Type

Public Function Extraer_Tag_Mp3(Path_MP3 As String) As T_Tag_Mp3
On Error GoTo errSub
Dim archivo As Long
If Dir(Path_MP3) = "" Then Exit Function
archivo = FreeFile
'Abrimos el archivo Mp3 en modo binario de lectura
Open Path_MP3 For Binary Access Read As archivo
'Leemos la posicion y almacenamos los datos en la funcion
Get archivo, LOF(1) - 127, Extraer_Tag_Mp3
'Cerramos el Archivo
Close archivo
Exit Function
'Error
errSub:
Close archivo
MsgBox Err.Description, vbCritical, " Ocurrio un error al leer el MP3 "
End Function

Preguntas similares