create-textgrid-forall-DIME

########## ELLA LAB ##########
### script writer: Tina Yeh (WTY), updated 28-07-2021 ##
### purpose: to create textgrids according to wav files in one folders with 3 tiers
### tier 1: parent's ID
### tier 2: Infant's ID
### tier 3: silence and sounding parts
##############################


# create textgrid in one folder

form Creator
	
	comment Name of Tier 1 
	sentence Name_of_first_tier parent
	comment Name of Tier 2 
	sentence Name_of_second_tier infant
	comment Had you already begun the TextGrid creation?
	comment If so, in wich number of the sound list do you 
	comment want to start today?
	integer nfile 1
	comment Do you want to make Textgrids for all files in one click?
	boolean pause_for_correction 0
endform

folder$ = chooseDirectory$ ("Elige la carpeta cuyos archivos quieres ver/modificar:")


#Create a list
Create Strings as file list... listawav 'folder$'/*.wav


#select files from the listawav
select Strings listawav
nstrings = Get number of strings

#loop for create textgrids with tiers
for i from nfile to nstrings
	select Strings listawav
	#Llevo el .wav que toca a objetos
	nombresonido$ = Get string... i
	Read from file... 'folder$'/'nombresonido$'

	#create Textgrids
	base$ = nombresonido$ - ".wav"
	nombregrid$ = base$ + ".TextGrid"
	
	To TextGrid (silences):  100, 0, -25, 0.1, 0.1, "silent", "sounding"
	
	# Save as text file... 'folder$'/'nombregrid$'
	# Read from file... 'folder$'/'nombregrid$'

	select TextGrid 'base$'
	Insert interval tier: 1, name_of_first_tier$
	Insert interval tier: 2, name_of_second_tier$

	
	#pause to see the selected files
	if pause_for_correction = 1
		pause Corrige el TextGrid 'base$' ('i' de 'nstrings') y clica "Continuar" el TextGrid se guardará automáticamente.
	endif

	#save textgrids
	select TextGrid 'base$'
	Save as text file... 'folder$'/'nombregrid$'
	
	#remove all
	select all
	minus Strings listawav
	Remove
endfor

select all
Remove

exit Finished