Differenze tra le versioni di "Unire due file WAV"

Versione delle 15:03, 19 set 2022

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 e risoluzione di campionamento e uguale numero di canali;
• eliminare l'intero primo blocco d'intestazione (header ), al secondo file che sarà unito alla fine del primo file wav;
• 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 del blocco d'intestazione 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