Unire due file WAV - Cronologia

Vuott il 06:35, 26 lug 2025

2025-07-26T06:35:58Z

@@ Riga 4: / Riga 4: @@
 * 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()
@@ Riga 37: / Riga 38: @@
    fl.Close
   End

Vuott il 20:55, 18 giu 2024

2024-06-18T20:55:24Z

← Versione meno recente		Versione delle 14:55, 18 giu 2024
Riga 5:		Riga 5:

	Di seguito un possibile semplice codice:		Di seguito un possibile semplice codice:
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim fileWAV_1, fileWAV_2, s1, s2, fileWAV_finale As String		Dim fileWAV_1, fileWAV_2, s1, s2, fileWAV_finale As String
Riga 12:		Riga 12:
	Dim q1 As Integer		Dim q1 As Integer

	fileWAV_1 = "<FONT color=~~gray~~>''/percorso/del/'''primo'''/file.wav''</font>"		fileWAV_1 = "<FONT color=darkgreen>''/percorso/del/'''primo'''/file.wav''</font>"
	fileWAV_2 = "<FONT color=~~gray~~>''/percorso/del/'''secondo'''/file.wav''</font>"		fileWAV_2 = "<FONT color=darkgreen>''/percorso/del/'''secondo'''/file.wav''</font>"
	fileWAV_finale = "/tmp/finale.wav"		fileWAV_finale = "/tmp/finale.wav"

Riga 38:		Riga 38:
	fl.Close		fl.Close

	~~'''~~End~~'''~~		End

Vuott il 22:06, 19 set 2022

2022-09-19T22:06:19Z

← Versione meno recente		Versione delle 16:06, 19 set 2022
Riga 1:		Riga 1:
	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:		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;		* 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;		* eliminare l'intero blocco d'intestazione (''header'' ) del secondo file, ossia del file wav che sarà unito dopo (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.		* 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.

Vuott il 22:03, 19 set 2022

2022-09-19T22:03:23Z

← Versione meno recente		Versione delle 16:03, 19 set 2022
Riga 12:		Riga 12:
	Dim q1 As Integer		Dim q1 As Integer

	fileWAV_1 = "<FONT color=gray>''/percorso/del/primo/file.wav''</font>"		fileWAV_1 = "<FONT color=gray>''/percorso/del/'''primo'''/file.wav''</font>"
	fileWAV_2 = "<FONT color=gray>''/percorso/del/secondo/file.wav''</font>"		fileWAV_2 = "<FONT color=gray>''/percorso/del/'''secondo'''/file.wav''</font>"
	fileWAV_finale = "/tmp/finale.wav"		fileWAV_finale = "/tmp/finale.wav"

Vuott il 22:02, 19 set 2022

2022-09-19T22:02:50Z

← Versione meno recente		Versione delle 16:02, 19 set 2022
Riga 1:		Riga 1:
	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:		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;		* i due file da unire devono avere uguale frequenza e risoluzione di campionamento e uguale numero di canali;
	* eliminare l'intero primo blocco~~, ossia l~~'~~<I>~~header~~</i>~~, al secondo file che sarà unito alla fine del primo file wav;		* eliminare l'intero primo blocco d'intestazione (''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~~'~~<I>header</i>~~ del primo file.		* 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:		Di seguito un possibile semplice codice:
Riga 12:		Riga 11:
	Dim d1, d2 As Short		Dim d1, d2 As Short
	Dim q1 As Integer		Dim q1 As Integer

			fileWAV_1 = "<FONT color=gray>''/percorso/del/primo/file.wav''</font>"
			fileWAV_2 = "<FONT color=gray>''/percorso/del/secondo/file.wav''</font>"
			fileWAV_finale = "/tmp/finale.wav"

	~~fileWAV_1~~ = ~~"<FONT color=gray>''/percorso/del/primo/file~~.~~wav''</font>"~~		s1 = File.Load(fileWAV_1)
	~~fileWAV_2~~ = ~~"<FONT color=gray>''/percorso/del/secondo/file~~.~~wav''</font>"~~		s2 = File.Load(fileWAV_2)
	~~fileWAV_finale = "/tmp/finale.wav"~~

			d1 = InStr(s1, "data")
	~~s1 = File.Load(fileWAV_1)~~		d2 = InStr(s2, "data")
	~~s2 = File.Load(fileWAV_2)~~

	d1 = InStr(s1, "data")
	d2 = InStr(s2, "data")


	<FONT color=gray>' ''Individua e somma le dimensioni dei dati grezzi audio di ciascun file wav:''</font>		<FONT color=gray>' ''Individua e somma le dimensioni dei dati grezzi audio di ciascun file wav:''</font>
	q1 = (Stat(fileWAV_1).Size - (d1 + 7)) + (Stat(fileWAV_2).Size - (d2 + 7))		q1 = (Stat(fileWAV_1).Size - (d1 + 7)) + (Stat(fileWAV_2).Size - (d2 + 7))

	<FONT color=gray>' ''Salva il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:''</font>		<FONT color=gray>' ''Salva il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:''</font>
	File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - (d2 + 7)))		File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - (d2 + 7)))

	<FONT color=gray>' ''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:''</font>		<FONT color=gray>' ''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:''</font>
	fl = Open fileWAV_finale For Write		fl = Open fileWAV_finale For Write

	Seek #fl, 4		Seek #fl, 4
	Write #fl, (q1 + d1 + 7) - 8 As Integer		Write #fl, (q1 + d1 + 7) - 8 As Integer
	Seek #fl, (d1 + 3)		Seek #fl, (d1 + 3)
	Write #fl, q1 As Integer		Write #fl, q1 As Integer

	fl.Close		fl.Close

	'''End'''		'''End'''

