# loadFileList.praat

form Parameters
	word fileList listToLoad.txt
	word inFolder_(where_the_files_to_be_loaded_are) sentence02
	word extSound_(with_dot) .wav
	word extTextGrid_(with_dot) .TextGrid
	choice LoadAlso: 2
		button with_TextGrid
		button without_TextGrid
endform

Read Strings from raw text file... 'fileList$'
Rename... stringsObj
numFiles = Get number of strings

for iFile to numFiles
	select Strings stringsObj
	fileName$ = Get string... iFile
	Read from file... 'inFolder$'/'fileName$'

	# Check if the corresponding textgrid needs to be loaded
	if loadAlso = 1
		prefix$ = fileName$ - extSound$
		textgridName$ = prefix$ + extTextGrid$
		Read from file... 'inFolder$'/'textgridName$'
	endif
endfor
select Strings stringsObj
Remove
########### END OF SCRIPT ################