// // MAKETELE.VDM (C) C.Z. 18.03.1998 // // // Aus Excel als Tabulator-getrennte Datei gespeichert. // Erzeugt eine ASCII-Datei, die mit dem Tool TEL.BAT lesbar ist. // BoF IT(" x x x x x x ") IN(1) Bof // TABS setzen #100=CL #102=0 #101=CP OR(103) BoL repeat(ALL) { Dov("\NW\") if(CL==#100 && !At_Eol) { #103=CN NT(#103,NOCR) #102+=1 } else { break } } OR(CLEAR) if(#102>0){ if(#102==1){ OR(103,APPEND) NT(#103,NOCR) NT(#103,NOCR) OR(CLEAR) } RS(103,"CfT(",INSERT) RS(103,")",APPEND) Call(103) } GP(#101) // EoF Detab_Block(0,CP) EoF Translate_load("Ansi.tbl") Translate_Block(0,CP,REVERSE) BoF Del_Line(1) Line(2) Del_Line(4) IT("Name / Stelle TEL KurzZ FAX sonstige") IN(1) IT("----------------------------------------------------------------------------") IN(1)