#Get duration of all intervals of a TextGrid tier from 
#files located in a folder specified at the beginning of the script.
#In this example, the tier that is analyzed is the interval tier 4.
#
#Created by Jessica Sertling Miller - sertling@uiuc.edu
#January 4, 2006
###########################################################################

form Open all files in directory
  sentence Directory /Users/jessmiller/Desktop/test/
endform

clearinfo
Create Strings as file list... list 'directory$'/*.TextGrid

select Strings list
ns = Get number of strings

for i to ns
	select Strings list
	gridname$ = Get string... i
	Read from file... 'directory$'/'gridname$'
endfor

for i to ns
	select Strings list
	gridname$ = Get string... i
	name$ = gridname$ - ".TextGrid"
	Read from file... 'directory$'/'gridname$'
	select TextGrid 'name$'
	np4 = Get number of intervals... 4
		for i to np4
			syllstart = Get starting point... 4 i
			syllend = Get end point... 4 i
			interval = Get interval at time... 4 syllstart
			sylLabel$ = Get label of interval... 4 interval
			sylldur = syllend - syllstart
			sylldursec = sylldur * 1000
			printline 'sylLabel$'	'sylldursec:3'
		endfor
	select all
	minus Strings list
	Remove
endfor

select Strings list
Remove