Есть такой вот скрипт:

Dim addtypes, format

'Set addtypes = CreateObject("msxml2.DOMDocument.6.0")
'addtypes.load("addtypes.xsd")
'addtypes.load("mlbtypes.xsd")


Set format = CreateObject("msxml2.DOMDocument.6.0")
format.load("%ИмяФайлаСхемы%")


Dim schema
Set schema = CreateObject("msxml2.XMLSchemaCache.6.0")

'call schema.add("", addtypes)
call schema.add("", format)


'теперь будем загружать проверяемый xml
Dim testing
Set testing = CreateObject("msxml2.DOMDocument.6.0")
testing.load("%ИмяФайлаСообщения%")

testing.schemas = schema
Set error = testing.validate
if error.errorCode <> 0 then
    serr = "Ошибка валидации XML пакета!"
        serr = serr + " Причина: " + error.reason
        serr = serr + " XPath: " + error.errorXPath
    msgbox(serr)
else
    msgbox("Документ соответствует схеме.")
end if

он выдает на экран результат проверки
хотелось бы получить результат внутри кода 1С
вопрос - как?

(0) Проверяй средствами 1С. ВНЕЗАПНО, да?

(1) [jnm jlyj rk.xtdjt lkz gjbcrf d CG

(1) хоть одно ключевое для поиска в СП

Попытка
        Схема = Новый COMОбъект("MSXML2.XMLSchemaCache.6.0");
        
    Исключение
        СообщитьОбОшибке("Не удалось создать объект XMLSchemaCache");
        Возврат Ложь;
    КонецПопытки;
    
    Попытка
        Схема.add("",ИмяФайлаСхемы);
    Исключение
        СообщитьОбОшибке("Не удалось подключить схему");
        Возврат Ложь;
    КонецПопытки;
    
    Попытка
        ДОМ = Новый COMОбъект("MSXML2.DOMDocument.6.0");
    Исключение
        СообщитьОбОшибке("Не удалось создать объект DOMDocument");
        Возврат Ложь;
    КонецПопытки;
    
    ДОМ.schemas                = Схема;
    ДОМ.async                = Ложь;
    ДОМ.validateOnParse        = Истина;
    ДОМ.resolveExternals    = Истина;
    ДОМ.load(ПутьКФайлу);
    
    Если (ДОМ.parseError.errorCode<>0) Тогда
        // ошибки при проверке правильности
        Ошибка = ДОМ.ParseError;
        
        ТекстОшибки = "
        |    Смещение = "+Ошибка.filepos+", строка = "+Ошибка.line+", позиция = "+Ошибка.linepos + "
        |    Описание ошибки: "+ СтрЗаменить(Ошибка.reason, Символы.ПС, " ") + "
        |    Путь в файле: "+Ошибка.ErrorXPath;
        
        СообщитьОбОшибке("При проверке правильности файла """+ПутьКФайлу+""" выявлены ошибки:" + ТекстОшибки);
        
        Возврат Ложь;
    КонецЕсли;
    
    Если НЕ ДОМ.validateOnParse Тогда    
        Ошибка=ДОМ.validate();    
        Если (Ошибка.errorCode<>0) Тогда
            
            ТекстОшибки = "
            |    Смещение = "+Ошибка.filepos+", строка = "+Ошибка.line+", позиция = "+Ошибка.linepos + "
            |    Описание ошибки: " + СтрЗаменить(Ошибка.reason, Символы.ПС, " ") + "
            |    Путь в файле: "+Ошибка.ErrorXPath;
            
            СообщитьОбОшибке("При валидации файла """+ПутьКФайлу+""" выявлены ошибки:" + ТекстОшибки);
            Возврат Ложь;
        КонецЕсли;
    КонецЕсли;

см. ЧтениеXML.ОткрытьФайл(), 2 и 3 параметры

(5) 1С не очень интересно ошибки показывает, а если их ещё и несколько то показывает только первую, если парень хочет подробные описания ошибок с сылкой на строку ошибки то может использование комов в этом плане удобней будет

(4) достаточно было про ком объект упомянуть - я думал именно средствами 1С

http://www.1c-pro.ru/topic42739.html

8+ Прошу прощения. Это проверка набора схем

(8) а где там xsd указывается?

(10) Ты набор схем можешь получить из Фабрики XDTO или из набора файлов или ПостроительСхемXML

СхемаXML = Новый СхемаXML;
СхемаXML.РасположениеСхемы = ИмяСхемыXSD;