form This is a test dialogue。你好！
	comment 下面设定输入地址：
	text inputpath D:\3工作\2019年上半年\语音研究专题\2019年3月18日上课材料\2\
endform

Create Strings as file list... soundList 'inputpath$'*.wav
numberOfFiles = Get number of strings

for ifile from 1 to numberOfFiles
	select Strings soundList
	fileName$ = Get string... 'ifile'
	simpfileName$ = fileName$ - ".wav"
	Read from file... 'inputpath$''fileName$'
		To Pitch... 0 75 600
		View & Edit

		select Sound 'simpfileName$'
		To TextGrid... 	Syllable

		select Sound 'simpfileName$'
		plus TextGrid 'simpfileName$'
		View & Edit

		pause 现在请手动标注！

		select Pitch 'simpfileName$'
		Write to text file... 'inputpath$''simpfileName$'.Pitch
		Remove

		select TextGrid 'simpfileName$'
		Write to text file... 'inputpath$''simpfileName$'.TextGrid
		plus Sound 'simpfileName$'
		Remove
endfor

select Strings soundList
Remove

exit 设定文件夹的所有文件已经处理完毕！