# This script opens all the TextGrid files in a given folder
# and checks how many tiers they have and what are the tier names (up to 7th tier)
# The results are saved to a separate text file.
# 13.7.2007 Riikka Ullakonoja

form Directory and name of new file?
comment TextGrid file directory:
text directory U:\Aineistot\temp\
sentence file_extension .TextGrid
	comment Where do you want to save the results?
	text textfile U:\Aineistot\temp\tiers.txt
endform
fileappend "'textfile$'" filename	number_of_tiers	1st_tier_name	2nd_tier_name 	3rd_tier_name	4th_tier_name	5th_tier_name	6th_tier_name	7th_tier_name	'newline$'
# Read lists of Textgrid files from the given directory::
Create Strings as file list... files 'directory$'*'file_extension$'
Sort
numberOfFiles = Get number of strings
select Strings files
for ifile to numberOfFiles
	filename$ = Get string... ifile
# Open Textgrid file and get number of tiers in it
	Read from file... 'directory$''filename$'
	tiernumber = Get number of tiers
# Get the names of the tiers up to 7th tier
	tiername1$ = Get tier name... 1
		if tiernumber > 1
			tiername2$ = Get tier name... 2
		endif
		if tiernumber > 2
			tiername3$ = Get tier name... 3
		endif
		if tiernumber > 3
			tiername4$ = Get tier name... 4
		endif
		if tiernumber > 4
			tiername5$ = Get tier name... 5
		endif
		if tiernumber > 5
			tiername6$ = Get tier name... 6
		endif
		if tiernumber > 6
			tiername7$ = Get tier name... 7
		endif
	fileappend "'textfile$'" 'filename$'	'tiernumber'	'tiername1$'	'tiername2$'	'tiername3$'	'tiername4$'	'tiername5$'	'tiername6$'	'tiername7$'	'newline$'
	Remove
select Strings files
endfor
Remove