這可能會有幫助。
directory$ = "./"
list = Create Strings as file list... list 'directory$'*.wav
numberOfFiles = Get number of strings
if !numberOfFiles
exit There are no sound files in the folder!
endif
for current_file from 1 to numberOfFiles
select list
fileName$ = Get string... current_file
name$ = fileName$ - ".wav" - ".wav"
sound = Read from file... 'directory$''fileName$'
# min and max pitch
pulses = To PointProcess (periodic, cc)... 30 400
vuv = To TextGrid (vuv)... 0.02 0.01
Save as text file... 'directory$''name$'.TextGrid
plus pulses
plus sound
Remove
endfor
此外,您可以加入praat-users在雅虎的團隊中,保羅 - Praat的作者之一非常積極地回答問題。您可以在這裏瞭解更多關於praat腳本的詳細信息。 http://www.fon.hum.uva.nl/praat/manual/Scripting.html
謝謝。它像一個魅力。 – codef0rmer 2012-03-08 14:21:22