Unire due file WAV

Da Gambas-it.org - Wikipedia.

Per unire due file audio di formato WAV con le sole funzioni di Gambas, bisognerà prestare cure ad almeno i seguenti aspetti:

  • i due file da unire devono avere uguale frequenza di campionamento ed uguale numero di canali;
  • bisognerà eliminare l'intero primo blocco, ossia l'header, al secondo file che sarà unito alla fine del primo file wav;
  • bisognerà azzerare oppure impostare i nuovi corretti valori che indicano le dimensioni del file wav, presenti nei byte n. 4, 5, 6, 7 e nei byte n. 40, 41, 42, 43 dell'header del primo file.


Di seguito un possibile semplice codice:

Public Sub Main()

 Dim s1, s2, nuovoHeader As String
 
  s1 = File.Load("/percorso/del/primo/file.wav")

  s2 = File.Load("/percorso/del/secondo/file.wav")
  
' Semplicemente azzeriamo i valori dei byte n. 4, 5, 6 e 7 del primo file wav
  nuovoHeader = Left(s1, 4)
  nuovoHeader &= String$(4, Chr(0))
 
' Semplicemente inseriamo nel primo file wav i valori uguali a zero nei byte n. 40, 41, 42, 43 al posto dei precedenti:
  nuovoHeader &= Mid(s1, 9, 32)  
  nuovoHeader &= String$(4, Chr(0))
 
 
' Salviamo il nuovo file WAV unendo al primo file wav, come modificato, il secondo file wav privato del suo header:
  File.Save("/tmp/nuovo.wav", nuovoHeader & Right(s1, Len(s) - 44) & Right(s2, Len(s) - 44))

End