// // AIX-DF.VDM CZ 29.04.2003 // // // A Pos 1. space // // B pos 1. nicht-space (beginn zahl) // // C pos 1 . space (ende 1. zahl) // // Max(C) suchen // // Alle zeilen: einfügen bei A: Cmax - C #13=0 BoF while (! At_EoF) { Search(" +[^ ]+ ", REGEXP+ADVANCE) #13=Max(Cur_Col-1, #13) Line(1, NOERR+ERRBREAK) } BoF while (! At_EoF) { Search(" +[^ ]+ ", REGEXP) Ins_Char(32, COUNT, #13 - (Cur_Col + Chars_Matched - 1)) Line(1, NOERR+ERRBREAK) } BoF