# Im ausgewählten TextGrid Objekt-ID, # Objektname und Anzahl der Intervale abfragen textgrid = selected ("TextGrid") name$ = selected$ ("TextGrid") noi = Get number of intervals: 1 # Tabelle mit zwei Spalten (namens "kurz" und "lang") erstellen table = Create Table with column names: name$, 1, "kurz lang" # Hilfsvariablen initiieren kurz_no = 0 lang_no = 0 # Die folgende Schleife springt von Intervall zu Intervall... for n to noi selectObject: textgrid # Label abfragen label$ = Get label of interval: 1, n # Wenn das Label nicht leer ist... if label$ <> "" # Start- und Endzeitpunkt abfragen und Dauer berechnen start = Get start point: 1, n end = Get end point: 1, n dauer = round((end-start)*1000) # Enthällt das Label ein ":"? is_long = index(label$, ":") selectObject: table nor = Get number of rows # Wenn Langvokal... if is_long > 0 lang_no = lang_no+1 if lang_no > nor #Tabellenzeile hinzufügen Append row endif # Dauerwert in die Tabelle eintragen Set numeric value: lang_no, "lang", dauer # Wenn Kurzvokal... else kurz_no = kurz_no+1 if kurz_no > nor Append row endif Set numeric value: kurz_no, "kurz", dauer endif endif endfor