Differenze tra le versioni di "Estrarre i dati MIDI da un file PDF"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Se un file PDF possiede dati MIDI, questi possono essere raccolti per creare un file MIDI indipendent. Mostriamo un possibile codice: Public Sub Main() Dim s As String...") |
|||
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | Se un file PDF possiede dati MIDI, questi possono essere raccolti per creare un file MIDI | + | Se un file PDF possiede dati MIDI, questi possono essere raccolti per creare un file MIDI indipendente. |
Mostriamo un possibile codice: | Mostriamo un possibile codice: | ||
| − | + | Public Sub Main() | |
Dim s As String | Dim s As String | ||
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 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
