[...]
Alles kopieren und das Programm starten;createCode()Var Text1$ = GetClip$()Var C& = &GetTickCountDeclare Text$WhileLoop 10000 Text$=translate$(Text1$,"-\n","") Text$=translate$(Text$,"|",chr$(1)) Text$=translate$(Text$,"!\n","!|") Text$=translate$(Text$,"?\n","?|") Text$=translate$(Text$,".\n",".|") Text$=translate$(Text$,"\n","") Text$=translate$(Text$,"|","\n")'ich würde hier wahrscheinlich der Optik halber sogar \n\n angeben, unwichtig... Text$=translate$(Text$,chr$(1),"|")WendPrint &GetTickCount - C&C& = &GetTickCountWhileLoop 10000 Text$ = Translate$(Text1$,"-\n","")'Trennstriche erschlagen While Match$("[!~?~.]\n",Text$) > "" Text$ = Translate$(Text$,$Match,Left$($Match,1) + "|")'alle Zeilenumbrüche mit Satzendezeichen zum Sichern umwandeln Wend Text$ = Translate$(Text$,"\n","")'alle Zeilenumbrüche raus Text$ = Translate$(Text$,$Match,Left$($Match,1) + "\n")'Zeilenumbrüche zurückschreibenWendPrint &GetTickCount - C&WaitInputEndIm Interpreter ist die obere Variante bei mir ca 2x schneller.
