-1

これまでの私のスクリプトは次のとおりです。

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

ポインタはありますか?私はそれを働かせることができません。

私はあなたの助けに感謝します。

ゴールディ

4

1 に答える 1