Differenze tra le versioni di "Unire due file WAV"

Versione delle 03:04, 21 lug 2020

Per unire - l'uno dopo l'altro - due file audio di formato WAV con le sole funzioni di Gambas, bisognerà prestare cura ad almeno i seguenti aspetti:

• i due file da unire devono avere uguale frequenza di campionamento ed uguale numero di canali;
• eliminare l'intero primo blocco, ossia l'header, al secondo file che sarà unito alla fine del primo file wav;
• azzerare oppure, più correttamente, impostare i nuovi esatti valori che indicano le dimensioni del nuovo file wav unitario, 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 fileWAV_1, fileWAV_2, s1, s2, fileWAV_finale As String
 Dim fl As File
 Dim d1, d2 As Short
 Dim q1 As Integer
 
  fileWAV_1 = "/percorso/del/primo/file.wav"
  fileWAV_2 = "/percorso/del/secondo/file.wav"
  fileWAV_finale = "/tmp/finale.wav"


  s1 = File.Load(fileWAV_1)
  s2 = File.Load(fileWAV_2)
 
  d1 = InStr(s1, "data")
  d2 = InStr(s2, "data")
  
  
' Individua e somma le dimensioni dei dati grezzi audio di ciascun file wav:
  q1 = (Stat(fileWAV_1).Size - (d1 + 7)) + (Stat(fileWAV_2).Size - (d2 + 7))

' Salva il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:
  File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - (d2 + 7)))
 
' Aggiorna i valori dei byte nn. 4, 5, 6, 7 e 40, 41, 42, 43 del primo file wav con la nuova dimensione del nuovo blocco dati audio grezzi:
  fl = Open fileWAV_finale For Write
 
  Seek #fl, 4
  Write #fl, (q1 + d1 + 7) - 8 As Integer
  Seek #fl, (d1 + 3)
  Write #fl, q1 As Integer
 
  fl.Close

End