Difference between revisions of "AutoHotkey: Inplace rename facilities"

From TotalcmdWiki
Jump to: navigation, search
Line 8: Line 8:
 
StringLower, lowercase_string, clipboard
 
StringLower, lowercase_string, clipboard
 
Send, %lowercase_string%
 
Send, %lowercase_string%
Return  
+
Return  
  
 
;First letter uppercase
 
;First letter uppercase
 
  #2::
 
  #2::
ControlGetFocus, ActiveControl, A
+
  ControlGetFocus, ActiveControl, A
Send, ^c
+
  Send, ^c
StringLower, lowercase_string, clipboard
+
  StringLower, lowercase_string, clipboard
StringLeft, first_letter_of_string, lowercase_string, 1
+
  StringLeft, first_letter_of_string, lowercase_string, 1
StringUpper, first_letter_of_string_uppercase, first_letter_of_string
+
  StringUpper, first_letter_of_string_uppercase, first_letter_of_string
StringTrimLeft, rest_of_string, lowercase_string, 1
+
  StringTrimLeft, rest_of_string, lowercase_string, 1
Send, %first_letter_of_string_uppercase%%rest_of_string%
+
  Send, %first_letter_of_string_uppercase%%rest_of_string%
Return  
+
Return  
  
;First Of Each Word Uppercase
+
;First Of Each Word Uppercase
 
  #3::
 
  #3::
 
   ControlGetFocus, ActiveControl, A
 
   ControlGetFocus, ActiveControl, A
Line 32: Line 32:
 
  Return  
 
  Return  
  
;ALL UPPERCASE
+
;ALL UPPERCASE
 
  #4::
 
  #4::
 
   ControlGetFocus, ActiveControl, A
 
   ControlGetFocus, ActiveControl, A
Line 40: Line 40:
 
  Return  
 
  Return  
  
;Replace Space by Underscore
+
;Replace Space by Underscore
 
  #5::
 
  #5::
 
   ControlGetFocus, ActiveControl, A
 
   ControlGetFocus, ActiveControl, A
Line 49: Line 49:
 
  Return  
 
  Return  
  
;Replace Underscore by Space (Remove Underscore)
+
;Replace Underscore by Space (Remove Underscore)
 
  #6::
 
  #6::
 
   ControlGetFocus, ActiveControl, A
 
   ControlGetFocus, ActiveControl, A
Line 56: Line 56:
 
   StringReplace, string_underscore2space, clipboard, _, %A_SPACE%, All
 
   StringReplace, string_underscore2space, clipboard, _, %A_SPACE%, All
 
   Send, %string_underscore2space%
 
   Send, %string_underscore2space%
Return
+
Return
  
 
;Replace Dot by Space (Remove Underscore)
 
;Replace Dot by Space (Remove Underscore)
Line 65: Line 65:
 
   StringReplace, string_underscore2space, clipboard, ., %A_SPACE%, All
 
   StringReplace, string_underscore2space, clipboard, ., %A_SPACE%, All
 
   Send, %string_underscore2space%
 
   Send, %string_underscore2space%
Return
+
Return
  
 
;Replace \ by /  
 
;Replace \ by /  
Line 74: Line 74:
 
   StringReplace, string_underscore2space, clipboard, \, /, All
 
   StringReplace, string_underscore2space, clipboard, \, /, All
 
   Send, %string_underscore2space%
 
   Send, %string_underscore2space%
Return
+
Return
  
 
Back to [[AutoHotkey]]
 
Back to [[AutoHotkey]]

Revision as of 10:10, 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::

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