Bei 192 Zeichen dürften das 'schneller' weit jenseits der Messbarkeit sein.
Delphi-Quellcode:
var
i : Integer;
begin
i := 4; // Erste Einfügeposition hinter der 4 Stelle.
while i < Length(Text) do begin
insert (Text, i,'_');
inc(i,5); // weil man ja nun 5 Zeichen weiter rutschen muss
end;
End;
Getippt und nicht getestet. Sollte aber so oder ähnlich gehen.
Übrigens: Bisschen kleiner, leichter zu verstehen, geradliniger.
