XProfan

Var Text1$ = GetClip$()
Var C& = &GetTickCount
Declare Text$

WhileLoop 10000

    Text$=translate$(Text1$,-
    ,)
    Text$=translate$(Text$,|,chr$(1))
    Text$=translate$(Text$,!
    ,!|)
    Text$=translate$(Text$,?
    ,?|)
    Text$=translate$(Text$,.
    ,.|)
    Text$=translate$(Text$,
    ,)
    Text$=translate$(Text$,|,
    )ich würde hier wahrscheinlich der Optik halber sogar
    angeben, unwichtig...
    Text$=translate$(Text$,chr$(1),|)

Wend

Print &GetTickCount - C&
C& = &GetTickCount

WhileLoop 10000

    Text$ = Translate$(Text1$,-
    ,)Trennstriche erschlagen

    While Match$([!~?~.]

        ,Text$) >
        Text$ = Translate$(Text$,$Match,Left$($Match,1) + |)alle Zeilenumbrüche mit Satzendezeichen zum Sichern umwandeln

    Wend

    Text$ = Translate$(Text$,
    ,)alle Zeilenumbrüche raus
    Text$ = Translate$(Text$,$Match,Left$($Match,1) +
    )Zeilenumbrüche zurückschreiben

Wend

Print &GetTickCount - C&
WaitInput
End