##################
# wav-file-selector.praat
##################

form Specify files and folders
	word inTextgridFolder marked.diphones.GREEDY.ALGORITHM.DEBUG
	word inFileExt_(with_dot) .TextGrid.prosodic.diphone
	word inWavFolder wav
	word outWavFolder_(to_be_created) wav-diphone
endform

system mkdir 'outWavFolder$'

Create Strings as file list... fileList 'inTextgridFolder$'/*'inFileExt$'
Sort
numFiles = Get number of strings
pause 'numFiles' identified. Continue?

for iFile to numFiles
	select Strings fileList
	fileName$ = Get string... iFile
	filePrefix$ = fileName$ - inFileExt$
	Read from file... 'inWavFolder$'/'filePrefix$'.wav
	Write to WAV file... 'outWavFolder$'/'filePrefix$'.wav
	filedelete 'inWavFolder$'/'filePrefix$'.wav
	Remove
endfor

select Strings fileList
Remove
########## END OF SCRIPT ###########