Differenze tra le versioni di "Estrarre i dati MIDI da un file PDF"
Da Gambas-it.org - Wikipedia.
| Riga 7: | Riga 7: | ||
Dim i, n As Integer | Dim i, n As Integer | ||
| − | s = File.Load("<FONT Color= | + | s = File.Load("<FONT Color=darkgreen>''/percorso/del/file.pdf''</font>") |
i = InStr(s, "MThd") | i = InStr(s, "MThd") | ||
Versione delle 18:37, 23 dic 2023
Se un file PDF possiede dati MIDI, questi possono essere raccolti per creare un file MIDI indipendente.
Mostriamo un possibile codice:
Public Sub Main()
Dim s As String
Dim i, n As Integer
s = File.Load("/percorso/del/file.pdf")
i = InStr(s, "MThd")
n = RInStr(s, "Length", i)
' Ottiene il valore della quantità dei dati MIDI dichiarato nel file PDF:
n = Val(Scan(Mid(s, n, i - n), "*Length * *")[1])
' Con i byte-dati estratti crea un file MIDI indipendente:
File.Save("/tmp/MIDI.mid", Mid(s, i, n))
End
