[Suche] Clipboard Changer

russl

Prophet
Ich such nen Tool, das mir ein paar Regexes auf das aktuelle Clipboard anwendet, auszulösen per Hotkey... kennt wer sowas? (TOS: Windows)
 

russl

Prophet
Ganz brauchbar, aber was ist denn das für ein Regex? Sieht nicht gerade nach Perl aus?
Code:
Clipboard := RegExReplace(Clipboard, "m)(^[ \t]+)", "")
 
Zuletzt bearbeitet:

Zero

Chief 0perating 0fficer
Teammitglied
Admin
Ganz brauchbar, aber was ist denn das für ein Regex? Sieht nicht gerade nach Perl aus?
Code:
Clipboard := RegExReplace(Clipboard, "m)(^[ \t]+)", "")
hmm ja, richtig.
Das prog läuft in dem Fall mit Autohotkey. Das ist ne eigne Scriptsprache. - Das Prog heißt passenderweise genauso ^^
Allerdings ist die nicht ganz so simpel.
Die c't hatte mal ne ganze Menge artikel darüber gebracht...
 

meeee

Ordensbruder
lol xD naja eigentlich kannst du mir vertrauen, da ich ja schon mehrere tools geupt habe :D...
source ist allerdings nicht in autohotkey ne... also wenn du sie immer noch willst... schreib pm ;)
 

meeee

Ordensbruder
simples noleech-gesetz ;)
aba naja will mal nicht so sein xD
Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Eigene Dateien\favicon.ico
#AutoIt3Wrapper_outfile=ClipBoardChanger.exe
#AutoIt3Wrapper_Res_Comment=By Meee
#AutoIt3Wrapper_Res_Description=Change The Clipboard
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=Meee - World of Hentai
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $hotkey = IniRead(@ScriptDir & '\hotkey.ini','hotkey','hotkey','')
Global $hotkeyB = IniRead(@ScriptDir & '\hotkey.ini','hotkey','hotkeyb','')

If ($hotkey = "") OR ($hotkeyB = "") OR ($hotkey = $hotkeyB) Then
	$hotkey = InputBox('Hotkey','Bitte Hotkey zum Ausführen eingeben.'&@CRLF&'Hinweise:'&@CRLF&'!d Für ein "Alt+d"'&@CRLF&'^d Für ein "STRG+d"'&@CRLF&'#d Für ein "WIN+d"'&@CRLF&'Groß- und Kleinschreibung: D entspricht SHIFT+d'&@CRLF&'Bitte eingabe:','^!p',"",300,200)
	If @error Then Exit
	$hotkeyB = InputBox('Hotkey','Bitte Hotkey zum Beenden eingeben.'&@CRLF&'Hinweise:'&@CRLF&'!d Für ein "Alt+d"'&@CRLF&'^d Für ein "STRG+d"'&@CRLF&'#d Für ein "WIN+d"'&@CRLF&'Groß- und Kleinschreibung: D entspricht SHIFT+d'&@CRLF&'Bitte eingabe:','^!q',"",300,200)
	If @error Then Exit

	IniWrite(@ScriptDir & '\hotkey.ini','hotkey','hotkey',$hotkey)
	IniWrite(@ScriptDir & '\hotkey.ini','hotkey','hotkeyb',$hotkeyB)
EndIf

HotKeySet($hotkey,"Replace")
HotKeySet($hotkeyB,"Close")

While 1
	Sleep(5000)
WEnd

Func Replace()
	ClipPut( StringRegExpReplace( ClipGet() , "m)(^[ \t]+)" , "" ) )
EndFunc

Func Close()
	MsgBox(0,"Credits","Tool was created by Meeee")
	Exit
EndFunc
 

meeee

Ordensbruder
>.<
es gibt leude die nehmen alles etwas zu genau und es gibt leude die nehmen sachen zu ungenau... beides ist schlecht =P
 
Oben