Post by haichen » 03 Apr 2020, 07:48
Schön wenns dir gefällt. Ich hatte das ganze übrigens als Funktion umgeschrieben. Vielleicht kannst du das ja gebrauchen:
Code: Select all
^#NumPadSub:: ; {Hotkey} Strg-Win-NUM-- → einzelne Wörter kopieren
; Die aktuelle Markierung wird in die Zwischenablage kopiert '
; und dort wird jedes einzelne Wort einzeln in der '
; Zwischenablage abgelegt. Anschließend kann man mit der '
; Clipboard-Historie die einzelnen Wörter pasten (Excel!) '
ToolTip, Bitte warten ...
SoundBeep, 850, 400
ClipHistory()
return
ExitApp
Return
ClipHistory(){
clipboard = ; Clipboard löschen
SendInput ^c ; Markierung ins Clipboard ...
ClipWait, 2 ; warten (max. 2 Sekunden), bis Clipboard gefüllt ist
if ErrorLevel ; wenn nichts im Clipboard ...
{
ToolTip
Return ; ... beenden
}
MyClipboard := wl(Clipboard,5)
word_array := StrSplit(MyClipboard, A_Space)
for key, value in word_array
{
If (value !="")
{
clipboard := value
Sleep, 275
}
}
ToolTip, Fertig!
SoundBeep, 2250, 300
Sleep 700
ToolTip
return
}
wl(string,c){
;nur das Nötigste an Zeichen
loop, parse, string
if A_LoopField in a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,ß,ü,ö,%A_Space%,%A_Tab%,ä,-,1,2,3,4,5,6,7,8,9,0
s.=A_LoopField
;Wortlänge begrenzen und überflüssige Leerzeichen entfernen
word_array := StrSplit(s, [A_Space,A_Tab])
s:=""
for key,val in word_array
{
if (strlen(trim(val)) > c)
s.=val " "
}
;doppelte Worte entfernen
sort, s, D UCL
return trim(s)
}
Schön wenns dir gefällt. Ich hatte das ganze übrigens als Funktion umgeschrieben. Vielleicht kannst du das ja gebrauchen:[code]
^#NumPadSub:: ; {Hotkey} Strg-Win-NUM-- → einzelne Wörter kopieren
; Die aktuelle Markierung wird in die Zwischenablage kopiert '
; und dort wird jedes einzelne Wort einzeln in der '
; Zwischenablage abgelegt. Anschließend kann man mit der '
; Clipboard-Historie die einzelnen Wörter pasten (Excel!) '
ToolTip, Bitte warten ...
SoundBeep, 850, 400
ClipHistory()
return
ExitApp
Return
ClipHistory(){
clipboard = ; Clipboard löschen
SendInput ^c ; Markierung ins Clipboard ...
ClipWait, 2 ; warten (max. 2 Sekunden), bis Clipboard gefüllt ist
if ErrorLevel ; wenn nichts im Clipboard ...
{
ToolTip
Return ; ... beenden
}
MyClipboard := wl(Clipboard,5)
word_array := StrSplit(MyClipboard, A_Space)
for key, value in word_array
{
If (value !="")
{
clipboard := value
Sleep, 275
}
}
ToolTip, Fertig!
SoundBeep, 2250, 300
Sleep 700
ToolTip
return
}
wl(string,c){
;nur das Nötigste an Zeichen
loop, parse, string
if A_LoopField in a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,ß,ü,ö,%A_Space%,%A_Tab%,ä,-,1,2,3,4,5,6,7,8,9,0
s.=A_LoopField
;Wortlänge begrenzen und überflüssige Leerzeichen entfernen
word_array := StrSplit(s, [A_Space,A_Tab])
s:=""
for key,val in word_array
{
if (strlen(trim(val)) > c)
s.=val " "
}
;doppelte Worte entfernen
sort, s, D UCL
return trim(s)
}
[/code]