##############################################################
#  TextGrid-Shift-to-zero'er.praat (Written by Kyuchul Yoon kyoon@ling.osu.edu )
#  The script read textgrids and do the "shift-to-zero" to match them with sounds.
##############################################################

form Specify files and folders
	word textgridFolder K-ToBI-EJK\03.wagon.features.from.phrase.model
	word textgridExt .lab.wagon.35
endform

Create Strings as file list... fileList 'textgridFolder$'\*'textgridExt$'
Sort
Sort
numFiles = Get number of strings
pause 'numFiles' identified.  Continue?

for i to numFiles
	select Strings fileList
	fileName$ = Get string... i
	Read from file... 'textgridFolder$'\'fileName$'
	Rename... textgrid
	Shift to zero
	outFile$ = fileName$ - textgridExt$

	Write to text file... 'textgridFolder$'\'outFile$'
	Remove
endfor
select Strings fileList
Remove

########### END OF SCRIPT #############