Hola tengo un lío. bueno más claro no entiendo. Estoy leyendo el ID3 "La información de Titulo, Autor, etc" que viene en los MP3. Pues resulta que encontré un código que extrae los último 128 bytes del MP3, que es donde se guarda los TAG's.
Dim sFile As String
Dim sCadena As String
sFile = App.Path & "Wow.mp3"
Open sFile For Binary As 1#
Get 1#, LOF(1) - 127, sCadena
Close 1#
MsgBox sCadena
con el código anterior estoy suponiendo que coje los ulitmos 128 bytes y lo almacena en
sCadena. Una vez almacenado pensaba extraer los datos usando
MID, pero al mostrar
sCadena no muestra nada. Sin enbargo, cuádo a
sCadena lo declaro como
Type recién muestra el TAG
Private Type TAG
Header As String * 3
Titulo As String * 30
Artista As String * 30
Album As String * 30
Ano As String * 4
Comentario As String * 30
Genero As Byte
End Type
Dim sFile As TAG
Dim sCadena As String
sFile = App.Path & "Wow.mp3"
Open sFile For Binary As 1#
Get 1#, LOF(1) - 127, sCadena
Close 1#
MsgBox sCadena.Titulo
Alguién me podría explicar porque al declarar
sCadena como String no devuelve nada y al declararla como
Type sí??
O será que los binarios no soportan String??
Mostrar Mensajes
