Text in der Zwischenablage formatieren
Immer wenn ich einen Text aus dem Internet in die Zwischenablage kopiere und
später in eine TXT-Datei hineinkopiere, dann ärgert mich es, dass immer der
Zeilenumbruch fehlt.
Mit dem kleinen Script wird der Fehler behoben. Der Formatierte Text wird in
eine Datei und in die Zwischenablage kopiert.
Bei Win7 gibt es noch die Möglichkeit, das kompilierte Script an die Taskleiste
zu heften.
Gruß
Spoiler anzeigen
$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")