Получение массива имен реквизитов обычной формы и имя ее основного реквизита

Функция ЛксСтрокаВнутрВХМЛТело(вхСтрока, выхХМЛТело = Неопределено) Экспорт

    //{ Получение одной длинной строки
    выхХМЛТело = СтрЗаменить(вхСтрока,СИМВОЛЫ.ПС,"");
    выхХМЛТело = СтрЗаменить(выхХМЛТело,СИМВОЛЫ.ВК,"");
    //}

    //{ Заменяем символы, критичные для XML
    //    & на &
    //    < на <
    //    > на >
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"&","&");
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"<","<");
    выхХМЛТело = СтрЗаменить(выхХМЛТело,">",">");

    //{ Замена одинарных символов
    выхХМЛТело = СтрЗаменить(выхХМЛТело,",","");
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"{","");
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"}","");
    //}

    //{ Удаляем лишние блоки и
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"","");
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"","");
    //}

    //{ Добавляем перенос строки к и к для удобства поиска различий
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"",""+СИМВОЛЫ.ПС);
    выхХМЛТело = СтрЗаменить(выхХМЛТело,"",""+СИМВОЛЫ.ПС);
    //}

    Возврат выхХМЛТело;

КонецФункции

Функция ЛксПолучитьДокументDOMФормы(Форма) Экспорт

    СтрокаФормы = ЗначениеВСтрокуВнутр(Форма);
    XMLСтрокаФормы = ЛксСтрокаВнутрВХМЛТело(СтрокаФормы);
    ЧтениеXML = Новый ЧтениеXML;
    ЧтениеXML.УстановитьСтроку(XMLСтрокаФормы);
    ПостроительDOM = Новый ПостроительDOM;
    ДокументDOM = ПостроительDOM.Прочитать(ЧтениеXML);
    Возврат ДокументDOM;

КонецФункции // ЛксПолучитьДокументDOMФормы()

Функция ЛксПолучитьXPathИмениРеквизитаВОписанииРеквизита(ИДВерсииПлатформы = "81")

    Если ИДВерсииПлатформы = "81" Тогда
        Результат = "/data[3]";
    ИначеЕсли ИДВерсииПлатформы = "82" Тогда
        Результат = "/data[4]";
    КонецЕсли;
    Возврат Результат;

КонецФункции // ПолучитьXPathИмениРеквизитаВОписанииРеквизита()

Функция ЛксПолучитьМассивИменРеквизитовФормы(Форма, ИДВерсииПлатформы = "81") Экспорт

    Массив = Новый Массив;
    ДокументDOM = ЛксПолучитьДокументDOMФормы(Форма);
    РазыменовательПИ = Новый РазыменовательПространствИменDOM(ДокументDOM);
    СтрокаXPath = "/elem[1]/elem[1]/elem[2]/elem[2]/elem" + ЛксПолучитьXPathИмениРеквизитаВОписанииРеквизита(ИДВерсииПлатформы) + "/text()";
    РезультатXPath = ДокументDOM.ВычислитьВыражениеXPath(СтрокаXPath, ДокументDOM,
    РазыменовательПИ, ТипРезультатаDOMXPath.НеупорядоченныйИтераторУзлов);
    Пока 1 = 1 Цикл
        Узел = РезультатXPath.ПолучитьСледующий();
        Если Узел = Неопределено Тогда
            Прервать;
        КонецЕсли;
        Текст = Узел.ТекстовоеСодержимое;
        Длина = СтрДлина(Текст);
        Текст = Сред(Текст, 2, Длина - 2);
        Массив.Добавить(Текст);
    КонецЦикла;
    Возврат Массив;

КонецФункции // ЛксПолучитьМассивИменРеквизитовФормы()

Функция ЛксПолучитьИмяОсновногоРеквизитаФормы(Форма, ИДВерсииПлатформы = "81") Экспорт

    ДокументDOM = ЛксПолучитьДокументDOMФормы(Форма);
    РазыменовательПИ = Новый РазыменовательПространствИменDOM(ДокументDOM);
    ИмяЭлемента = "/elem[1]/elem[1]/elem[2]/elem[1]/data[1]/text()";
    РезультатXPath = ДокументDOM.ВычислитьВыражениеXPath(ИмяЭлемента, ДокументDOM, РазыменовательПИ, ТипРезультатаDOMXPath.Строка);
    КлючОсновногоРеквизита = РезультатXPath.СтроковоеЗначение;

    ИмяЭлемента = "/elem[1]/elem[1]/elem[2]/elem[2]/elem/elem[1]/data[1]/text()";
    РезультатXPath = ДокументDOM.ВычислитьВыражениеXPath(ИмяЭлемента, ДокументDOM, РазыменовательПИ,
    ТипРезультатаDOMXPath.УпорядоченныйИтераторУзлов);
    Счетчик = 1;
    Пока 1 = 1 Цикл
        Узел = РезультатXPath.ПолучитьСледующий();
        Если Узел = Неопределено Тогда
            Прервать;
        КонецЕсли;
        Если Узел.ТекстовоеСодержимое = КлючОсновногоРеквизита Тогда
            Прервать;
        КонецЕсли;
        Счетчик = Счетчик + 1;
    КонецЦикла;

    Если Узел = Неопределено Тогда
        Возврат Неопределено;
    КонецЕсли;

    СтрокаXPath = "/elem[1]/elem[1]/elem[2]/elem[2]/elem[" + Счетчик + "]" + ЛксПолучитьXPathИмениРеквизитаВОписанииРеквизита(ИДВерсииПлатформы) + "/text()";
    РезультатXPath = ДокументDOM.ВычислитьВыражениеXPath(СтрокаXPath, ДокументDOM, РазыменовательПИ, ТипРезультатаDOMXPath.Строка);
    Длина = СтрДлина(РезультатXPath.СтроковоеЗначение);
    Возврат Сред(РезультатXPath.СтроковоеЗначение, 2, Длина - 2);

КонецФункции // ЛксПолучитьИмяОсновногоРеквизитаФормы()