## Search in LongSound & TextGrid
##
## September 12, 2005
## Francisco Torreira
## ftorrei2@uiuc.edu
## After an idea by Jessica Sertling Miller - sertling@uiuc.edu

form Search
sentence Search_word
endform

select all

sound$ = selected$ ("LongSound", 1)
grid$ = selected$ ("TextGrid", 1)

select TextGrid 'grid$'
ni3 = Get number of intervals... 3
for i to ni3
	select TextGrid 'grid$'
	label$ = Get label of interval... 3 i
	if label$ = search_word$
		sp3 = Get starting point... 3 i
		int4 = Get interval at time... 4 sp3 
		sp4 = Get starting point... 4 int4
		ep4 = Get end point... 4 int4
		select LongSound 'sound$'
		Extract part... sp4 ep4 yes
		select Sound 'sound$'
		Rename... 'search_word$'
		select TextGrid 'grid$'
		Extract part... sp4 ep4 yes
		Rename... 'search_word$'
		Remove tier... 4
	endif
endfor