How can I remove all letters and special characters(? ! " .) Thanks for any help in advance.
Code: Select all
; case-sensitive
MyMenu := Menu()
MyMenu.Add '1. Remove inputword', RemoveWord
Capslock & f:: {
global IB, textClipboard
IB:='', textClipboard:= ''
A_Clipboard := ''
Send('^c')
if (ClipWait(1)) {
textClipboard := A_Clipboard
txt := SubStr(textClipboard, 1, 65)
IB := InputBox('Clipboard:`n' txt '`n`nEnter text to change.', 'Change text', 'w530 h150')
if (ib.Result = 'OK' && ib.Value != '')
MyMenu.Show
Send('^v')
} else {
MsgBox 'An error occurred while waiting for the clipboard.', 'Error', 'Icon!'
}
}
RemoveWord(ItemName, ItemPos, MyMenu) {
A_Clipboard := RegExReplace(A_Clipboard, '\b' ib.Value '\b\h*', "")
}