Differenze tra le versioni di "Estrarre informazioni e TAG da un file MP3 con le sole funzioni di Gambas"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'E' possibile estrarre informazioni generali e TAG da un file MP3 con le sole funzioni di Gambas. Un possibile codice è il seguente: Private initium As Short Public Sub...') |
|||
| Riga 2: | Riga 2: | ||
Un possibile codice è il seguente: | Un possibile codice è il seguente: | ||
| − | Private initium As Short | + | '''Private''' initium As Short |
| − | Public Sub Main() | + | '''Public''' Sub Main() |
Dim fl, s, ver_mp3, layer, prot, medio, circa As String | Dim fl, s, ver_mp3, layer, prot, medio, circa As String | ||
| Riga 16: | Riga 16: | ||
fl = "''/percorso/del/file.mp3''" | fl = "''/percorso/del/file.mp3''" | ||
| − | + | Print "File audio mp3: '"; File.Name(fl) | |
s = File.Load(fl) | s = File.Load(fl) | ||
| − | + | Print "\nDimensione: "; Len(s); " byte" | |
initium = 1 | initium = 1 | ||
| Riga 32: | Riga 32: | ||
tertium = Asc(s, j + 2) | tertium = Asc(s, j + 2) | ||
| − | '' Individua 2° byte dell'header per estrarre le seguenti informazioni generali sul file mp3: | + | <FONT color=gray>' ''Individua 2° byte dell'header per estrarre le seguenti informazioni generali sul file mp3:'' |
| − | ' - vesione MPEG; | + | ' ''- vesione MPEG;'' |
| − | ' - layer; | + | ' ''- layer;'' |
| − | ' - protezione. | + | ' ''- protezione.'' |
| − | ' I primi 3 bit più significativi (tutti posti a 1) appartengono con quelli del 1° byte all'identificazione dell'header. | + | ' ''I primi 3 bit più significativi (tutti posti a 1) appartengono con quelli del 1° byte all'identificazione dell'header.'' |
| − | ' Viene individuata la versione del file mp3: | + | ' ''Viene individuata la versione del file mp3:''</font> |
vB = Asc(s, j + 1) And 24 | vB = Asc(s, j + 1) And 24 | ||
Select Case vB | Select Case vB | ||
| Riga 50: | Riga 50: | ||
| − | ' Viene individuato il "Layer" del file mp3: | + | <FONT color=gray>' ''Viene individuato il "Layer" del file mp3:''</font> |
lB = Asc(s, j + 1) And 6 | lB = Asc(s, j + 1) And 6 | ||
Select Case lB | Select Case lB | ||
| Riga 62: | Riga 62: | ||
| − | ' Viene verificata la Protezione: | + | <FONT color=gray>' ''Viene verificata la Protezione:''</font> |
pB = Asc(s, j + 1) And 1 | pB = Asc(s, j + 1) And 1 | ||
Select Case pB | Select Case pB | ||
| Riga 71: | Riga 71: | ||
End Select | End Select | ||
| − | + | Print "Versione MPEG = "; ver_mp3, "Layer = "; layer, "Protezione CRC = "; prot | |
| − | '' Si analizza, quindi, il terzo byte per estrarre le seguenti informazioni generali sul file mp3: | + | <FONT color=gray>' ''Si analizza, quindi, il terzo byte per estrarre le seguenti informazioni generali sul file mp3:'' |
| − | ' - bitrate; | + | ' ''- bitrate;'' |
| − | ' - frequenza di campionamento; | + | ' ''- frequenza di campionamento;'' |
| − | 'Tali informazioni sono condizionate dalla versione e dal layer del file MPEG. | + | ' ''Tali informazioni sono condizionate dalla versione e dal layer del file MPEG.''</font> |
brB = Asc(s, j + 2) And 240 | brB = Asc(s, j + 2) And 240 | ||
bitrate = EstraeBitRate(ver_mp3, layer, brB) | bitrate = EstraeBitRate(ver_mp3, layer, brB) | ||
| Riga 101: | Riga 101: | ||
| − | If brVar > num_frame * 0. | + | If brVar > num_frame * 0.1 Then |
Select Case layer | Select Case layer | ||
| Riga 126: | Riga 126: | ||
Endif | Endif | ||
| − | + | Print "BitRate " & medio & "= "; bitrate | |
| − | + | Print "Frequenza = hz "; frequenza | |
| − | + | Print "Durata " & circa & "= "; Date(0, 0, 0, 0, 0, 0, durata) | |
| − | + | Print "\n== T A G ==" | |
If IsNull(tags) = False Then | If IsNull(tags) = False Then | ||
| Riga 140: | Riga 140: | ||
Endif | Endif | ||
| − | End | + | '''End''' |
| − | Private Function EstraeBitRate(Vmpeg As String, layB As String, bitB As Byte) As Short | + | '''Private''' Function EstraeBitRate(Vmpeg As String, layB As String, bitB As Byte) As Short |
Dim velCamp As Short | Dim velCamp As Short | ||
| − | If Vmpeg = "1" Then ' Nel caso di Mpeg vers. 1 | + | If Vmpeg = "1" Then <FONT color=gray>' ''Nel caso di Mpeg vers. 1''</font> |
| − | Select Case layB | + | Select Case layB <FONT color=gray>' ''Verifica il Layer''</font> |
Case "I" | Case "I" | ||
Select Case bitB | Select Case bitB | ||
| Riga 248: | Riga 248: | ||
Else | Else | ||
| − | Select Case layB | + | Select Case layB <FONT color=gray>' ''Verifica il Layer''</font> |
Case "I" | Case "I" | ||
Select Case bitB | Select Case bitB | ||
| Riga 317: | Riga 317: | ||
Return velCamp | Return velCamp | ||
| − | End | + | '''End''' |
| − | Private Function EstraeFrequenza(Vmpeg As String, fre As Byte) As Integer | + | '''Private''' Function EstraeFrequenza(Vmpeg As String, fre As Byte) As Integer |
Dim frq As Integer | Dim frq As Integer | ||
| Riga 326: | Riga 326: | ||
Select Case Vmpeg | Select Case Vmpeg | ||
| − | Case "1" ' Nel caso di Mpeg vers. 1 | + | Case "1" <FONT color=gray>' '' Nel caso di Mpeg vers. 1''</font> |
Select Case fre | Select Case fre | ||
Case 0 | Case 0 | ||
| Riga 335: | Riga 335: | ||
frq = 32000 | frq = 32000 | ||
End Select | End Select | ||
| − | Case "2" ' Nel caso di Mpeg vers. 2 | + | Case "2" <FONT color=gray>' ''Nel caso di Mpeg vers. 2''</font> |
Select Case fre | Select Case fre | ||
Case 0 | Case 0 | ||
| Riga 344: | Riga 344: | ||
frq = 16000 | frq = 16000 | ||
End Select | End Select | ||
| − | Case "2.5" | + | Case "2.5" <FONT color=gray>' ''Nel caso di Mpeg vers. 2.5''</font> |
Select Case fre | Select Case fre | ||
Case 0 | Case 0 | ||
| Riga 357: | Riga 357: | ||
Return frq | Return frq | ||
| − | End | + | '''End''' |
| − | Private Function EstraeTag(s As String) As String[] | + | '''Private''' Function EstraeTag(s As String) As String[] |
Dim ordo As New Integer[] | Dim ordo As New Integer[] | ||
| − | Dim j, rm, k, a | + | Dim j, rm, k, a As Integer |
Dim tag As String | Dim tag As String | ||
Dim tagg As New String[] | Dim tagg As New String[] | ||
| Riga 414: | Riga 414: | ||
End With | End With | ||
| − | If ordo.Count > 0 Then ' | + | If ordo.Count > 0 Then <FONT color=gray>' ''Se è stato trovato almeno un Tag''</font> |
While j < ordo.Count | While j < ordo.Count | ||
| Riga 436: | Riga 436: | ||
If j < ordo.Max Then | If j < ordo.Max Then | ||
| − | ' Verifica che il carattere ASCII sia una lettera o un numero oppure un segno di punteggiatura: | + | <FONT color=gray>' ''Verifica che il carattere ASCII sia una lettera o un numero oppure un segno di punteggiatura:''</font> |
If (k < ordo[j + 1]) And ((IsLetter(Mid(s, k, 1))) Or (IsDigit(Mid(s, k, 1))) Or (IsPunct(Mid(s, k, 1)))) Then | If (k < ordo[j + 1]) And ((IsLetter(Mid(s, k, 1))) Or (IsDigit(Mid(s, k, 1))) Or (IsPunct(Mid(s, k, 1)))) Then | ||
tag &= Mid(s, k, 1) | tag &= Mid(s, k, 1) | ||
| Riga 443: | Riga 443: | ||
Endif | Endif | ||
Else | Else | ||
| − | ' Verifica che il carattere ASCII sia una lettera o un numero oppure un segno di punteggiatura: | + | <FONT color=gray>' ''Verifica che il carattere ASCII sia una lettera o un numero oppure un segno di punteggiatura:''</font> |
If ((IsLetter(Mid(s, k, 1))) Or (IsDigit(Mid(s, k, 1))) Or (IsPunct(Mid(s, k, 1)))) Then | If ((IsLetter(Mid(s, k, 1))) Or (IsDigit(Mid(s, k, 1))) Or (IsPunct(Mid(s, k, 1)))) Then | ||
tag &= Mid(s, k, 1) | tag &= Mid(s, k, 1) | ||
| Riga 459: | Riga 459: | ||
tag = Null | tag = Null | ||
| − | ' Cerca di evitare di leggere l'header del 1° frame all'interno del gruppo dei Tag: | + | <FONT color=gray>' ''Cerca di evitare di leggere l'header del 1° frame all'interno del gruppo dei Tag:''</font> |
For a = 0 To ordo.Max - 1 | For a = 0 To ordo.Max - 1 | ||
If ordo[a + 1] - ordo[a] > 68 Then initium = ordo[a] + 24 | If ordo[a + 1] - ordo[a] > 68 Then initium = ordo[a] + 24 | ||
| Riga 470: | Riga 470: | ||
Endif | Endif | ||
| − | End | + | '''End''' |
| − | + | ||
| + | =Riferimenti= | ||
| + | [1] [[La_struttura_di_un_file_MPEG|La struttura di un file MPEG]] | ||
Versione delle 16:22, 18 feb 2014
E' possibile estrarre informazioni generali e TAG da un file MP3 con le sole funzioni di Gambas.
Un possibile codice è il seguente:
Private initium As Short
Public Sub Main()
Dim fl, s, ver_mp3, layer, prot, medio, circa As String
Dim j, frequenza, num_frame, brVar, totBR, durata1, durata2, durata As Integer
Dim vB, lB, pB, brB, frB As Byte
Dim secundum, tertium, bitrate, cpf As Short
Dim tags As String[]
fl = "/percorso/del/file.mp3"
Print "File audio mp3: '"; File.Name(fl)
s = File.Load(fl)
Print "\nDimensione: "; Len(s); " byte"
initium = 1
tags = EstraeTag(s)
For j = initium To Len(s) - 1
If (Asc(s, j) = 255) And (Asc(s, j + 1) > 241) And (Asc(s, j + 2) > 15) Then
secundum = Asc(s, j + 1)
tertium = Asc(s, j + 2)
' Individua 2° byte dell'header per estrarre le seguenti informazioni generali sul file mp3:
' - vesione MPEG;
' - layer;
' - protezione.
' I primi 3 bit più significativi (tutti posti a 1) appartengono con quelli del 1° byte all'identificazione dell'header.
' Viene individuata la versione del file mp3:
vB = Asc(s, j + 1) And 24
Select Case vB
Case 0
ver_mp3 = "2.5"
Case 16
ver_mp3 = "2"
Case 24
ver_mp3 = "1"
End Select
' Viene individuato il "Layer" del file mp3:
lB = Asc(s, j + 1) And 6
Select Case lB
Case 2
layer = "III"
Case 4
layer = "II"
Case 6
layer = "I"
End Select
' Viene verificata la Protezione:
pB = Asc(s, j + 1) And 1
Select Case pB
Case 0
prot = "Non protetto"
Case 1
prot = "Protetto"
End Select
Print "Versione MPEG = "; ver_mp3, "Layer = "; layer, "Protezione CRC = "; prot
' Si analizza, quindi, il terzo byte per estrarre le seguenti informazioni generali sul file mp3:
' - bitrate;
' - frequenza di campionamento;
' Tali informazioni sono condizionate dalla versione e dal layer del file MPEG.
brB = Asc(s, j + 2) And 240
bitrate = EstraeBitRate(ver_mp3, layer, brB)
frB = Asc(s, j + 2) And 12
frequenza = EstraeFrequenza(ver_mp3, frB)
Exit
Endif
Next
For j = 1 To Len(s) - 2
If (Asc(s, j) = 255) And (Asc(s, j + 1) = secundum) Then Inc num_frame
If (Asc(s, j) = 255) And (Asc(s, j + 1) = secundum) And (Asc(s, j + 2) <> tertium) Then
Inc brVar
brB = Asc(s, j + 2) And 240
totBR += EstraeBitRate(ver_mp3, layer, brB)
Endif
Next
If brVar > num_frame * 0.1 Then
Select Case layer
Case "I"
cpf = 384
Case "II"
cpf = 1152
Case "III"
If ver_mp3 = "1" Then
cpf = 1152
Else
cpf = 576
Endif
End Select
durata1 = Fix((num_frame * cpf / frequenza) * 1000)
bitrate = totBR / brVar
durata2 = Fix((Len(s) / bitrate) * 8)
durata = (durata1 + durata2) / 2
medio = "variabile medio "
circa = "circa "
Else
durata = Fix((Len(s) / bitrate) * 8)
Endif
Print "BitRate " & medio & "= "; bitrate
Print "Frequenza = hz "; frequenza
Print "Durata " & circa & "= "; Date(0, 0, 0, 0, 0, 0, durata)
Print "\n== T A G =="
If IsNull(tags) = False Then
For j = 0 To tags.Max
Print tags[j]
Next
Else
Print "Assenti !"
Endif
End
Private Function EstraeBitRate(Vmpeg As String, layB As String, bitB As Byte) As Short
Dim velCamp As Short
If Vmpeg = "1" Then ' Nel caso di Mpeg vers. 1
Select Case layB ' Verifica il Layer
Case "I"
Select Case bitB
Case 16
velCamp = 32
Case 32
velCamp = 64
Case 48
velCamp = 96
Case 64
velCamp = 128
Case 80
velCamp = 160
Case 96
velCamp = 192
Case 112
velCamp = 224
Case 128
velCamp = 256
Case 144
velCamp = 288
Case 160
velCamp = 320
Case 176
velCamp = 352
Case 192
velCamp = 384
Case 208
velCamp = 416
Case 224
velCamp = 448
End Select
Case "II"
Select Case bitB
Case 16
velCamp = 32
Case 32
velCamp = 48
Case 48
velCamp = 56
Case 64
velCamp = 64
Case 80
velCamp = 80
Case 96
velCamp = 96
Case 112
velCamp = 112
Case 128
velCamp = 128
Case 144
velCamp = 160
Case 160
velCamp = 192
Case 176
velCamp = 224
Case 192
velCamp = 256
Case 208
velCamp = 320
Case 224
velCamp = 384
End Select
Case "III"
Select Case bitB
Case 16
velCamp = 32
Case 32
velCamp = 40
Case 48
velCamp = 48
Case 64
velCamp = 56
Case 80
velCamp = 64
Case 96
velCamp = 80
Case 112
velCamp = 96
Case 128
velCamp = 112
Case 144
velCamp = 128
Case 160
velCamp = 160
Case 176
velCamp = 192
Case 192
velCamp = 224
Case 208
velCamp = 256
Case 224
velCamp = 320
End Select
End Select
Else
Select Case layB ' Verifica il Layer
Case "I"
Select Case bitB
Case 16
velCamp = 32
Case 32
velCamp = 48
Case 48
velCamp = 56
Case 64
velCamp = 64
Case 80
velCamp = 80
Case 96
velCamp = 96
Case 112
velCamp = 112
Case 128
velCamp = 128
Case 144
velCamp = 144
Case 160
velCamp = 160
Case 176
velCamp = 176
Case 192
velCamp = 192
Case 208
velCamp = 224
Case 224
velCamp = 256
End Select
Case "II" To "III"
Select Case bitB
Case 16
velCamp = 8
Case 32
velCamp = 16
Case 48
velCamp = 24
Case 64
velCamp = 32
Case 80
velCamp = 40
Case 96
velCamp = 48
Case 112
velCamp = 56
Case 128
velCamp = 64
Case 144
velCamp = 80
Case 160
velCamp = 96
Case 176
velCamp = 112
Case 192
velCamp = 128
Case 208
velCamp = 144
Case 224
velCamp = 320
End Select
End Select
Endif
Return velCamp
End
Private Function EstraeFrequenza(Vmpeg As String, fre As Byte) As Integer
Dim frq As Integer
Select Case Vmpeg
Case "1" ' Nel caso di Mpeg vers. 1
Select Case fre
Case 0
frq = 44100
Case 4
frq = 48000
Case 8
frq = 32000
End Select
Case "2" ' Nel caso di Mpeg vers. 2
Select Case fre
Case 0
frq = 22050
Case 4
frq = 24000
Case 8
frq = 16000
End Select
Case "2.5" ' Nel caso di Mpeg vers. 2.5
Select Case fre
Case 0
frq = 11025
Case 4
frq = 12000
Case 8
frq = 8000
End Select
End Select
Return frq
End
Private Function EstraeTag(s As String) As String[]
Dim ordo As New Integer[]
Dim j, rm, k, a As Integer
Dim tag As String
Dim tagg As New String[]
With ordo
.add(InStr(s, "TALB"))
.add(InStr(s, "TCOM"))
.add(InStr(s, "TCOP"))
.add(InStr(s, "TDAT"))
.add(InStr(s, "TDEN"))
.add(InStr(s, "TDLY"))
.add(InStr(s, "TDRC"))
.add(InStr(s, "TENC"))
.add(InStr(s, "TFLP"))
.add(InStr(s, "TIT1"))
.add(InStr(s, "TIT2"))
.add(InStr(s, "TIT3"))
.add(InStr(s, "TKEY"))
.add(InStr(s, "TLAN"))
.add(InStr(s, "TLEN"))
.add(InStr(s, "TMCL"))
.add(InStr(s, "TMED"))
.add(InStr(s, "TOAL"))
.add(InStr(s, "TOFN"))
.add(InStr(s, "TOLY"))
.add(InStr(s, "TOPE"))
.add(InStr(s, "TORY"))
.add(InStr(s, "TOWN"))
.add(InStr(s, "TPE1"))
.add(InStr(s, "TPE2"))
.add(InStr(s, "TPE3"))
.add(InStr(s, "TPE4"))
.add(InStr(s, "TPUB"))
.add(InStr(s, "TCON"))
.add(InStr(s, "TDRC"))
.add(InStr(s, "TRCK"))
.add(InStr(s, "TRDA"))
.add(InStr(s, "TRSN"))
.add(InStr(s, "TRSO"))
.add(InStr(s, "TSRC"))
.add(InStr(s, "TSSE"))
.add(InStr(s, "TYER"))
.add(InStr(s, "TXXX"))
.add(RInStr(s, "TXXX"))
.add(InStr(s, "COMM"))
.add(InStr(s, "PRIV"))
.add(RInStr(s, "PRIV"))
.add(RInStr(s, "WXXX"))
End With
If ordo.Count > 0 Then ' Se è stato trovato almeno un Tag
While j < ordo.Count
If ordo[j] = 0 Then
ordo.Remove(j)
Inc rm
Dec j
Endif
Inc j
Wend
ordo.Sort()
For j = 0 To ordo.Max
k = ordo[j]
While k < ordo[ordo.max] + 24
If j < ordo.Max Then
' Verifica che il carattere ASCII sia una lettera o un numero oppure un segno di punteggiatura:
If (k < ordo[j + 1]) And ((IsLetter(Mid(s, k, 1))) Or (IsDigit(Mid(s, k, 1))) Or (IsPunct(Mid(s, k, 1)))) Then
tag &= Mid(s, k, 1)
Else
tag &= " "
Endif
Else
' Verifica che il carattere ASCII sia una lettera o un numero oppure un segno di punteggiatura:
If ((IsLetter(Mid(s, k, 1))) Or (IsDigit(Mid(s, k, 1))) Or (IsPunct(Mid(s, k, 1)))) Then
tag &= Mid(s, k, 1)
Else
tag &= " "
Endif
Endif
Inc k
Wend
tagg.Add(tag)
tag = Null
' Cerca di evitare di leggere l'header del 1° frame all'interno del gruppo dei Tag:
For a = 0 To ordo.Max - 1
If ordo[a + 1] - ordo[a] > 68 Then initium = ordo[a] + 24
Next
Next
Return tagg
Endif
End