Vuott il 10:04, 21 lug 2020

2020-07-21T10:04:54Z

← Versione meno recente		Versione delle 04:04, 21 lug 2020
Riga 13:		Riga 13:
	Dim q1 As Integer		Dim q1 As Integer

	fileWAV_1 = "''/percorso/del/primo/file.wav''"		fileWAV_1 = "<FONT color=gray>''/percorso/del/primo/file.wav''</font>"
	fileWAV_2 = "''/percorso/del/secondo/file.wav''"		fileWAV_2 = "<FONT color=gray>''/percorso/del/secondo/file.wav''</font>"
	fileWAV_finale = "/tmp/finale.wav"		fileWAV_finale = "/tmp/finale.wav"

Riga 28:		Riga 28:
	q1 = (Stat(fileWAV_1).Size - (d1 + 7)) + (Stat(fileWAV_2).Size - (d2 + 7))		q1 = (Stat(fileWAV_1).Size - (d1 + 7)) + (Stat(fileWAV_2).Size - (d2 + 7))

	<FONT color=gray>' ''~~Salviamo~~ il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:''</font>		<FONT color=gray>' ''Salva il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:''</font>
	File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - (d2 + 7)))		File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - (d2 + 7)))

	<FONT color=gray>' ''~~Aggiorniamo~~ i valori dei byte nn. 4, 5, 6, 7 e 40, 41, 42, 43''		<FONT color=gray>' ''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:''</font>
	~~' ''~~del primo file wav con la nuova dimensione del nuovo blocco dati audio grezzi:''</font>
	fl = Open fileWAV_finale For Write		fl = Open fileWAV_finale For Write

Vuott il 12:47, 28 gen 2014

2014-01-28T12:47:40Z

← Versione meno recente		Versione delle 06:47, 28 gen 2014
Riga 2:		Riga 2:
	* i due file da unire devono avere uguale frequenza di campionamento ed uguale numero di canali;		* i due file da unire devono avere uguale frequenza di campionamento ed uguale numero di canali;
	* eliminare l'intero primo blocco, ossia l'<I>header</i>, al secondo file che sarà unito alla fine del primo file wav;		* eliminare l'intero primo blocco, ossia l'<I>header</i>, 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 file wav, presenti nei byte n. 4, 5, 6, 7 e nei byte n. 40, 41, 42, 43 dell'<I>header</i> del primo file.		* 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'<I>header</i> del primo file.

Vuott il 12:46, 28 gen 2014

2014-01-28T12:46:43Z

