Dawn@4: dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\"
Dawn@4: Create Strings as file list... list  'dirPath$'\*.wav
Dawn@4: fileNum = Get number of strings
Dawn@4: for ifile to fileNum
Dawn@4: select Strings list
Dawn@4: fileName$ = Get string... ifile
Dawn@4: newFileName$ = fileName$
Dawn@4: Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4: #To Formant (burg)... 0.01162 3 20000 0.001 50 
Dawn@4: To Formant (keep all)... 0.01162 3 20000 0.001 50 
Dawn@4: Down to FormantTier
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4: Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: select Formant 'newFileName$'
Dawn@4: Remove
Dawn@4: select FormantTier 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\"
Dawn@4: Create Strings as file list... list  'dirPath$'\*.wav
Dawn@4: fileNum = Get number of strings
Dawn@4: for ifile to fileNum
Dawn@4: select Strings list
Dawn@4: fileName$ = Get string... ifile
Dawn@4: newFileName$ = fileName$
Dawn@4: Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4: #To Formant (burg)... 0.01162 3 20000 0.001 50 
Dawn@4: To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4: Down to FormantTier
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4: Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\fem01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: select Formant 'newFileName$'
Dawn@4: Remove
Dawn@4: select FormantTier 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\"
Dawn@4: Create Strings as file list... list  'dirPath$'\*.wav
Dawn@4: fileNum = Get number of strings
Dawn@4: for ifile to fileNum
Dawn@4: select Strings list
Dawn@4: fileName$ = Get string... ifile
Dawn@4: newFileName$ = fileName$
Dawn@4: Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4: #To Formant (burg)... 0.01162 3 20000 0.001 50 
Dawn@4: To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4: Down to FormantTier
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4: Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: select Formant 'newFileName$'
Dawn@4: Remove
Dawn@4: select FormantTier 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\"
Dawn@4: Create Strings as file list... list  'dirPath$'\*.wav
Dawn@4: fileNum = Get number of strings
Dawn@4: for ifile to fileNum
Dawn@4: select Strings list
Dawn@4: fileName$ = Get string... ifile
Dawn@4: newFileName$ = fileName$
Dawn@4: Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4: #To Formant (burg)... 0.01162 3 20000 0.001 50 
Dawn@4: To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4: Down to FormantTier
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4: Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: select Formant 'newFileName$'
Dawn@4: Remove
Dawn@4: select FormantTier 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\"
Dawn@4: Create Strings as file list... list  'dirPath$'\*.wav
Dawn@4: fileNum = Get number of strings
Dawn@4: for ifile to fileNum
Dawn@4: select Strings list
Dawn@4: fileName$ = Get string... ifile
Dawn@4: newFileName$ = fileName$
Dawn@4: Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4: #To Formant (burg)... 0.01162 3 20000 0.001 50 
Dawn@4: To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4: Down to FormantTier
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4: Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: select Formant 'newFileName$'
Dawn@4: Remove
Dawn@4: select FormantTier 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: 
Dawn@4: dirPath$ = "C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\"
Dawn@4: Create Strings as file list... list  'dirPath$'\*.wav
Dawn@4: fileNum = Get number of strings
Dawn@4: for ifile to fileNum
Dawn@4: select Strings list
Dawn@4: fileName$ = Get string... ifile
Dawn@4: newFileName$ = fileName$
Dawn@4: Read from file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: #To Formant (robust)... 0.01162 3 20000 0.001 50 1.5 5 0.000001
Dawn@4: #To Formant (burg)... 0.01162 3 20000 0.001 50 
Dawn@4: To Formant (keep all)... 0.01162 3 20000 0.001 50
Dawn@4: Down to FormantTier
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_Formant_all"
Dawn@4: Write to text file... C:\Users\dawn\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: select Formant 'newFileName$'
Dawn@4: Remove
Dawn@4: select FormantTier 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove