AutoHotkey Community

^RButton::
ClipSaved := ClipboardAll
send, ^c
sleep, 100

pos = 0 ; initial offset
Loop
   If pos := RegExMatch(clipboard, "\w+\b(?=(.*?)(?:\w|$))", word, ++pos) { ; match word
      pos += StrLen(word) ; add word length to offset
      StringUpper, caps, word
      If !(caps == word) ; if word is not all caps
         StringUpper, word, word, T ; change it to title case
      str .= word . word1
   } Else Break ; no more matches

StringCaseSense, On
StringReplace, clipboard, clipboard, %A_Space%And%A_Space%, %A_Space%and%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%Into%A_Space%, %A_Space%into%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%And%A_Space%, %A_Space%and%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%Via%A_Space%, %A_Space%via%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%From%A_Space%, %A_Space%from%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%With%A_Space%, %A_Space%with%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%In%A_Space%, %A_Space%in%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%At%A_Space%, %A_Space%at%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%For%A_Space%, %A_Space%for%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%To%A_Space%, %A_Space%to%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%Or%A_Space%, %A_Space%or%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%But%A_Space%, %A_Space%but%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%The%A_Space%, %A_Space%the%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%Of%A_Space%, %A_Space%of%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%A%A_Space%, %A_Space%a%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%An%A_Space%, %A_Space%an%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%By%A_Space%, %A_Space%by%A_Space%, All
StringReplace, clipboard, clipboard, %A_Space%On%A_Space%, %A_Space%on%A_Space%, All
Clipboard := RegExReplace(Clipboard, "(-[a-z])", "$u1")
send, ^v
Clipboard := ClipSaved
ClipSaved =
return

MaxAcroLength := 3 ; Maximmum number of letters for the Acronyms


^RButton::
ClipSaved := ClipboardAll
Clipboard := ""
send, ^c
ClipWait

Loop, Parse, Clipboard, %A_Space% ; Parse by spaces
{
   If (RegExMatch(A_LoopField, "[A-Z]{2," MaxAcroLength "}")) ; Check for Acronym
   {
         if (NewClipboard == "") ; If new clipboard is blank write this                        ; Code for Acronyms   
         NewClipboard = %A_LoopField%
         Else               ; If there is content, write this
         NewClipboard = %NewClipboard% %A_LoopField%
   }
   Else if (!RegExMatch(A_LoopField, "[A-Z]{2," MaxAcroLength "}"))               ; Title Case everything else
   {
      StringUpper, B_LoopField, A_Loopfield, T
      if (NewClipboard == "") ; If new clipboard is blank write this
         NewClipboard = %B_LoopField%
      Else               ; If there is content, write this
         NewClipboard = %NewClipboard% %B_LoopField%
   }
}
Clipboard := NewClipboard ; Assign new set to clipboard
NewClipboard := "" ; Clear new clipboard data
Send, ^v ; Send clipboard
Sleep 100
Clipboard := "" ; Blank clipboard
Clipboard := ClipSaved ; Restore clipboard content
ClipWait ; Wait for clipboard to have content
return

Needle =
(join ltrim comments
  (^|[.!?:;])\W*\K(([A-Z]{2,4})\b          ; first (in the sentence) acronym (upper case $U3)
                  |([\w']+))               ; any other first word   (title case $T4)
  |\b(?i)(a|after|an|and|at|but|by|for|from
     |in|nor|of|on|or|s|the|through|to)\b  ; not first small words (lower case $L5)
  |\b(?-i)([A-Z]{2,4})\b                   ; not first acronym  (upper case $U6)
  |\b([\w']+)                              ; any other word   (title case $T7)
)

^t::       ; Select some text and press Ctrl-t to test
  Send ^c
  MsgBox % RegExReplace(Clipboard,Needle,"$U3$T4$L5$U6$T7")
  return

TITLE:
Gosub,COPY
StringLower,string,string,T
Gosub,PASTE
Return

Needle =              ;
(join ltrim comments  ; put these lines in the
; regex ... regex     ; auto-execute section
)                     ;

; ...   ...   ...   ...

TITLE:
Gosub,COPY
string := RegExReplace(string,Needle,"$U3$T4$L5$U6$T7")
Gosub,PASTE
Return

SetBatchLines, -1
Hotkey, ~LButton Up, SelectText
Hotkey, ~LButton Up, Off

F1:: ; Toggles on and off
T := !T
If (T)
{
    Hotkey, ~LButton Up, On
    ToolTip, CamelCase conversion on clipboard ENABLED
    SetTimer, ToolTipOff, -3000  ; Turns off the tooltip in 3 seconds
}
else
{
    Hotkey, ~LButton Up, Off
    ToolTip, CamelCase conversion on clipboard DISABLED
    SetTimer, ToolTipOff, -3000  ; Turns off the tooltip in 3 seconds
}
return

SelectText:
Clipboard := ""
SendInput, ^c
ClipWait, 0.2
Clipboard := ConvertToCamel(Clipboard)
ToolTip, Converted clipboard to CamelCase
Hotkey, ~LButton Up, Off
T := !T
SetTimer, ToolTipOff, -3000  ; Turns off the tooltip in 3 seconds
return




ToolTipOff: ; Turns off tooltip
ToolTip
return

ConvertToCamel( ConvertToCamelString ){
    StringReplace, ConvertToCamelString, ConvertToCamelString, _, %A_Space%, 1
    StringUpper, ConvertToCamelString, ConvertToCamelString, T ; Title case
    EndPos := RegExMatch(ConvertToCamelString, " ")
    FirstWord := SubStr(ConvertToCamelString, 1, EndPos-1)
    RestWords := SubStr(ConvertToCamelString, EndPos)
    StringLower, FirstWord, FirstWord
    ConvertToCamelString := FirstWord RestWords
    StringReplace, ConvertToCamelString, ConvertToCamelString, %A_Space%,, 1
    return ConvertToCamelString
}