$sFile="out.txt"
$sExtract="extract.txt"
 
$fdFile=FreeFileHandle()
 
If Open($fdFile,$sFile)
   "Cannot open file "+$sFile+" for reading!" ?
   @ERROR ": " @SERROR ?
Else
   $=RedirectOutput($sExtract)
   $sLine=ReadLine($fdFile)
   While Not @ERROR
	$aData=Split($sLine)
	$aData[0]=Split($aData[0],"/")

	$aData[0][2]+"/"+Right("0"+$aData[0][0],2)+"/"+Right("0"+$aData[0][1],2)
		+" "+$aData[1]
		+" "+$aData[UBound($aData)]
		+@CRLF

   	$sLine=ReadLine($fdFile)
   Loop
   $=RedirectOutput("")
   SHELL '%COMSPEC% /C SORT "'+$sExtract+'"'
EndIf