← Versione meno recente		Versione delle 06:46, 28 gen 2014
Riga 2:		Riga 2:
	* i due file da unire devono avere uguale frequenza di campionamento ed uguale numero di canali;		* i due file da unire devono avere uguale frequenza di campionamento ed uguale numero di canali;
	* eliminare l'intero primo blocco, ossia l'<I>header</i>, al secondo file che sarà unito alla fine del primo file wav;		* eliminare l'intero primo blocco, ossia l'<I>header</i>, al secondo file che sarà unito alla fine del primo file wav;
	* 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'<I>header</i> del primo file.		* azzerare oppure, più correttamente, impostare i nuovi esatti 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'<I>header</i> del primo file.

Vuott il 12:45, 28 gen 2014

2014-01-28T12:45:41Z

← Versione meno recente		Versione delle 06:45, 28 gen 2014
Riga 29:		Riga 29:

	<FONT color=gray>' ''Salviamo il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:''</font>		<FONT color=gray>' ''Salviamo il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:''</font>
	File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - 44))		File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - (d2 + 7)))

	<FONT color=gray>' ''Aggiorniamo i valori dei byte nn. 4, 5, 6, 7 e 40, 41, 42, 43''		<FONT color=gray>' ''Aggiorniamo i valori dei byte nn. 4, 5, 6, 7 e 40, 41, 42, 43''

Vuott il 12:42, 28 gen 2014

2014-01-28T12:42:04Z

← Versione meno recente		Versione delle 06:42, 28 gen 2014
Riga 8:		Riga 8:
	'''Public''' Sub Main()		'''Public''' Sub Main()

	Dim s1, s2, ~~nuovoHeader~~ As String		Dim fileWAV_1, fileWAV_2, s1, s2, fileWAV_finale As String
			Dim fl As File
			Dim d1, d2 As Short
			Dim q1 As Integer

	s1 = ~~File~~.~~Load(~~"''/percorso/del/~~primo~~/file.wav''")		fileWAV_1 = "''/percorso/del/primo/file.wav''"
			fileWAV_2 = "''/percorso/del/secondo/file.wav''"
			fileWAV_finale = "/tmp/finale.wav"

	s2 = File.Load("~~''/percorso/del/secondo/file.wav''~~")
			s1 = File.Load(fileWAV_1)
			s2 = File.Load(fileWAV_2)

			d1 = InStr(s1, "data")
			d2 = InStr(s2, "data")


	<FONT color=gray>' ''~~Semplicemente azzeriamo i valori~~ dei ~~byte n~~. ~~4, 5, 6 e~~ 7 ~~del~~ primo file wav''</font>		<FONT color=gray>' ''Individua e somma le dimensioni dei dati grezzi audio di ciascun file wav:''</font>
	~~nuovoHeader = Left~~(s1~~, 4)~~		q1 = (Stat(fileWAV_1).Size - (d1 + 7)) + (Stat(fileWAV_2).Size - (d2 + 7))
	~~nuovoHeader~~ &~~= String$~~(4, ~~Chr~~(0))
			<FONT color=gray>' ''Salviamo il nuovo file WAV unendo al primo file wav il secondo file wav privato del suo header:''</font>
			File.Save(fileWAV_finale, s1 & Right(s2, Len(s2) - 44))

	<FONT color=gray>' ''~~Semplicemente inseriamo nel primo file wav~~ i valori ~~uguali a zero nei~~ byte n. 40, 41, 42, 43 ~~al posto dei precedenti~~:''</font>		<FONT color=gray>' ''Aggiorniamo i valori dei byte nn. 4, 5, 6, 7 e 40, 41, 42, 43''
	~~nuovoHeader &~~= ~~Mid(s1, 9, 32)~~		' ''del primo file wav con la nuova dimensione del nuovo blocco dati audio grezzi:''</font>
	~~nuovoHeader &= String$(4, Chr(0))~~		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

	~~<FONT color=gray>' ''Salviamo il nuovo file WAV unendo al primo file wav, come modificato, il secondo file wav privato del suo ''header'':''</font>~~		fl.Close
	~~File~~.~~Save("/tmp/nuovo.wav", nuovoHeader & Right(s1, Len(s1) - 44) & Right(s2, Len(s2) - 44))~~

	'''End'''		'''End'''