//
// DIR_EXT.VDM                                           (C) C.Z.  21.10.1997
//                                                                 02.03.1999
//                                                                 17.01.2003
//
// Umformatierung eines DIR /S - Ausdruckes       WinNT !!  bzw. Jetzt Win2000
// 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("|<.|*|N", "", ALL+NOERR)

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

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

BoF
// S("Dateien gesamt:", NOERR)
S("Anzahl der angezeigten Dateien:", 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("|[|W]Verzeichnis von ")!=0){
    if( Match("^.*<DIR>", REGEXP)==0){
      BoL Del_Line(1)
    } else {
      if(At_EoF) { break }
      BoL
      RCB(12, CP, CP+39)      // Größe etc.
      RCB(13, CP+39, EOL_Pos) // Name
      BoL Del_Line(1)
      RI(13)
      IT("  		")
      RI(11)
      IT("  		")
      RI(12)
      IN(1)
    }
  }
}