SGC_ToneProt/Wav2MFCC.praat

   1 #! praat
   2 #
   3 # Bulk conversion of WAV to MFCC files
   4 # Only converts files that do not yet exist in the target directory
   5
   6 form Convert sounds to MFCC
   7     word source_dir ../wordlists/MandarinSounds
   8     word target_dir ../wordlists/MandarinSounds/mfcc
   9     positive number_of_Coefficients 12
  10 endform
  11
  12 sourceExt$ = "wav"
  13 targetExt$ = "mfcc"
  14
  15 # clearinfo
  16
  17 Create Strings as file list... SourceList 'source_dir$'/*.'sourceExt$'
  18 numberOfFiles = Get number of strings
  19
  20 #    printline 'source_dir$'/*.'sourceExt$' 'numberOfFiles'
  21
  22 for i from 1 to numberOfFiles
  23     select Strings SourceList
  24     inFile$ = Get string... 'i'
  25     outputFile$ = replace_regex$(inFile$, sourceExt$+"$", targetExt$, 1)
  26
  27     if not fileReadable("'target_dir$'/'outputFile$'")
  28         Read from file... 'source_dir$'/'inFile$'
  29         Rename... Source
  30         noprogress To MFCC... 'number_of_Coefficients' 0.015 0.001 100.0 100.0 0.0
  31         Write to short text file... 'target_dir$'/'outputFile$'
  32
  33         # Clean up
  34         select Sound Source
  35         plus MFCC Source
  36         Remove
  37     endif
  38 endfor
  39 select Strings SourceList
  40 Remove