$s=0
$z=0
$bak = ClipGet()
$zneu = ""

; Liest 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
    $s=$s+1
    $z=$z+1

    $buchstabe = StringMid($bak, $s,1)
    If $buchstabe = "" Then ExitLoop
    If $z > 60 And $buchstabe = " " Then
      $buchstabe=$buchstabe & @CRLF
      $z=0
    EndIf

    ;**********************
    ; abspeichern ***
    ; *********************
    $fileb = FileOpen("format.txt", 1)
    ; Prüfen, ob Datei im Schreibmodus geöffnet ist
    If $fileb = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf
    FileWrite($fileb,$buchstabe)
    $zneu = $zneu & $buchstabe

    FileClose($fileb)
Wend
ClipPut($zneu)
MsgBox(0, "Formatierung fertig", "Text wurde in die Zwischenablage geschrieben")