//
// INSCOLSP.VDM                           C.Z. 29.06.1999
//
//
// Fügt in eine Datendatei in bestimmten Spalten ein Trennzeichen (!Space) ein.
// Das Trennzeichen und die Position(en) werden in der oben einzufügenden 1.Zeile eingegeben.
//
//   :  :  :
// 1234567890
// 1234567890
//
// ergibt:
//
//   :  :  :
// 12:34:56:7890
// 12:34:56:7890
//
//
// Achtung: q & d !
//
//

BoF
Reg_Empty(11)

BB(0)                  // 1. Zeile als Suchbereich definieren
BE(EoL_Pos)

Search_Block("|!|W",BB,BE,NOERR)      // Trennzeichen suchen
#10=Cur_Char

while(!EM){                           // weitere Trennzeichen suchen
  
  #11=Cur_Col
  Out_Reg(11,APPEND) 
  Num_Type(#11,LEFT)                  // Spaltenpositionen der Trennzeichen sammeln
  Out_Reg(Clear)
  
  Char(1)
  Search_Block("|!|W",BB,BE,NOERR)
}



#12=Buf_Switch(Buf_Free)              // Zeilen mit den Spaltenpositionen der Trennzeichen
Reg_Ins(11)
BoF

Buf_Switch(1)                         // Datendatei

Line(1)                               // 1. Datenzeile

while(! At_EoF){
  BS(#12)
  BoF
  while(! At_EoF){                    // Alle Spaltenpositionen durchgehen
    #13=Num_Eval()
    Line(1)
    BS(1)
    Goto_Col(#13)                     // hier Trennzeichen einfügen
    IC(#10)
    BS(#12)
  }
  BS(1)
  Line(1)
}