form dialogue
	sentence openpath E:\praat\wav4
	sentence savepath E:\praat\wav4
endform


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

savepath$=savepath$+"resultOfDuration.csv"
Create Strings as file list... fileList 'openpath$'*.TextGrid
numberOffiles=Get number of strings
filedelete 'savepath$'
fileappend 'savepath$' µ¥´Ê,¿ªÊ¼Ê±¼ä,½áÊøʱ¼ä,ʱ³¤,'newline$'
for ifile from 1 to numberOffiles
	select Strings fileList
	fileName$=Get string... 'ifile'
	
	simpleName$=fileName$-".TextGrid"
	Read from file... 'openpath$''fileName$'

	numberOfIntervals=Get number of intervals... 1
	for iInterval from 1 to numberOfIntervals
		select TextGrid 'simpleName$'
		sTime=Get starting point... 1 'iInterval'
		eTime=Get end point... 1 'iInterval'
		
		duration=eTime-sTime
		durationTemp='duration:1'

		labOfInterval$=Get label of interval... 1 'iInterval'
		fileappend 'savepath$' 'labOfInterval$','sTime','eTime','durationTemp','newline$'
	endfor
	select TextGrid 'simpleName$'
	Remove
endfor
select Strings fileList
Remove
exit Over!