Фильтровать буфер обмена по маске

[Dinar]

Версия AutoIt: 3.5.4

Описание:
Добрый день
Подскажите какую функцию (часть кода) добавить в скрипт чтобы она исправляла информ. в буфере обмена. Например в буфере имеем текст вида «$ABDCF» без пробелов, где поcле символа "$" стоят латинские буквы от 1 до 5. Иногда в конце текста сразу без пробела встречаются ненужные знаки «.» «!» или ссылка вида хттп://ввв...." . Как удалять эти ненужные в конце символы в буфере? оставляя в нем только текст например вида «$ABCF»

 

[Alofa]

$sData = ClipGet()
$sData = StringRegExpReplace($sData, '.*(\$[A-Z]{1,5}).*', '$1')
ClipPut($sData)

Добавлено:

Сообщение автоматически объединено: 24 Июл 2016

ClipPut(StringRegExpReplace(ClipGet(), '(?s).*(\$[A-Z]{1,5}).*', '$1'))

Скрипт найдет только одно совпадение.