Differenze tra le versioni di "Estrarre da un file WAV i soli dati audio grezzi"

Da Gambas-it.org - Wikipedia.
(Creata pagina con '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() ...')
 
Riga 2: Riga 2:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
−
   Dim bb As Byte[]
+
   Dim s, grezzi As String
−
   Dim s As String
+
   Dim n as Short
 
   
 
   
 
   
 
   
 
   s = "''/percorso/del/file.wav''"
 
   s = "''/percorso/del/file.wav''"
 
    
 
    
−
  <FONT color=gray>' ''Prendiamo i soli dati audio grezzi dal file, eliminando quelli che compongono il suo ''header'';''
+
  n = InStr(s, "data")
−
' ''e con essi riempiamo una variabile vettoriale di tipo Byte[]:''</font>
+
 
−
   bb = Byte[].FromString(Right(File.Load(s), Len(File.Load(s)) - 44))
+
  <FONT color=gray>' ''Prendiamo i soli dati audio grezzi dal file, eliminando quelli che compongono il suo "header":''</font>
−
+
   grezzi = Right(s, Len(s) - n - 7)
 +
   
 +
  File.Save("/tmp/grezzi", grezzi)
 +
 
 
  '''End'''
 
  '''End'''

Versione delle 23:19, 18 gen 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 s, grezzi As String
 Dim n as Short


  s = "/percorso/del/file.wav"
 
  n = InStr(s, "data")
  
' Prendiamo i soli dati audio grezzi dal file, eliminando quelli che compongono il suo "header":
  grezzi = Right(s, Len(s) - n - 7)
   
  File.Save("/tmp/grezzi", grezzi)
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Estrarre_da_un_file_WAV_i_soli_dati_audio_grezzi&oldid=14677"