Praat Textgrid to Lab for Diffsinger

# Original code by Hataori-P
# Select textgrid to convert in the object list
# Rename each lab afterwards - previous praat.lab is deleted when you run this
# Only works with one tier
# All empty labels are set to pau. Don't know if this is an issue.
# can't figure out how to make lowercase - can fix in notepad++

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


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




writeInfoLine: "File Praat.lab created"