Code:
On *:Dialog:dlg:init:0: {
  var %x = 1
  while (%x <= $lines(file.txt)) {
    did -a dlg ID $read(file.txt,%x)
    inc %x
  }
}


-Andy