praat - Praat 脚本，提取强度

Question

到目前为止，这是我的脚本：

subject$ = "1307_2014_Feb_11_1153LDAlong\"
directory$ = "E:\data\speech\MMN\" +subject$
writeInfoLine ("Reading directory ",directory$)

strings = do ("Create Strings as file list...", "fileList", subject$ + "*.wav")
numberOfFiles = do ("Get number of strings")

for ifile to numberOfFiles
    selectObject (strings)
    fileName$ = do$ ("Get string...", ifile)
    writeInfoLine (fileName$)
    something = do ("Read from file...", subject$ + fileName$)
    selectObject ("Sound "+fileName$- ".wav")
select Intensity 'soundname$'
fileappend "'textfile$'" 'newline$'
Save as text file: "E:\data\speech\MMN\nat_int

endform

任何指针？我无法让它工作。

我感谢您的帮助。

戈尔迪

Answer 1

事实上，我不知道你想用你的脚本做什么，所以我试图修改你的脚本，它可以写下你创建的强度文件的名称。

form name
    sentence subject 1307_2014_Feb_11_1153LDAlong\
    sentence directory  E:\data\speech\MMN\
endform


strings = do ("Create Strings as file list...", "fileList", subject$ + "\*.wav")
numberOfFiles = do ("Get number of strings")

for ifile to numberOfFiles
    selectObject (strings)
    fileName$ = do$ ("Get string...", ifile)
    appendInfoLine (fileName$)
    something = do ("Read from file...", subject$ +"\"+ fileName$)
    selectObject (something)
    intensity = do("To Intensity...", 100, 0, "yes")
    name$ = selected$("Intensity")
    appendFileLine("E:\data\speech\MMN\nat_int\name.txt", name$)
endfor`