ДопустимыеСимволы = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxY­yZz";

ЛишниеСимволы = СтрСоединить(СтрРазделить(ИсходнаяСтрока,ДопустимыеСимволы));

ИтоговаяСтрока = СтрСоединить(СтрРазделить(ИсходнаяСтрока,ЛишниеСимволы));