Сегментер скриптов Praat не выводит файлы в указанный каталог - PullRequest
Новая
       99

Сегментер скриптов Praat не выводит файлы в указанный каталог

0 голосов
/ 03 мая 2020

Я пытаюсь запустить скрипт Praat, предоставленный: http://phonetics.linguistics.ucla.edu/facilities/acoustic/Segmenter.txt Однако, когда я запускаю скрипт с правильными каталогами, устанавливаю мою метку $ = 他, уровень = 2 и расширение = .wav. (Что предоставил китайский выравниватель Penn Phonetics Lab)

Я получаю в конце заявление "Все файлы были сегментированы! Хорошего дня!" но в моей назначенной выходной папке ничего нет.

Что не так? 

## This script sections a file into individual vowels, vowels having been marked  in some tier using some uniform label such as "v".
##  Each vowel is saved as an individual Praat Sound file with the name of the original file plus a number indicating which vowel is being saved.
## 25 milliseconds is included to either side of the vowel, to make sure that a formant object includes the entire vowel (25 ms. frames).

##  Specify the label you've used to mark your vowels here:
label$ = "他"

##  Specify the tier where the vowels are labeled here:
tier_number = 2

##  Specify the directory where your sound files and accompanying textgrids are located:
directory$ = "[user pathing]"

##  Specify the directory where you want the segmented vowel sound files to be stored:
outdir$ = "[user pathing]"

##  Specify what file extension your sound files end in (.wav, .aiff...)
extension$ = ".wav"

clearinfo
Create Strings as file list... list 'directory$'*'extension$'
number_of_files = Get number of strings

for a from 1 to number_of_files
     select Strings list
     current_sound$ = Get string... 'a'
     Read from file... 'directory$''current_sound$'
     current_sound$ = selected$("Sound")
     Read from file... 'directory$''current_sound$'.TextGrid
     number_vowels = Count labels... 1 'label$'
     Extract tier... 'tier_number'
     current_tier = selected ("IntervalTier")
     Get starting points... 'label$'
     starting_points = selected ("PointProcess")
     select 'current_tier'
     Get end points... 'label$'
     end_points = selected ("PointProcess")
     for i from 1 to number_vowels
          select 'starting_points'
          start'i' = Get time from index... 'i'
           select 'end_points'
           end'i' = Get time from index... 'i'
     endfor
     select Sound 'current_sound$'
      Edit
      for j from 1 to number_vowels
      editor Sound 'current_sound$'
               start = start'j'
               end = end'j'
               Select... 'start' 'end'
               Extract selection
        endeditor
        Write to binary file... 'outdir$''current_sound$'-'j'.Sound
     endfor
     select all
     minus Strings list
     Remove
endfor
select all
Remove
print All files have been segmented!  Have a nice day!
...