AutoHotkey: Inplace rename facilities
Jump to navigation
Jump to search
Set of small AHK scripts allowing to perform different tasks (uppercase, lowercase, add or remove underscore ... from the highlighted file in Inplace rename field). It can also be used anywhere else just highlight the text you want to modify and press WinKey+1 or WinKey+2 ...
- All lowercase
;#1 -> Win Key + 1 #1:: ControlGetFocus, ActiveControl, A Send, ^c StringLower, lowercase_string, clipboard Send, %lowercase_string% Return
- First letter uppercase
#2:: ControlGetFocus, ActiveControl, A Send, ^c StringLower, lowercase_string, clipboard StringLeft, first_letter_of_string, lowercase_string, 1 StringUpper, first_letter_of_string_uppercase, first_letter_of_string StringTrimLeft, rest_of_string, lowercase_string, 1 Send, %first_letter_of_string_uppercase%%rest_of_string% Return
- First Of Each Word Uppercase
#3:: ControlGetFocus, ActiveControl, A Send, ^c ;StringUpper, OutputVar, InputVar [, T] ;StringLower, OutputVar, InputVar [, T] ;[, T] = If the parameter is the letter T, the string will be converted to title case. StringLower, first_each_word_uppercase_string, clipboard, T Send, %first_each_word_uppercase_string% Return
- ALL UPPERCASE
#4:: ControlGetFocus, ActiveControl, A Send, ^c StringUpper, uppercase_string, clipboard Send, %uppercase_string% Return
- Replace Space by Underscore
#5:: ControlGetFocus, ActiveControl, A Send, ^c ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?] StringReplace, string_space2underscore, clipboard, %A_SPACE%, _, All Send, %string_space2underscore% Return
- Replace Underscore by Space (Remove Underscore)
#6:: ControlGetFocus, ActiveControl, A Send, ^c ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?] StringReplace, string_underscore2space, clipboard, _, %A_SPACE%, All Send, %string_underscore2space% Return
- Replace Dot by Space (Remove Underscore)
#7:: ControlGetFocus, ActiveControl, A Send, ^c ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?] StringReplace, string_underscore2space, clipboard, ., %A_SPACE%, All Send, %string_underscore2space% Return
- Replace \ by /
#8:: ControlGetFocus, ActiveControl, A Send, ^c ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?] StringReplace, string_underscore2space, clipboard, \, /, All Send, %string_underscore2space% Return
Back to AutoHotkey