// // DIR-USAGE CZ 25.10.2000 // // erwartet eine Datei, die via DIR /S /O:N erzeugt wurde // SR_SET("|{Verzeichnis von,Datei(en),Bytes frei}") CALL_File(101,"Line!Del.vdm") BoF Replace("Verzeichnis von ","",BEGIN+ALL+NOERR) Replace("|< ","",BEGIN+ALL+NOERR) BoF while(! At_EoF){ RCB(98,CP, EoL_Pos) DL(1) EoL IT(" ") RI(98) Line(4,ERRBREAK) Line(-3) } Line(-1) IC(32,COUNT,12) Line(-1) #99=CP IN(1) BoF Sort(0, #99, KEYCOLS, 17,33) EoF