Differenze tra le versioni di "Estrarre da un file WAV i soli dati audio grezzi"
Da Gambas-it.org - Wikipedia.
| Riga 2: | Riga 2: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | Dim | + | Dim percorsoFile, intero_file, dati_grezzi As String |
| − | Dim n | + | Dim n As Short |
| − | + | percorsoFile = "/home/ploppo/Scrivania/die.wav" | |
| − | n = InStr( | + | 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> | <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", | + | File.Save("/tmp/grezzi", dati_grezzi) |
'''End''' | '''End''' | ||
Versione delle 17:15, 20 mar 2014
Per estrarre da un file WAV i soli dati audio grezzi unicamente mediante le funzioni di Gambas, è possibile utilizzare un codice come il seguente:
Public Sub Main()
Dim percorsoFile, intero_file, dati_grezzi As String
Dim n As Short
percorsoFile = "/home/ploppo/Scrivania/die.wav"
intero_file = File.Load(percorsoFile)
n = InStr(intero_file, "data")
' Prendiamo i soli dati audio grezzi dal file, eliminando quelli che compongono il suo "header":
dati_grezzi = Right(intero_file, Len(intero_file) - n - 7)
File.Save("/tmp/grezzi", dati_grezzi)
End
