Thanks in advance for any help.
Code: Select all
:*:somedoc:: ; <-- Send Some Doctor, MD
Gosub enteruppaste
Send Some Doctor, MD
Return
enteruppaste:
;Input, character, L1 T1, {ENTER}{SHIFT}/, u,n,{SPACE},{RIGHT},p,c,s
Input, character, T1, , u,n,p,c,s,{SPACE},{RIGHT},.,,
If ((character ~= "u|n")) ; Delete next word
{
Send {UP}{END}{ENTER}{HOME}.{LEFT}
Return
}
Else
If ((character ~= "p|."))
{
;Msgbox, 4100, , period, 0.6
Send `.{LEFT}
Return
}
Else
If ((character ~= "c|,"))
{
;Msgbox, 4100, , comma, 0.6
Send `,{SPACE}{LEFT 2}
Return
}
Else
If ((character ~= "s|{SPACE}|{RIGHT}"))
;If character contains s,{space},{RIGHT}
{
Msgbox, 4100, , space, 0.3
Send {SPACE}
Return
}
Else
Send {SPACE}
Return