# tier2txt.praat # Author: Julien Eychenne # Date: 01/07/2011 # Last modified: 25/07/2011 form Tier to convert integer Tier 3 choice Interval_separator: 2 button None button Space button New line endform sep$ = "" if interval_separator == 2 sep$ = " " elsif interval_separator == 3 sep$ = newline$ endif name$ = selected$("TextGrid", 1) + ".txt" nint = Get number of intervals... tier txt$ = "" for i from 1 to nint l$ = Get label of interval... tier i txt$ = txt$ + sep$ + l$ endfor file$ = chooseWriteFile$("Save as TXT file", "'name$'") if file$ != "" txt$ > 'file$' endif