Textgrid to Lab for Diffsinger Praat Script

# still yoinking code from Hataori-P
# select the textgrid you want to convert then run this - only one grid at a time
# rename praat.lab as soon as it finishes because running again deletes the old one
# I open all of it in VLabeler afterwards just to make sure it's good

grid = selected: "TextGrid", 1

selectObject: grid

gNumTiers = Get number of tiers
if gNumTiers <> 1
  exitScript: "TextGrid doesn't have only 1 tier"
endif

gIsInterval = Is interval tier: 1
if not gIsInterval
  exitScript: "TextGrid's tier is not Interval Tier"
endif

deleteFile: "praat.lab"

gNumInts = Get number of intervals: 1


for .i to gNumInts
  selectObject: grid
  ts = Get start time of interval: 1, .i
  tsX = ts * 10000000
  te = Get end time of interval: 1, .i
  teX = te * 10000000
  lbl$ = Get label of interval: 1, .i

  if lbl$ = ""
    lbl$ = "pau"
  endif

if lbl$ = "_"
    lbl$ = "pau"
  endif


  appendFileLine: "praat.lab", round(tsX), " ", round(teX), " ", lbl$
endfor




writeInfoLine: "File Praat.lab created"