Fondere insieme due file MIDI

Da Gambas-it.org - Wikipedia.
Versione del 19 gen 2014 alle 09:58 di Vuott (Discussione | contributi) (Creata pagina con 'Per fondere (mischiare) due file MIDI con le sole funzioni di Gambas, potrà essere utilizzato il seguente codice: '''Public''' Sub Main() Dim s1, s2, ss2, nt$, file_fina...')

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Per fondere (mischiare) due file MIDI con le sole funzioni di Gambas, potrà essere utilizzato il seguente codice:

Public Sub Main()

 Dim s1, s2, ss2, nt$, file_finale As String
 Dim nt1, nt2 As Byte
 
 
  s1 = File.Load("/percorso/del/primo/file.mid")
  s2 = File.Load("/percorso/del/secondo/file.mid")
   
' Individua il numero di tracce presenti nel primo file:
  nt1 = Asc(Mid(s1, 12, 1))

' Individua il numero di tracce presenti nel secondo file:
  nt2 = Asc(Mid(s2, 12, 1))

  nt$ = CStr(nt1 + nt2)

' Raccoglie solo la parte delle tracce "MTrk" del secondo file:
  ss2 = Right(s2, Len(s2) - 14)
   
  file_finale = Left(s1, 11) & Chr(nt$) & Right(s1, Len(s1) - 12) & ss2
   
  File.Save("/tmp/nuovo.mid", file_finale)

End