Estrarre i dati MIDI da un file PDF

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