AutoHotkey: Inplace rename facilities: Difference between revisions

From TotalcmdWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 4: Line 4:


;All lowercase
;All lowercase
;\#1 = Win Key + 1
;/#1 = Win Key + 1
#1::
#1::
ControlGetFocus, ActiveControl, A
ControlGetFocus, ActiveControl, A

Revision as of 09:58, 2 May 2006

Set of small AHK scripts allowing to perform different tasks in Inplace rename field (or any other place).

UPPERCASE LOWERCASE UNDERSCORE FACILITIES###
All lowercase
/#1 = Win Key + 1
  1. 1::

ControlGetFocus, ActiveControl, A Send, ^c StringLower, lowercase_string, clipboard Send, %lowercase_string% Return

First letter uppercase
  1. 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
  1. 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
  1. 4::

ControlGetFocus, ActiveControl, A Send, ^c StringUpper, uppercase_string, clipboard Send, %uppercase_string% Return

Replace Space by Underscore
  1. 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)
  1. 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)
  1. 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 /
  1. 8::
  ControlGetFocus, ActiveControl, A
  Send, ^c
  ;StringReplace, OutputVar, InputVar, SearchText [, ReplaceText, ReplaceAll?]  
  StringReplace, string_underscore2space, clipboard, \, /, All
  Send, %string_underscore2space%

Return

Back to AutoHotkey