Dawn@4: dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: To PointProcess (extrema)... 1 yes no Sinc70
Dawn@4: c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_jitter_local"
Dawn@4: Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4: c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select PointProcess 'newFileName$'
Dawn@4: Remove
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: To PointProcess (extrema)... 1 yes no Sinc70
Dawn@4: c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_jitter_local"
Dawn@4: Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4: c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\male01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select PointProcess 'newFileName$'
Dawn@4: Remove
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: To PointProcess (extrema)... 1 yes no Sinc70
Dawn@4: c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_jitter_local"
Dawn@4: Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4: c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\neg\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select PointProcess 'newFileName$'
Dawn@4: Remove
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: dirPath$ = "D:\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... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'fileName$'
Dawn@4: newfilePath$ = dirPath$
Dawn@4: 
Dawn@4: newFileName$ = newFileName$-".wav"
Dawn@4: To PointProcess (extrema)... 1 yes no Sinc70
Dawn@4: c$ = Get jitter (local)... 0 0 0.0001 0.02 1.3
Dawn@4: newfolder$ = newFileName$ + "_metrics"
Dawn@4: metricFilename$ = newFileName$ + "_jitter_local"
Dawn@4: Write to text file... D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4: c$ > D:\Dropbox\BUPTResearch2011\Data\Opera\TestDatabase\Trans01\pos\'newfolder$'\'metricFilename$'.txt
Dawn@4: 
Dawn@4: select PointProcess 'newFileName$'
Dawn@4: Remove
Dawn@4: select Sound 'newFileName$'
Dawn@4: Remove
Dawn@4: endfor
Dawn@4: select Strings list
Dawn@4: Remove
Dawn@4: 
Dawn@4: 
Dawn@4: