#######################################
###   DURATION extraction from TextGrid files
###   Written by Kyuchul Yoon,    kyoon@ling.osu.edu
#######################################
form Input directory name without final slash
	word outputFile_(to_be_created) prec-V.duration
endform

# read in all files in the directory 
Create Strings as file list... list *.TextGrid2
numFiles = Get number of strings
for iFile to numFiles
	select Strings list
	fullFileName$ = Get string... iFile
	textGridFile$ = fullFileName$ - ".TextGrid2"

# Read in a TextGrid file
	Read from file... 'textGridFile$'.TextGrid2
		preVBegin = Get time of point... 1 1
		preVEnd = Get time of point... 1 2
		preVdur = (preVEnd - preVBegin) * 1000
Remove

fileappend 'outputFile$' 'textGridFile$''tab$''preVdur:0''newline$'
endfor
select Strings list
Remove

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