Loop_save_labeled_intervals_to_wav_sound_files.praat

# This script saves each interval in the selected IntervalTier of a TextGrid to a separate WAV sound file.
# The source sound must be a LongSound object, and both the TextGrid and 
# the LongSound must have identical names and they have to be selected 
# before running the script.
# Files are named with the corresponding interval labels (plus a running index number when necessary).
#
# NOTE: You have to take care yourself that the interval labels do not contain forbidden characters!!!!
# 
# This script is distributed under the GNU General Public License.
# Copyright 8.3.2002 Mietta Lennes
#

#This a modified version of Lennes' script
#The one allows you to specify the directory of sound files and their corresponding textgrids
#The script will cut all the sound files for you and save the cutted files into another folder
#There's no need to import anything to praat anymore.
#Note that the cutted files will be named in the following fashion
#original file name-interval name.wav
#for example, if the orignial file is named as "subject1.wav", 
#and the intervals in the textgrid are labeled as "please call", "ask her",
#then the result files will be:
#subject1-please call.wav
#subject1-ask her.wav
#
#Sep.17, 2016, Zhiyan Gao

form Save intervals to small WAV sound files
	comment Which IntervalTier in this TextGrid would you like to process?
	integer Tier 1
	sentence Sound_folder private_speech/
	sentence TextGrid_folder private_speech/
	comment Starting and ending at which interval? 
	integer Start_from 1
	integer End_at_(0=last) 0
	boolean Exclude_empty_labels 1
	boolean Exclude_intervals_labeled_as_xxx 1
	boolean Exclude_intervals_starting_with_dot_(.) 1
	comment Give a small margin for the files if you like:
	positive Margin_(seconds) 0.01
	comment Give the folder where to save the sound files:
	sentence Folder private_speech/seg/
	comment Give an optional prefix for all filenames:
	sentence Prefix 
	comment Give an optional suffix for all filenames (.wav will be added anyway):
	sentence Suffix 
endform

#gridname$ = selected$ ("TextGrid", 1)
#soundname$ = selected$ ("LongSound", 1)
#select TextGrid 'gridname$'

myStrings = Create Strings as file list... LongSounds 'sound_folder$'/*.wav
nLongSounds = Get number of strings
item = 0

for iLongSound from 1 to nLongSounds
	select myStrings
	sound_name$ = Get string... iLongSound
	textGrid_name$ = sound_name$ - "wav" + "TextGrid"
	longsound$ = sound_folder$ + "/" + sound_name$
	textGrid$ = textGrid_folder$ + "/" + textGrid_name$
	start_from = 1
	end_at = 0
	if fileReadable(textGrid$)
		call treatment
	endif
endfor

procedure treatment
	Open long sound file... 'longsound$'
	mySound = selected("LongSound")
	soundname$ = selected$ ("LongSound",1)
	Read from file... 'textGrid$'
	myTextGrid = selected("TextGrid")
	select myTextGrid
	numberOfIntervals = Get number of intervals... tier
	if start_from > numberOfIntervals
		exit There are not that many intervals in the IntervalTier!
	endif
	if end_at > numberOfIntervals
		end_at = numberOfIntervals
	endif
	if end_at = 0
		end_at = numberOfIntervals
	endif

	# Default values for variables
	files = 0
	intervalstart = 0
	intervalend = 0
	interval = 1
	intname$ = ""
	intervalfile$ = ""
	endoffile = Get finishing time

	# ask if the user wants to go through with saving all the files:
	for interval from start_from to end_at
		xxx$ = Get label of interval... tier interval
		check = 0
		if xxx$ = "xxx" and exclude_intervals_labeled_as_xxx = 1
			check = 1
		endif
		if xxx$ = "" and exclude_empty_labels = 1
		check = 1
		endif
		if left$ (xxx$,1) = "." and exclude_intervals_starting_with_dot = 1
			check = 1
		endif
		if check = 0
	   	files = files + 1
		endif
	endfor
	interval = 1
	pause 'files' sound files will be saved. Continue?

	# Loop through all intervals in the selected tier of the TextGrid
	for interval from start_from to end_at
		select myTextGrid
		intname$ = ""
		intname$ = Get label of interval... tier interval
		intname2$ = ""
		intname2$ = Get label of interval... tier 2
		check = 0
		if intname$ = "xxx" and exclude_intervals_labeled_as_xxx = 1
			check = 1
		endif
		if intname$ = "" and exclude_empty_labels = 1
			check = 1
		endif
		if left$ (intname$,1) = "." and exclude_intervals_starting_with_dot = 1
			check = 1
		endif
		if check = 0
			intervalstart = Get starting point... tier interval
				if intervalstart > margin
					intervalstart = intervalstart - margin
				else
					intervalstart = 0
				endif
	
			intervalend = Get end point... tier interval
				if intervalend < endoffile - margin
					intervalend = intervalend + margin
				else
					intervalend = endoffile
				endif
	
			select LongSound 'soundname$'
			Extract part... intervalstart intervalend no
			filename$ = intname$
			intervalfile$ = "'folder$'" + "'soundname$'" + "-" + "'filename$'" + "'intname2$'"+"'suffix$'" + ".wav"
			indexnumber = 0
			while fileReadable (intervalfile$)
				indexnumber = indexnumber + 1
				intervalfile$ = "'folder$'" + "'soundname$'" + "-"+"'filename$'" + "'intname2$'"+"'suffix$''indexnumber'" + ".wav"
			endwhile
			Write to WAV file... 'intervalfile$'
			Remove
		endif
	endfor
endproc