[Автоматизация] Работа с буфером обмена (удаление определённых символов при копировании в буфер)

HotKeySet('{ESC}', '_ProExit')

;##############################################################################
;Символы для поиска вводить через пробел
Global $sSimb = InputBox('Символ для удаления', 'Укажите символ/ы для удаления')
;##############################################################################
;Символы для поиска вводить через пробел

Global $aSimb = StringSplit($sSimb, ' '), $sClip

While 1
	Sleep(200)
	$sClip = ClipGet()
	For $i = 0 To UBound($aSimb) - 1
		If StringRegExp($sClip, $aSimb[$i]) Then
			_Job()
			ExitLoop
		EndIf
	Next
WEnd

Func _Job()
	For $i = 1 To UBound($aSimb) - 1
		$sClip = StringRegExpReplace($sClip, '[' & $aSimb[$i] & ']', '')
	Next
    MsgBox(64, 'Info', $sClip)
	;##########################################################
	;Вместо этого блока можно вставить вашу функцию вставки
	ClipPut('')
	$sClip = ''
	;Вместо этого блока можно вставить вашу функцию вставки
	;##########################################################
EndFunc   ;==>_Job

Func _ProExit()
	Exit
EndFunc   ;==>_ProExit

HotKeySet("{ScrollLock}", "DoIt")
HotKeySet("^+{F1}", "Settings")

Global $Ar[1] = ["-"]

Settings()

Do
Until Not Sleep(1000)

Func DoIt()
  Local $Clip = ClipGet()
  If @error Then Return
  For $i = 0 To UBound($Ar) - 1
    $Clip = StringReplace($Clip, $Ar[$i], "")
  Next
  ClipPut($Clip)
EndFunc

Func Settings()
  Local $Str = "", $Text = ""
  For $i = 0 To UBound($Ar) - 1
    $Text &= $Ar[$i]
  Next
  $Str = InputBox("Замена символов", "Введите символы для замены", $Text)
  If $Str Then $Ar = StringSplit($Str, "", 2)
EndFunc