# Praat-Skript für Praat 4.2.31
# Öffnen aller Sounds  in einem gegebenen Verzeichnis
# Einfügen von 0.5s Stille am Anfang
# Stefan Sudhoff, sudhoff(at)uni-leipzig.de, 03/2005

# Festlegen der Verzeichnisse
verz$ = "D:\test\"
ausg$="D:\test\testneu\"

# Laden von allen Sounds
Create Strings as file list... dateien 'verz$'*.wav
anz = Get number of strings
for filenr from 1 to anz
	select Strings dateien
	Sort
	aktstr$ = Get string... filenr
	aktitem$ = aktstr$ - ".wav"
	Read from file... 'verz$''aktitem$'.wav
	select Sound 'aktitem$'
	Edit
	editor Sound 'aktitem$'
		Select... 0 0.5
		Copy selection to Sound clipboard
		Move cursor to begin of selection
		Paste after selection
		Set selection to zero
		Close
	endeditor
	select Sound 'aktitem$'
	Write to WAV file... 'ausg$''aktitem$'.wav
	select Sound 'aktitem$'
	Remove
endfor