WoH Board: Anime & Hentai Forum

This is a sample guest message. Register a free account today to become a member! Once signed in, you'll be able to participate on this site by adding your own topics and posts, as well as connect with other members through your own private inbox!

[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)
 
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:
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...
 
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 ;)
 
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
 
>.<
es gibt leude die nehmen alles etwas zu genau und es gibt leude die nehmen sachen zu ungenau... beides ist schlecht =P
 
Zurück
Oben