# 自动读取wav文件、TextGrid文件、Pitch文件，手动修改、校对后，自动保存到新的文件夹，删除已修改过的文件，并读取下一个文件脚本
# Qibin Ran
# 2020-04-29

form Enter directory and search string
	comment 请输入需要校对文件的路径
	text openpath C:\Users\dell\Desktop\新建文件夹\new\
	comment 请输入文件经过校对后的保存路径
	text savepath C:\Users\dell\Desktop\新建文件夹\new\已校对
endform

if left$(openpath$,1)<>"\"
	openpath$=openpath$+"\"
endif

if left$(savepath$,1)<>"\"
	savepath$=savepath$+"\"
endif

createDirectory: savepath$

Create Strings as file list... fileList 'openpath$'*.wav
numberOfFiles=Get number of strings
for ifile from 1 to numberOfFiles
	select Strings fileList
	fileName$=Get string... 'ifile'
	simpleName$=fileName$-".wav"
	textGridName$ = simpleName$ + ".TextGrid"
	pitchName$ = simpleName$ + ".Pitch"

	Read from file... 'openpath$''fileName$'
	Write to WAV file... 'savepath$''simpleName$'.wav

	Read from file... 'textGridName$'
	plus Sound 'simpleName$'
	Edit

	Read from file... 'pitchName$'
	Edit

	pause 现在手动校对Pitch与TextGrid文件！

	select Pitch 'simpleName$'
	Write to text file... 'savepath$''simpleName$'.Pitch

	select TextGrid 'simpleName$'
	Write to text file... 'savepath$''simpleName$'.TextGrid

	select all
	minus Strings fileList
	Remove

	filedelete 'openpath$''fileName$'
	filedelete 'openpath$''textGridName$'
	filedelete 'openpath$''pitchName$'

endfor

select all
Remove

exit OK！所有文件已经处理完毕！