form dialogue
	sentence openpath e:\praat\wav6
	sentence savepath e:\praat\wav7
	positive tiernumber 3
endform



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


Create Strings as file list... fileList 'openpath$'*.wav
numberOffiles=Get number of strings

for ifile to numberOffiles
	select Strings fileList
	fileName$=Get string... 'ifile'
	
	simpleName$=fileName$-".wav"
	textGridName$=simpleName$+".TextGrid"


	Read from file... 'openpath$''fileName$'
	Read from file... 'openpath$''textGridName$'

	select TextGrid 'simpleName$'
	numOfInterval=Get number of intervals... 'tiernumber'
	for iInter to numOfInterval
		select TextGrid 'simpleName$'
		labOfInterval$=Get label of interval... 'tiernumber' 'iInter'
		if labOfInterval$<>"silence" and labOfInterval$<>"sil" and labOfInterval$<>"sp"
			
			sTime=Get starting point... 'tiernumber' 'iInter'
			eTime=Get end point... 'tiernumber' 'iInter'

			sTime=sTime-0.05
			eTime=eTime+0.05
				
			select Sound 'simpleName$'
			Extract part... 'sTime' 'eTime' Rectangular 1 no
			Write to WAV file... 'savepath$''simpleName$'_'iInter'.wav
			Remove

			select TextGrid 'simpleName$'
			Extract part... 'sTime' 'eTime' no
			Write to text file... 'savepath$''simpleName$'_'iInter'.TextGrid
			Remove

		endif


	endfor
	select Sound 'simpleName$'
	Remove
	select TextGrid 'simpleName$'
	Remove
endfor
select Strings fileList
Remove
exit Over!