直觀的標題框

Question

我正在尋找一種方法來使腳本更直觀與標題框。我正在尋找的是一個能夠識別符號（/， - ，\等）和典型首字母縮略詞（FEMA，CDC，[City] PD等）的腳本，並適當地應用標題框。我目前擁有的是：

SaveVar=%Clipboard% 
Clipboard= 
ClipWait, 0.5 
Send ^c 
ClipWait, 0.5 
segment = %Clipboard% 
; Replace text with text in title case 
; Make words following "/" title case 
StringUpper, segment, segment , T 
; Process exceptions 
segment := RegExReplace(segment, "\bA\b", "a") 
segment := RegExReplace(segment, "\bAn\b", "an") 
segment := RegExReplace(segment, "\bThe\b", "the") 
segment := RegExReplace(segment, "\bTo\b", "to") 
segment := RegExReplace(segment, "\bAt\b", "at") 
segment := RegExReplace(segment, "\bIn\b", "in") 
segment := RegExReplace(segment, "\bAs\b", "as") 
segment := RegExReplace(segment, "\bAn\b", "an") 
segment := RegExReplace(segment, "\bAnd\b", "and") 
segment := RegExReplace(segment, "\bBut\b", "but") 
segment := RegExReplace(segment, "\bOr\b", "or") 
segment := RegExReplace(segment, "\bpdf\b", "PDF") 
segment := RegExReplace(segment, "\bllc\b", "LLC") 
segment := RegExReplace(segment, "\bdui\b", "DUI") 
segment := RegExReplace(segment, "\bAmp\b", "amp") 
segment := RegExReplace(segment, "\bPdf\b", "PDF") 
segment := RegExReplace(segment, "\bBy\b", "by") 
segment := RegExReplace(segment, "\bOf\b", "of") 
segment := RegExReplace(segment, "\bFor\b", "for") 
segment := RegExReplace(segment, "\b-up\b", "-Up") 
; Make first letter uppercase 
segment:=RegExReplace(segment, "(\w)(.+)","$U1$2") 
; Replace segment text with modified contents of clipboard 
Clipboard := segment 
ClipWait, 0.5 
Send ^v 
Sleep 100 
Clipboard=%SaveVar% 
SaveVar= 
return 

的問題，這是它會降低下面的符號字母，和所有除首字母縮寫詞的第一個字母。是否有辦法在符號之後對字母進行例外處理，甚至在應用適當的大小寫之前在符號周圍應用空格？

Answer 1

下面的行：與

segment:=RegExReplace(segment, "(\W)([a-z])","$1$U2") 

\W是一個符號，並且如果一個小寫字母跟隨它，即[a-z]然後返回捕獲的符號，一起：

segment:=RegExReplace(segment, "(\w)(.+)","$U1$2") 

添加行以大寫字母俘獲的信件。