l# Current version of script by Florian Jaeger;
l
lform Convert lab-to-TextGrid (c) 2004,
tiflo@stanford.edu
l comment This
script will open all xwaves annotation files in the
l comment
specified directory and convert them into TextGrid files.
l comment The lab
file objects are automatically closed.
l comment
l sentence
Source_directory d:\test\lab\
l sentence
Lab_file_extension .lab
l sentence
Goal_directory d:\test\lab\
l boolean
Save_new_files 1
l sentence
Save_only_files_with_label s2
lendform
l
lclearinfo
l
lCreate Strings as file list... list
'source_directory$'*'lab_file_extension$'
lnumberOfFiles = Get number of strings
lfor ifile to numberOfFiles
l select Strings
list
l file$ = Get
string... ifile
l call
convert
lendfor
lselect Strings list
lRemove