7.7 Количество символов в строке.

ТиС 9.2
Помогите решить данную задачку!
У авто есть VIN, как проверить, что пользователь ввел 17 символов?
СтрДлина возвращает длину, но не кол-во символов.

Код:

СтрДлина(СокрЛП("нужная_строка"))

но нужно ещё на пробелы и "левые" символы проверить внутри строки

Возможно и не правильно, но работает!

Код:

    ЧислоСимволов =  Найти (ВИН, " ");
    Если   ЧислоСимволов  > 0   Тогда
        Предупреждение ("Не правильно введен VIN!
                                     |Введено всего" + "   " + ЧислоСимволов  + "   " + "символов!");
        Активизировать ("ВИН"); 
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;

проще тогда через это

Код:

СтрЧислоВхождений(<?>,)
Синтаксис:
СтрЧислоВхождений(<СтрИсточник>,<СтрПодстрока>)
Назначение:
Возвращает число вхождений строки шаблона поиска в строку поиска.
Параметры:
<СтрИсточник> - строка в которой ищем (место поиска);
<СтрПодстрока> - строка которую ищем (шаблон поиска).

и откидывать пробелы слева и справа надо сперва
а через "СтрЧислоВхождений" проверять недопустимые символы внутри и сообщать именно о таких символах

на пробелы сработает, а допустимые там - цифры и не полный латинский алфавит

Код:

//    TestVIN="XTA210990Y2766389";

//*******************************************
Процедура Сформировать()
    Сообщить("VIN в поле ввода содержит "+СтрДлина(VIN)+" символов");
    Сообщить("VIN после СокрЛП содержит "+СтрДлина(СокрЛП(VIN))+" символов");
    Сообщить("Проверяем на наличие символов пробела");
    ПравильныйVIN=СокрЛП(VIN);
    Если СтрЧислоВхождений(ПравильныйVIN," ") = 0 Тогда
        Сообщить("Данный VIN не содержит символов пробела");
    Иначе
        Сообщить("Данный VIN содержит символы пробела в кол-ве "+СтрЧислоВхождений(ПравильныйVIN," ")+" шт.");
        Предупреждение("Исправляем, удаляя символы пробела",5);
        ПравильныйVIN=СтрЗаменить(ПравильныйVIN," ","");
        Сообщить("Исправлено, все символы пробела удалены");
        Сообщить("Правильный VIN = "+ПравильныйVIN);
    КонецЕсли;       
   
КонецПроцедуры

Процедура ПриОткрытии()
    VIN="XTA 210990Y 276 63 89";
КонецПроцедуры

а так и символы на валидность проверит (здесь в заданном тестовом первый символ не латинская, а русская "Х")

Код:

//    TestVIN="XTA210990Y2766389";


//*******************************************
Процедура Сформировать()
    Сообщить("VIN в поле ввода содержит "+СтрДлина(VIN)+" символов");
    Сообщить("VIN после СокрЛП содержит "+СтрДлина(СокрЛП(VIN))+" символов");
    Сообщить("Проверяем на наличие символов пробела");
    ПравильныйVIN=СокрЛП(VIN);
    Если СтрЧислоВхождений(ПравильныйVIN," ") = 0 Тогда
        Сообщить("Данный VIN не содержит символов пробела");
    Иначе
        Сообщить("Данный VIN содержит символы пробела в кол-ве "+СтрЧислоВхождений(ПравильныйVIN," ")+" шт.");
        Предупреждение("Исправляем, удаляя символы пробела",5);
        ПравильныйVIN=СтрЗаменить(ПравильныйVIN," ","");
        Сообщить("Исправлено, все символы пробела удалены");
        Сообщить("Правильный VIN = "+ПравильныйVIN);
    КонецЕсли;       
   
    //проверяем валидность символов
    validdata="0123456789ABCDEFGHJKLMNPRSTUVWXYZ";
    GoodOK=1;
    Для нн = 1  По СтрДлина(ПравильныйVIN) Цикл
        Если Найти(validdata,Сред(ПравильныйVIN,нн,1))=0 Тогда
            Сообщить("символ №"+нн+" неверный");
            GoodOK=0;
        КонецЕсли;
    КонецЦикла;
   
    Если GoodOK=1 Тогда
        Сообщить("Все введёные символы верны");
    Иначе
        Сообщить("Найдены ошибки");
    КонецЕсли;
КонецПроцедуры

Процедура ПриОткрытии()
    VIN="ХTA 210990Y 276 63 89";
КонецПроцедуры

О проверке не подумал, для хранения и печати - это не критично, а вот если использовать такой VIN для поиска запчастей, выдаст ошибку.
СПАСИБО, за подсказку!