Zeilen nacheinander in die Zwischenablage übernehmen

Post a reply

Confirmation code
Enter the code exactly as it appears. All letters are case insensitive.
Smilies
:D :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :| :mrgreen: :geek: :ugeek: :arrow: :angel: :clap: :crazy: :eh: :lolno: :problem: :shh: :shifty: :sick: :silent: :think: :thumbup: :thumbdown: :salute: :wave: :wtf: :yawn: :facepalm: :bravo: :dance: :beard: :morebeard: :xmas: :HeHe: :trollface: :cookie: :rainbow: :monkeysee: :monkeysay: :happybday: :headwall: :offtopic: :superhappy: :terms: :beer:
View more smilies

BBCode is ON
[img] is OFF
[flash] is OFF
[url] is ON
Smilies are ON

Topic review
   

Expand view Topic review: Zeilen nacheinander in die Zwischenablage übernehmen

Zeilen nacheinander in die Zwischenablage übernehmen

by BoBo » 13 May 2017, 15:05

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
8-)

Top