|
|
| (2 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Per estrarre da un file WAV i soli dati audio grezzi unicamente mediante le funzioni di Gambas, è possibile utilizzare un codice come il seguente:
| + | #REDIRECT [[Estrarre_da_un_file_WAV_i_dati_audio_grezzi_mediante_le_sole_risorse_di_Gambas]] |
| − | '''Public''' Sub Main()
| |
| − |
| |
| − | Dim percorsoFile, intero_file, dati_grezzi As String
| |
| − | Dim n As Short
| |
| − |
| |
| − |
| |
| − | percorsoFile = "''/percorso/del/file.wav''"
| |
| − |
| |
| − | intero_file = File.Load(percorsoFile)
| |
| − |
| |
| − | n = InStr(intero_file, "data")
| |
| − |
| |
| − | <FONT color=gray>' ''Prendiamo i soli dati audio grezzi dal file, eliminando quelli che compongono il suo "header":''</font>
| |
| − | dati_grezzi = Right(intero_file, Len(intero_file) - n - 7)
| |
| − |
| |
| − | File.Save("/tmp/grezzi", dati_grezzi)
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | oppure utilizzare le funzioni dei vettori di tipo ''Byte[]'':
| |
| − | '''Public''' Sub Main()
| |
| − |
| |
| − | Dim fileWAV As String
| |
| − | Dim fl, ex As File
| |
| − | Dim d As Short
| |
| − | Dim bb As Byte[]
| |
| − |
| |
| − |
| |
| − | fileWAV = "''/percorso/del/file.wav''"
| |
| − |
| |
| − | <FONT color=gray>' ''Carica un file audio Wav:''</font>
| |
| − | fl = Open fileWAV For Read
| |
| − |
| |
| − | d = InStr(File.Load(fileWAV), "data")
| |
| − |
| |
| − | bb = New Byte[Stat(fileWAV).Size - (d + 7)]
| |
| − |
| |
| − | <FONT color=gray>' ''Spostiamo il puntatore all'interno del flusso del file''
| |
| − | ' ''sul primo byte successivo all'header del file wav:''</font>
| |
| − | Seek #fl, d + 7
| |
| − | bb.Read(fl, 0, Stat(fileWAV).Size - (d + 7))
| |
| − |
| |
| − |
| |
| − | ex = Open "/tmp/dati_grezzi" For Create
| |
| − |
| |
| − | <FONT color=gray>' ''Scrive il file contenente i soli dati audio grezzi del file Wav:''</font>
| |
| − | bb.Write(ex)
| |
| − |
| |
| − |
| |
| − | <FONT color=gray>' ''Va in chiusura:''</font>
| |
| − | ex.Close
| |
| − |
| |
| − | fl.Close
| |
| − |
| |
| − | '''End'''
| |
