Используется парсер msxml 6, соответственно, целевая платформа - Windows

&НаКлиентеНаСервереБезКонтекста
Функция ФорматироватьТекстСообщения(ТекстСообщения)
    
    Возврат ""+ТекущаяДата()+": "+ТекстСообщения+Символы.ПС;
    
КонецФункции

// Куда = 0 - в сообщения пользователю
// Куда = 1 - в протокол
// Куда = 2 - в протокол и в сообщения пользователю
&НаКлиенте
Процедура ВывестиСообщение(Сообщ,Куда=1,Форматировать=Ложь)
    
    Если Форматировать Тогда
        ТекСообщ=ФорматироватьТекстСообщения(Сообщ);
    Иначе
        ТекСообщ=Сообщ+Символы.ПС;
    КонецЕсли;
    
    Если (Куда=0) ИЛИ (Куда=2) Тогда
        Сообщить(ТекСообщ,СтатусСообщения.ОченьВажное);
    КонецЕсли;
    Если (Куда=1) ИЛИ (Куда=2) Тогда
        Протокол=Протокол+ТекСообщ;
    КонецЕсли;
    
КонецПроцедуры

&НаКлиенте
Процедура ВывестиОшибкуРазбораХМЛ(Ошибка,Куда,Форматировать)
    ВывестиСообщение(" ",Куда,Форматировать);
    ВывестиСообщение("Обнаружена ошибка:",Куда,Форматировать);
    ВывестиСообщение("Смещение = "+Формат(Ошибка.filepos,"ЧГ=0")+", строка = "+Формат(Ошибка.line,"ЧГ=0")+", позиция = "+Формат(Ошибка.linepos,"ЧГ=0")+", код ошибки: "+Формат(Ошибка.errorCode,"ЧГ=0"),Куда,Форматировать);
    ВывестиСообщение("Описание ошибки: "+Ошибка.reason,Куда,Форматировать);
КонецПроцедуры

&НаКлиенте
Функция ПроверкаПоСхемеКлиент(ИмяФайла,ИмяФайлаСхемы,ВыводитьВсеОшибки=Истина)
    
    Куда=1;	Форматировать=Ложь;
    
    РезПроверки=Ложь;
    
    Если Не ЗначениеЗаполнено(ИмяФайла) Тогда
        Возврат РезПроверки;
    КонецЕсли;
    
    Если НЕ ЗначениеЗаполнено(ИмяФайлаСхемы) Тогда
        // Не удалось извлечь файл схемы
        Возврат РезПроверки;
    КонецЕсли;
    
    Попытка
        Схема=Новый COMОбъект("MSXML2.XMLSchemaCache.6.0");
    Исключение
        ВывестиСообщение("Не удалось создать объект XMLSchemaCache (возможно, не установлен MSXML 6)",2);
        Возврат РезПроверки;
    КонецПопытки;
    
    Попытка
        Схема.add("",ИмяФайлаСхемы);
    Исключение
        ВывестиСообщение("Не удалось подключить схему: "+ИмяФайлаСхемы,2);
        Схема=Неопределено;
        Возврат РезПроверки;
    КонецПопытки;
    
    Попытка
        ДОМ=Новый COMОбъект("MSXML2.DOMDocument.6.0");
    Исключение
        ВывестиСообщение("Не удалось создать объект DOMDocument (возможно, не установлен MSXML 6)",2);
        Схема=Неопределено;
        Возврат РезПроверки;
    КонецПопытки;
    
    ДОМ.schemas=Схема;
    ДОМ.async=Ложь;
    ДОМ.validateOnParse=Истина;
    ДОМ.resolveExternals=Истина;
    Если ВыводитьВсеОшибки Тогда
        ДОМ.SetProperty("MultipleErrorMessages",Истина);
    КонецЕсли;
    ДОМ.load(ИмяФайла);
    
    Если (ДОМ.parseError.errorCode<>0) Тогда
        // ошибки при проверке правильности
        ВывестиСообщение("При проверке по схеме выявлены ошибки!",Куда,Форматировать);
        Если ВыводитьВсеОшибки Тогда
            Для каждого parseError из ДОМ.parseError.AllErrors  Цикл
                ВывестиОшибкуРазбораХМЛ(parseError,Куда,Форматировать);
            КонецЦикла;
        Иначе
            ВывестиОшибкуРазбораХМЛ(ДОМ.parseError,Куда,Форматировать);
        КонецЕсли;
    Иначе
        ВывестиСообщение("Файл успешно прошёл проверку по схеме!",Куда,Форматировать);
        РезПроверки=Истина;
    КонецЕсли;
    
    Схема=Неопределено;
    ДОМ=Неопределено;
    
    Возврат РезПроверки;
    
КонецФункции