Visual Basic

dateTime = temp.Substring(p(9), p(10) - p(9))

Dim created, created1 As Date
...Lots of lines removed
   baloon = temp.Substring(p(8), p(9) - p(8))
   dateTime = temp.Substring(p(9), p(10) - p(9))
   created = CDate(dateTime)
   qty = temp.Substring(p(10), temp.Length - p(10))
   While sa.Peek() >= 0
       temp1 = sa.ReadLine()
       name1 = temp1.Substring(0, p(1)) ', p(2) - p(1))
       child1 = temp1.Substring(p(1), p(2) - p(1))
       desF1 = temp1.Substring(p(2), p(3) - p(2))
       desAF1 = temp1.Substring(p(3), p(4) - p(3))
       desA1 = temp1.Substring(p(4), p(5) - p(4))
       desAA1 = temp1.Substring(p(5), p(6) - p(5))
       ecn1 = temp1.Substring(p(6), p(7) - p(6))
       dnf1 = temp1.Substring(p(7), p(8) - p(7))
       baloon1 = temp1.Substring(p(8), p(9) - p(8))
       dateTime1 = temp1.Substring(p(9), p(10) - p(9))
       created1 = CDate(dateTime1)
       qty1 = temp1.Substring(p(10), temp1.Length - p(10))
       If name = name1 And child = child1 And dnf = dnf1 And baloon = baloon1 And created < created1 Then
           sw.WriteLine(name1 & child1 & desF1 & desAF1 & desA1 & desAA1 & ecn1 & dnf1 & baloon1 & dateTime1 & Space(22 - dateTime1.Length) & qty1)
       Else
           sw.WriteLine(name & child & desF & desAF & desA & desAA & ecn & dnf & baloon & dateTime & Space(22 - dateTime.Length) & qty)
       End If
       name = name1