Differenze tra le versioni di "Estrarre i dati MIDI da un file PDF"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
Mostriamo un possibile codice: | Mostriamo un possibile codice: | ||
− | + | Public Sub Main() | |
Dim s As String | Dim s As String |
Versione attuale 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