Zeilen nacheinander in die Zwischenablage übernehmen

[BoBo]

Entstanden nach einer Anfrage von [hier]

Code: Select all

#SingleInstance, Force

; Auslesen einer (text)datei zeile für zeile, wobei mit jedem drücken der tastenkombination Alt+c 
; der inhalt der nächsten zeile aus der zwischenablage übergeben wird.

!c::                              ; ALt+c
    Clipboard =                   ; clipboard leeren
    counter++                     ; zeile/durchgänge mitzählen    
    if (counter = 1)              ; Doch zu beginn ...
      Loop, read, Filename.txt    ; die gesamtzahl der zeilen ermitteln
        lineMax++  
    FileReadLine, ClipBoard, Filename.txt, %counter%  ; zeile auslesen und in der zwischenablage ablegen
    If (counter = lineMax){       ; sobald gesamtzahl der zeilen erreicht ...
      counter = 0                 ; zähler zurücksetzen
      lineMax = 0      
      SoundBeep, 400              ; make some noize!
      }    
    ToolTip % "Line " . counter . " of " lineMax  ; Anzeige aktuelle zeile/gesamtzahl zeilen 
    Sleep, 600                                    ; powernapping
    Send, ^v                                      ; inhalt aus der zwischenablage einfügen/übergeben
    ToolTip                                       ; Anzeige schließen
    Return