//
// DIR_EXT.VDM                                           (C) C.Z.  21.10.1997
//                                                                 04.01.1999
//
// Umformatierung eines DIR /S - Ausdruckes       Win95 !!
// Sortierung nach Dateinamen
//

// Löschen diverser Zeilen:

R("Datentr„ger in|Y|N", BEGIN+ALL+NOERR)
R("Seriennummer des|Y|N", BEGIN+ALL+NOERR)
R("Datentr„gernummer|Y|N", BEGIN+ALL+NOERR)

BoF
R("|<.|M|N", "", ALL+NOERR)

BoF
R("|<|N", "", ALL+NOERR)

BoF
R("|< |M Datei(en)|M|N", "", ALL+NOERR)

BoF
S("Dateien gesamt:", NOERR)
if (!EM){ 
  BoL Del_Line(1) 
}

S("Verzeichnis(se)",NOERR)
if (!EM){ 
  BoL Del_Line(1) 
}

S("Bytes frei",NOERR)
if (!EM){ 
  BoL Del_Line(1) 
}

// Umsortieren der Einträge in den Datei-Zeilen
// inkl. des Pfades

// BoF
// While(! At_EOF){
//   BoL
//   Replace_Block("|w",".",CP,CP+11,NOERR)
//   Line(1)
// }


BoF
While(! At_EOF){
  S("Verzeichnis von ", ADVANCE+NOERR)
  RCB(11, CP, EOL_POS)     // Pfad
  BoL Del_Line(1)
  Set_Marker(6, CP)
  While(Match("Verzeichnis von ")!=0){
    if( Match("^.*<DIR>", REGEXP)==0){
      BoL Del_Line(1)
    } else {
      if(At_EoF) { break }
      BoL
      RCB(12, CP+12, CP+44)
      RCB(13, CP+44, EOL_Pos)
      BoL Del_Line(1)
      RI(13)
      IT("  		")
      RI(11)
      IT("  		")
      RI(12)
      IN(1)
    }
  }
}