//ирПортативный Перем ирПортативный Экспорт; //ирПортативный Перем ирОбщий Экспорт; //ирПортативный Перем ирСервер Экспорт; //ирПортативный Перем ирКэш Экспорт; //ирПортативный Перем ирПривилегированный Экспорт; Перем ФайлСтилейСинтаксПомощника Экспорт; Перем ЗаменыВнешнихОбъектов; Перем СоответствиеЗамены; Перем типСтрока; Перем СрабатываниеЗамен; Перем ВычислительРегВыражений; Перем ВычислительРегВыражений2; Перем СодержанияАрхивовСправки Экспорт; Перем мПлатформа; Перем шТег Экспорт; Перем шТегНеКлюч Экспорт; Перем шТегКлюч Экспорт; Перем шКонецТегаКлюч Экспорт; Перем шТип Экспорт; Перем мКниги Экспорт; Функция РаспаковатьФайлАрхиваСинтаксПомощника(Знач ПутьКЭлементу, ПрефиксСсылки = "") Экспорт ФайлАрхива = ПолучитьАрхивСинтаксПомощникаПоПутиКЭлементу(ПутьКЭлементу,, Истина); Если ФайлАрхива = Неопределено Тогда Возврат Неопределено; КонецЕсли; #Если Сервер И Не Сервер Тогда мПлатформа = Обработки.ирПлатформа.Создать(); ФайлАрхива = Новый Файл; #КонецЕсли Если Лев(ПутьКЭлементу, 1) = "/" Тогда ПутьКЭлементу = Сред(ПутьКЭлементу, 2); КонецЕсли; МассивФрагментов = ирОбщий.СтрРазделитьЛкс(ПутьКЭлементу, "#"); ПутьКЭлементу = МассивФрагментов[0]; ФайлСтраницы = Новый Файл(ПутьКэшаСинтаксПомощника() + ПутьКЭлементу); Если Не ФайлСтраницы.Существует() Тогда ФайлРаспаковщикаZIP = мПлатформа.ПолучитьФайлРаспаковщикаZIP(Истина); #Если Сервер И Не Сервер Тогда ФайлРаспаковщикаZIP = Новый Файл; #КонецЕсли ПараметрыКоманды = " -o " + ФайлАрхива.Имя + " """ + ПутьКЭлементу + """"; Если ирКэш.ЛиПлатформаWindowsЛкс() Тогда // Так быстрее - 150мс ПолноеИмяРаспаковщика = ФайлРаспаковщикаZIP.ПолноеИмя; ВК = ирОбщий.ВКОбщаяЛкс(); ВК.Run(ПолноеИмяРаспаковщика, ПараметрыКоманды, ПутьКэшаСинтаксПомощника(), Истина, Ложь); // В 8.2 все параметры метода ВК зачем то должны быть доступны на запись https://www.hostedredmine.com/issues/931482 Иначе // Так медленнее - 200мс ирОбщий.ЗапуститьСкрытоеПриложениеИДождатьсяЗавершенияЛкс("""" + ФайлРаспаковщикаZIP.ПолноеИмя + """" + ПараметрыКоманды, ПутьКэшаСинтаксПомощника(), Истина); КонецЕсли; КонецЕсли; ТекстовыйДокумент = Новый ТекстовыйДокумент; ТекстовыйДокумент.Прочитать(ФайлСтраницы.ПолноеИмя); СодержаниеСтраницы = ТекстовыйДокумент.ПолучитьТекст(); Если Найти(СодержаниеСтраницы, "") > 0 Тогда Маркер = ""; ИначеЕсли Найти(СодержаниеСтраницы, "") > 0 Тогда Маркер = ""; ИначеЕсли Найти(СодержаниеСтраницы, "") > 0 Тогда Маркер = ""; КонецЕсли; Если Маркер <> Неопределено Тогда ТегБазы = ""; СодержаниеСтраницы = СтрЗаменить(СодержаниеСтраницы, Маркер, Маркер + ТегБазы); ТекстовыйДокумент.УстановитьТекст(СодержаниеСтраницы); ТекстовыйДокумент.Вывод = ИспользованиеВывода.Разрешить; ТекстовыйДокумент.Записать(ФайлСтраницы.ПолноеИмя); КонецЕсли; ВременныйАдрес = ФайлСтраницы.ПолноеИмя; Если МассивФрагментов.Количество() > 1 Тогда ВременныйАдрес = ВременныйАдрес + "#" + МассивФрагментов[1]; КонецЕсли; Возврат ВременныйАдрес; КонецФункции Функция ФайлСтилейСинтаксПомощника() Экспорт Если ФайлСтилейСинтаксПомощника = Неопределено Тогда ФайлСтилейСинтаксПомощника = Новый Файл(ПолучитьИмяВременногоФайла("css")); ТекстовыйДокумент = ПолучитьМакет("СтилиСинтаксПомощника"); ТекстовыйДокумент.Вывод = ИспользованиеВывода.Разрешить; ТекстовыйДокумент.Записать(ФайлСтилейСинтаксПомощника.ПолноеИмя); КонецЕсли; Возврат ФайлСтилейСинтаксПомощника; КонецФункции // Получает zip-архив синтакс-помощника из файла "shcntx_ru.hbk" в каталоге установки платформы. // // Параметры: // ЭлементСтруктуры - Число, *0 - 0 - архив страниц, 1 - содержание книги, 2 - индекс книги // Функция АрхивСинтаксПомощникаПоИмени(ЭлементСтруктуры = 0, ИмяАрхива = "shcntx_ru") Экспорт мПлатформа = ирКэш.Получить(); #Если Сервер И Не Сервер Тогда мПлатформа = Обработки.ирПлатформа.Создать(); #КонецЕсли КлючСтруктуры = "_" + ИмяАрхива + ЭлементСтруктуры; ФайлАрхива = Новый Файл(ПутьКэшаСинтаксПомощника() + КлючСтруктуры + ".zip"); Если Не ФайлАрхива.Существует() Тогда Если ЭлементСтруктуры = 0 Тогда ИмяБлока = "FileStorage.data"; ИначеЕсли ЭлементСтруктуры = 1 Тогда ИмяБлока = "PackBlock.data"; ИначеЕсли ЭлементСтруктуры = 2 Тогда ИмяБлока = "IndexPackBlock.data"; КонецЕсли; ИмяФайлаПлатформы = ИмяАрхива + ".hbk"; ТекущийКаталог = КаталогВременныхФайлов(); ФайлПлатформы = Новый Файл(КаталогПрограммы() + ИмяФайлаПлатформы); //ФайлПлатформы = Новый Файл(ПолучитьИмяФайлаВФорматеDOS(ФайлПлатформы.ПолноеИмя)); ФайлБлока = Новый Файл(ТекущийКаталог + ИмяБлока); #Если Клиент Тогда Состояние("Распаковка синтакс-помощника"); #КонецЕсли мПлатформа.РаспаковатьФайлВнешнейОбработки(ФайлПлатформы.ПолноеИмя, ТекущийКаталог); Попытка ПереместитьФайл(ФайлБлока.ПолноеИмя, ФайлАрхива.ПолноеИмя); Исключение // Если файл залочен на чтение (открыт синтакс-помощник в конфигураторе) КопияФайлаПлатформы = Новый Файл(ПолучитьИмяВременногоФайла()); КопироватьФайл(ФайлПлатформы.ПолноеИмя, КопияФайлаПлатформы.ПолноеИмя); ФайлПлатформы = Новый Файл(мПлатформа.ПолучитьИмяФайлаВФорматеDOS(КопияФайлаПлатформы.ПолноеИмя)); ФайлБлока = Новый Файл(ТекущийКаталог + ИмяБлока); мПлатформа.РаспаковатьФайлВнешнейОбработки(ФайлПлатформы.ПолноеИмя, ТекущийКаталог); ПереместитьФайл(ФайлБлока.ПолноеИмя, ФайлАрхива.ПолноеИмя); КонецПопытки; УдалитьФайлы(ТекущийКаталог + Лев(ФайлПлатформы.ИмяБезРасширения, 8)); #Если Клиент Тогда Состояние(""); #КонецЕсли КонецЕсли; Возврат ФайлАрхива; КонецФункции Функция ПутьКэшаСинтаксПомощника() Экспорт Результат = ирКэш.КаталогИзданияПлатформыВПрофилеЛкс() + ирОбщий.РазделительПутиКФайлуЛкс() + XMLСтрока(ирКэш.НомерВерсииПлатформыЛкс()); СоздатьКаталог(Результат); Возврат Результат + ирОбщий.РазделительПутиКФайлуЛкс(); КонецФункции Функция ПрочитатьИндексАрхиваСинтаксПомощника(ИмяАрхива) Экспорт Результат = Неопределено; ФайлИндекса = Новый Файл(ПутьКэшаСинтаксПомощника() + ИмяАрхива + ".idx"); Если ФайлИндекса.Существует() Тогда Результат = ЗначениеИзФайла(ФайлИндекса.ПолноеИмя); Результат = Результат.Индекс; КонецЕсли; Возврат Результат; КонецФункции Процедура ЗаписатьИндексАрхиваСинтаксПомощника(ИмяАрхива, ТаблицаИндекса) Экспорт ФайлИндекса = Новый Файл(ПутьКэшаСинтаксПомощника() + ИмяАрхива + ".idx"); Результат = Новый Структура; Результат.Вставить("Индекс", ТаблицаИндекса); ЗначениеВФайл(ФайлИндекса.ПолноеИмя, Результат); КонецПроцедуры // // // Параметры: // ПутьКЭлементу - Строка - модифицируется // ИмяАрхива – Строка – входное значение игнорируется, на выход подается вычисленное имя файла архива; // // Возвращаемое значение: // – <Тип.Вид> – <описание значения> // <продолжение описания значения>; // <Значение2> – <Тип.Вид> – <описание значения> // <продолжение описания значения>. // Функция ПолучитьАрхивСинтаксПомощникаПоПутиКЭлементу(ПутьКЭлементу, ЭлементСтруктуры = 0, ЛиОбрезатьПутьДоОтносительного = Ложь, ИмяАрхива = "") Экспорт МаркерДопАрхива = "//"; Если Найти(ПутьКЭлементу, МаркерДопАрхива) = 1 Тогда ИмяАрхива = ирОбщий.ПервыйФрагментЛкс(Сред(ПутьКЭлементу, СтрДлина(МаркерДопАрхива) + 1), "/"); Если ЛиОбрезатьПутьДоОтносительного Тогда ПутьКЭлементу = Сред(ПутьКЭлементу, СтрДлина(МаркерДопАрхива) + 1 + СтрДлина(ИмяАрхива) + 1); КонецЕсли; ФайлАрхива = АрхивСинтаксПомощникаПоИмени(ЭлементСтруктуры, ИмяАрхива); Иначе ФайлАрхива = АрхивСинтаксПомощникаПоИмени(ЭлементСтруктуры); КонецЕсли; Возврат ФайлАрхива; КонецФункции Функция ЗагрузитьОписаниеМетода(Знач ТипКонтекста, Знач ИмяМетода, Знач ОписаниеHTML, Знач ТипСлова = "Метод", Знач ЯзыкПрограммы = 0, Знач ТаблицаПараметров = Неопределено, Знач РабочийКаталог = "", Знач СтрокаОписания = Неопределено) Экспорт мПлатформа = ирКэш.Получить(); #Если Сервер И Не Сервер Тогда мПлатформа = Обработки.ирПлатформа.Создать(); #КонецЕсли Если ТаблицаПараметров = Неопределено Тогда ТаблицаПараметров = мПлатформа.ТаблицаПараметров; КонецЕсли; #Если Сервер И Не Сервер Тогда ТаблицаПараметров = Новый ТаблицаЗначений; #КонецЕсли ТекстовыйДокумент = Новый ТекстовыйДокумент; ВычислительРегВыражений.IgnoreCase = Истина; ВычислительРегВыражений.Global = Истина; ВычислительРегВыражений.Pattern = шТегКлюч + "Вариант синтаксиса:\s*([^<""]+)" + шКонецТегаКлюч; ВхожденияВариантов = ВычислительРегВыражений.НайтиВхождения(ОписаниеHTML); ОписанияВариантов = Новый СписокЗначений; Если ВхожденияВариантов.Количество() = 0 Тогда ОписанияВариантов.Добавить(ОписаниеHTML); Иначе ТекущаяПозиция = 1; ТекущийВариант = ""; Для Каждого Вхождение Из ВхожденияВариантов Цикл Если ТекущаяПозиция > 1 Тогда ОписанияВариантов.Добавить(Сред(ОписаниеHTML, ТекущаяПозиция, Вхождение.FirstIndex - ТекущаяПозиция), ТекущийВариант); КонецЕсли; ТекущаяПозиция = Вхождение.FirstIndex; ТекущийВариант = Вхождение.SubMatches(0); КонецЦикла; ОписанияВариантов.Добавить(Сред(ОписаниеHTML, ТекущаяПозиция), Вхождение.SubMatches(0)); КонецЕсли; Для Каждого ЭлементСписка Из ОписанияВариантов Цикл // Параметры ОписаниеВарианта = ЭлементСписка.Значение; Если ТаблицаПараметров = мПлатформа.ТаблицаПараметров Тогда ВычислительРегВыражений.Pattern = шТегКлюч + "+Описание(?: варианта метода)?:?" + шКонецТегаКлюч + "+(.*?)(?:\s*

\s*)"; РезультатМетод = ВычислительРегВыражений.НайтиВхождения(ОписаниеВарианта); Если РезультатМетод.Количество() = 0 Тогда СтрокаОписания.Описание = ""; Если ЯзыкПрограммы = 1 Тогда ОписаниеВарианта = ирОбщий.СтрокаМеждуМаркерамиЛкс(ОписаниеВарианта, "", "", Ложь); СтрокаОписания.Описание = ОписаниеВарианта; ИначеЕсли ЯзыкПрограммы = 2 Тогда ВычислительРегВыражений.Pattern = "]*>]*>" + ИмяМетода + "[<\s\(].*?((?:.|\n|\r)*?)(?:]*>|$)"; РезультатОписание = ВычислительРегВыражений.НайтиВхождения(ОписаниеВарианта); Если РезультатОписание.Количество() > 0 Тогда ОписаниеВарианта = РезультатОписание[0].SubMatches(0); СтрокаОписания.Описание = ирОбщий.ПервыйФрагментЛкс(ОписаниеВарианта, "Синтаксис:"); Иначе ОписаниеВарианта = ""; КонецЕсли; КонецЕсли; Иначе СтрокаОписания.Описание = РезультатМетод[0].SubMatches(0); КонецЕсли; СтрокаОписания.Описание = ИзвлечьИзФрагментаHTMLОбычныйТекст(СтрокаОписания.Описание); КонецЕсли; ВычислительРегВыражений.Pattern = шТегКлюч + "+Параметры?(?: функции)?:?" + шКонецТегаКлюч + "+((?:.|\n)*?)(?:" + шТегКлюч + "+Описание(?: варианта метода)?:?" + шКонецТегаКлюч + "|$)"; РезультатВарианты = ВычислительРегВыражений.НайтиВхождения(ОписаниеВарианта); Если РезультатВарианты.Количество() = 0 Тогда Продолжить; КонецЕсли; ОписаниеВариантаСПараметрами = РезультатВарианты[0].SubMatches(0); Если ТипСлова = "Таблица" Тогда ВычислительРегВыражений.Pattern = "([" + мПлатформа.шБукваЦифра + "\-\s\(\)]+)"; Иначе ВычислительРегВыражений.Pattern = шТегКлюч + "((?:<|)[^&<]+(?:>|[^:]))" + "()?(?:\s*(?:\((необязательный|обязательный)?\)\s*)?" + шКонецТегаКлюч + "+(?:Тип:" + шТегНеКлюч + "?((?:" + шТип + ")+)" + шТегНеКлюч + "?)?)?\.?(?:\s*-\s*)?((?:(?:Значение по умолчанию: " + шТег + "?([^<>]+)" + шТег + "?\.)|[^dlp](?=[^dlp]|$)|[^<][dlp]+|
  • (?!))*)"; КонецЕсли; ВхожденияПараметра = ВычислительРегВыражений.НайтиВхождения(ОписаниеВариантаСПараметрами); КлючПоискаПараметра = Новый Структура("ТипКонтекста, ЯзыкПрограммы, Слово, Номер, ВариантСинтаксиса"); Если ТипСлова = "Конструктор" Тогда КлючПоискаПараметра.Слово = "<Новый>"; КлючПоискаПараметра.ВариантСинтаксиса = ИмяМетода; Иначе КлючПоискаПараметра.Слово = ИмяМетода; КлючПоискаПараметра.ВариантСинтаксиса = ЭлементСписка.Представление; КонецЕсли; КлючПоискаПараметра.ТипКонтекста = ТипКонтекста; КлючПоискаПараметра.ЯзыкПрограммы = ЯзыкПрограммы; ЧтениеХмлПараметра = Новый ЧтениеXML; НомерПараметра = 1; Для Каждого ВхождениеПараметра Из ВхожденияПараметра Цикл #Если Сервер И Не Сервер Тогда ВхождениеПараметра = Обработки.ирОболочкаРегВхождение.Создать(); #КонецЕсли НоваяСтрокаПараметра = Неопределено; КлючПоискаПараметра.Номер = НомерПараметра; Если ТаблицаПараметров = мПлатформа.ТаблицаПараметров Тогда НайденныеСтроки = ТаблицаПараметров.НайтиСтроки(КлючПоискаПараметра); Если НайденныеСтроки.Количество() > 0 Тогда НоваяСтрокаПараметра = НайденныеСтроки[0]; КонецЕсли; КонецЕсли; Если НоваяСтрокаПараметра = Неопределено Тогда НоваяСтрокаПараметра = ТаблицаПараметров.Добавить(); КонецЕсли; СтруктураСтроки = ирОбщий.СтруктураСвойствСтрокиТаблицыИлиДереваЛкс(НоваяСтрокаПараметра); ЗаполнитьЗначенияСвойств(СтруктураСтроки, КлючПоискаПараметра); ТекстПараметра = ВхождениеПараметра.SubMatches(0); ТекстПоискаТипов = Неопределено; // Для параметров виртуальных таблиц надо убрать оберку .... В ней находится ссылка на страницу описания параметра, которую пока не используем. ЧтениеХмлПараметра.УстановитьСтроку(ТекстПараметра); Попытка ЧтениеХмлПараметра.Прочитать(); ЧтениеХмлПараметра.Прочитать(); Исключение КонецПопытки; Если ЧтениеХмлПараметра.ТипУзла = ТипУзлаXML.Текст Тогда ТекстПараметра = ЧтениеХмлПараметра.Значение; КонецЕсли; СтруктураСтроки.Параметр = ТекстПараметра; Если ТипСлова <> "Таблица" Тогда Если ВхождениеПараметра.SubMatches(2) = "необязательный" Тогда СтруктураСтроки.Необязательный = Истина; КонецЕсли; Если ТаблицаПараметров = мПлатформа.ТаблицаПараметров Тогда СтруктураСтроки.Описание = ИзвлечьИзФрагментаHTMLОбычныйТекст(ВхождениеПараметра.SubMatches(6)); КонецЕсли; ЗначениеПоУмолчанию = ВхождениеПараметра.SubMatches(7); Если ирОбщий.СтрокиРавныЛкс(ЗначениеПоУмолчанию, "Пустая строка") Тогда ЗначениеПоУмолчанию = """"""; КонецЕсли; СтруктураСтроки.Значение = ЗначениеПоУмолчанию; ТекстПоискаТипов = ВхождениеПараметра.SubMatches(3); КонецЕсли; Если ВхождениеПараметра.SubMatches(1) <> "" Тогда СтруктураСтроки.ПутьКОписанию = ВхождениеПараметра.SubMatches(1); Если Не ЗначениеЗаполнено(РабочийКаталог) Тогда РаспаковатьФайлАрхиваСинтаксПомощника(СтруктураСтроки.ПутьКОписанию); ФайлОписанияПараметра = Новый Файл(ПутьКэшаСинтаксПомощника() + СтруктураСтроки.ПутьКОписанию); Иначе ФайлОписанияПараметра = Новый Файл(РабочийКаталог + СтруктураСтроки.ПутьКОписанию); КонецЕсли; Если Истина И ФайлОписанияПараметра.Существует() И ФайлОписанияПараметра.ЭтоФайл() Тогда ТекстовыйДокумент.Прочитать(ФайлОписанияПараметра.ПолноеИмя); ВычислительРегВыражений2.Pattern = "Тип параметра:" + шТегНеКлюч + "?((?:" + шТип + ")+)"; Результат2 = ВычислительРегВыражений2.НайтиВхождения(ТекстовыйДокумент.ПолучитьТекст()); Если Результат2.Количество() > 0 Тогда ТекстПоискаТипов = Результат2[0].SubMatches(0); КонецЕсли; КонецЕсли; КонецЕсли; Если ТекстПоискаТипов <> Неопределено Тогда ВычислительРегВыражений2.Global = Истина; ВычислительРегВыражений2.Pattern = шТип; Результат2 = ВычислительРегВыражений2.НайтиВхождения(ТекстПоискаТипов); СтрокаТипаЗначения = ""; Для Каждого Вхождение2 Из Результат2 Цикл СтрокаТипаЗначения = СтрокаТипаЗначения + ", " + СокрЛП(Вхождение2.SubMatches(0)); КонецЦикла; СтруктураСтроки.ТипЗначения = ИзвлечьИзФрагментаHTMLОбычныйТекст(Сред(СтрокаТипаЗначения, 3)); КонецЕсли; СкорректироватьЭлементыСтруктуры(СтруктураСтроки); ЗаполнитьЗначенияСвойств(НоваяСтрокаПараметра, СтруктураСтроки); НомерПараметра = НомерПараметра + 1; КонецЦикла; КонецЦикла; КонецФункции Функция ИзвлечьИзФрагментаHTMLОбычныйТекст(Знач Текст) Экспорт ВычислительРегВыражений.Pattern = "
    "; //Текст = ВычислительРегВыражений.Replace(Текст, Символы.ПС); // менее эффективно используется место Текст = ВычислительРегВыражений.Replace(Текст, " "); // более эффективно используется место ВычислительРегВыражений.Pattern = "
  • "; Текст = ВычислительРегВыражений.Replace(Текст, Символы.ПС + " - "); ВычислительРегВыражений.Pattern = "]*>|"; Текст = ВычислительРегВыражений.Replace(Текст, Символы.ПС); // Удаление всех оставшихся тегов ВычислительРегВыражений.Pattern = "<[^>]+>"; Текст = ВычислительРегВыражений.Replace(Текст, ""); Текст = ирОбщий.ДекодироватьТекстИзXMLЛкс(Текст); // Нормализация пустых строк ВычислительРегВыражений.Pattern = "(?:\r?\n\s*){2,}"; Текст = СокрЛП(ВычислительРегВыражений.Replace(Текст, Символы.ПС)); Возврат Текст; КонецФункции Процедура СкорректироватьЭлементыСтруктуры(Структура) Экспорт Для Каждого ЭлементСтруктуры Из Структура Цикл Если ТипЗнч(ЭлементСтруктуры.Значение) <> типСтрока Тогда Продолжить; КонецЕсли; Если Найти(ЭлементСтруктуры.Значение, "<Имя регистра>") > 0 Тогда Если Найти(ЭлементСтруктуры.Значение, "РегистрСведений") > 0 Тогда СтрокаЗаменыИмениРегистра = "<Имя регистра сведений>"; ИначеЕсли Найти(ЭлементСтруктуры.Значение, "РегистрНакопления") > 0 Тогда СтрокаЗаменыИмениРегистра = "<Имя регистра накопления>"; КонецЕсли; Прервать; КонецЕсли; КонецЦикла; Для Каждого ЭлементСтруктуры Из Структура Цикл ЗначениеЭлемента = ЭлементСтруктуры.Значение; Если ТипЗнч(ЗначениеЭлемента) <> типСтрока Тогда Продолжить; КонецЕсли; Если Истина И Структура.Свойство("ЯзыкПрограммы") И Структура.ЯзыкПрограммы = 1 И ЗначениеЭлемента <> "Ссылка" Тогда ЗначениеЭлемента = СтрЗаменить(ЗначениеЭлемента, "Ссылка", ""); КонецЕсли; Если СтрокаЗаменыИмениРегистра <> Неопределено Тогда ЗначениеЭлемента = СтрЗаменить(ЗначениеЭлемента, "<Имя регистра>", СтрокаЗаменыИмениРегистра); КонецЕсли; // Выполняется много раз! Тяжелый цикл // Пассивный оригинал расположенного ниже однострочного кода. Выполняйте изменения синхронно в обоих вариантах. #Если Сервер И Не Сервер Тогда Для Каждого ЭлементЗамены Из СоответствиеЗамены Цикл //Если ВключитьАнализСрабатыванияЗамен Тогда // Если СрабатываниеЗамен[ЭлементЗамены.Ключ] = 0 И Найти(ЗначениеЭлемента, ЭлементЗамены.Ключ) > 0 Тогда // СрабатываниеЗамен[ЭлементЗамены.Ключ] = 1; // КонецЕсли; //КонецЕсли; ЗначениеЭлемента = СтрЗаменить(ЗначениеЭлемента, ЭлементЗамены.Ключ, ЭлементЗамены.Значение); КонецЦикла; Если Найти(ЗначениеЭлемента, "<") = 0 Тогда СтароеЗначениеЭлемента = ЗначениеЭлемента; Для Каждого СтрокаЗамены Из ЗаменыВнешнихОбъектов Цикл ЗначениеЭлемента = СтрЗаменить(ЗначениеЭлемента, СтрокаЗамены.Образец, СтрокаЗамены.Замена); Если СтароеЗначениеЭлемента <> ЗначениеЭлемента Тогда Прервать; КонецЕсли; КонецЦикла; КонецЕсли; #КонецЕсли // Однострочный код использован для ускорения. Выше расположен оригинал. Выполняйте изменения синхронно в обоих вариантах. Преобразовано консолью кода из подсистемы "Инструменты разработчика" (http://devtool1c.ucoz.ru) Для Каждого ЭлементЗамены Из СоответствиеЗамены Цикл             ЗначениеЭлемента = СтрЗаменить(ЗначениеЭлемента, ЭлементЗамены.Ключ, ЭлементЗамены.Значение);   КонецЦикла;   Если Найти(ЗначениеЭлемента, "<") = 0 Тогда   СтароеЗначениеЭлемента = ЗначениеЭлемента;   Для Каждого СтрокаЗамены Из ЗаменыВнешнихОбъектов Цикл   ЗначениеЭлемента = СтрЗаменить(ЗначениеЭлемента, СтрокаЗамены.Образец, СтрокаЗамены.Замена);   Если СтароеЗначениеЭлемента <> ЗначениеЭлемента Тогда   Прервать;   КонецЕсли;   КонецЦикла;   КонецЕсли;   Структура[ЭлементСтруктуры.Ключ] = ЗначениеЭлемента; КонецЦикла; КонецПроцедуры //ирПортативный лФайл = Новый Файл(ИспользуемоеИмяФайла); //ирПортативный ПолноеИмяФайлаБазовогоМодуля = Лев(лФайл.Путь, СтрДлина(лФайл.Путь) - СтрДлина("Модули\")) + "ирПортативный.epf"; //ирПортативный #Если Клиент Тогда //ирПортативный Контейнер = Новый Структура(); //ирПортативный Оповестить("ирПолучитьБазовуюФорму", Контейнер); //ирПортативный Если Не Контейнер.Свойство("ирПортативный", ирПортативный) Тогда //ирПортативный ирПортативный = ВнешниеОбработки.ПолучитьФорму(ПолноеИмяФайлаБазовогоМодуля); //ирПортативный ирПортативный.Открыть(); //ирПортативный КонецЕсли; //ирПортативный #Иначе //ирПортативный ирПортативный = ВнешниеОбработки.Создать(ПолноеИмяФайлаБазовогоМодуля, Ложь); // Это будет второй экземпляр объекта //ирПортативный #КонецЕсли //ирПортативный ирОбщий = ирПортативный.ПолучитьОбщийМодульЛкс("ирОбщий"); //ирПортативный ирКэш = ирПортативный.ПолучитьОбщийМодульЛкс("ирКэш"); //ирПортативный ирСервер = ирПортативный.ПолучитьОбщийМодульЛкс("ирСервер"); //ирПортативный ирПривилегированный = ирПортативный.ПолучитьОбщийМодульЛкс("ирПривилегированный"); мПлатформа = ирКэш.Получить(); #Если Сервер И Не Сервер Тогда мПлатформа = Обработки.ирПлатформа.Создать(); #КонецЕсли шТег = "(?:\s*<[^>]+>\s*)"; шТегНеКлюч = "(?:\s*<[^>""]+>\s*)"; шТегКлюч = "(?:\s*<(?:li|(?:div|p|b)(?:\s[^>]*))>\s*)"; //
  • используется в описании функций языка выражений компоновки шКонецТегаКлюч = "(?:\s*\s*)"; шТип = "\s*(?:<[^>""]+""(?:[^""]*)"">)?((?:[" + мПлатформа.шБукваЦифра + "\-\s\:\&\/]+))(?:(?:<[^>""]+>)?(,|;))?"; СоответствиеЗамены = Новый Соответствие; // Баг платформы. Небрежность в файлах справки. //СоответствиеЗамены.Вставить("Командный интерфейс", "КомандныйИнтерфейс"); // Антибаг 8.2.15.289 http://partners.v8.1c.ru/forum/thread.jsp?id=999202#999202 СоответствиеЗамены.Вставить("<Имя журнала>", "<Имя журнала документов>"); //СоответствиеЗамены.Вставить("ПланВидовХарактристик", "ПланВидовХарактеристик"); //СоответствиеЗамены.Вставить("<Имя плана вида характеристики>", "<Имя плана видов характеристик>"); //СоответствиеЗамены.Вставить("<Имя плана вида характеристик>", "<Имя плана видов характеристик>"); //СоответствиеЗамены.Вставить("<Имя плана видов характеристики>", "<Имя плана видов характеристик>"); //СоответствиеЗамены.Вставить("<Имя предопределенного видов характеристики>", "<Имя предопределенного вида характеристик>"); //СоответствиеЗамены.Вставить("<Имя вида расчета>", "<Имя плана видов расчета>"); //СоответствиеЗамены.Вставить("<Измерения>", "<Имя измерения>"); //СоответствиеЗамены.Вставить("<Измерение>", "<Имя измерения>"); //СоответствиеЗамены.Вставить("<Реквизиты>", "<Имя реквизита>"); //СоответствиеЗамены.Вставить("<Ресурсы>", "<Имя ресурса>"); СоответствиеЗамены.Вставить("<Имя критерия>", "<Имя критерия отбора>"); СоответствиеЗамены.Вставить("<Имя WS-ссылки>", "<Имя WS-Ссылки>"); //СоответствиеЗамены.Вставить("<Имя WSСсылки>", "<Имя WS-Ссылки>"); //СоответствиеЗамены.Вставить("<ИмяКонстанты>", "<Имя константы>"); //СоответствиеЗамены.Вставить("<ИмяРесурса>", "<Имя ресурса>"); //СоответствиеЗамены.Вставить("<Имя Ресурса>", "<Имя ресурса>"); СоответствиеЗамены.Вставить("<Имя значения>", "<Имя значения перечисления>"); //СоответствиеЗамены.Вставить("<НомерСубконто>", "<Номер субконто>"); СоответствиеЗамены.Вставить("<ИмяПеречисления>", "<Имя перечисления>"); //СоответствиеЗамены.Вставить("<имя метода>", "<Имя метода>"); //СоответствиеЗамены.Вставить("<имя свойства>", "<Имя свойства>"); СоответствиеЗамены.Вставить("<Имя внешнего источника данных>", "<Имя внешнего источника>"); // Слишком общий шаблон замены! // Исправлено в 8.1.12 //СоответствиеЗамены.Вставить("<Имя>", "<Имя константы>"); ЗаменыВнешнихОбъектов = Новый ТаблицаЗначений; ЗаменыВнешнихОбъектов.Колонки.Добавить("Образец"); ЗаменыВнешнихОбъектов.Колонки.Добавить("Замена"); СтрокаЗамены = ЗаменыВнешнихОбъектов.Добавить(); СтрокаЗамены.Образец = "ВнешнийОтчетТабличнаяЧасть"; СтрокаЗамены.Замена = "ВнешнийОтчетТабличнаяЧасть.<Имя внешнего отчета>.<Имя табличной части>"; СтрокаЗамены = ЗаменыВнешнихОбъектов.Добавить(); СтрокаЗамены.Образец = "ВнешняяОбработкаТабличнаяЧасть"; СтрокаЗамены.Замена = "ВнешняяОбработкаТабличнаяЧасть.<Имя внешней обработки>.<Имя табличной части>"; СтрокаЗамены = ЗаменыВнешнихОбъектов.Добавить(); СтрокаЗамены.Образец = "ВнешнийОтчет"; СтрокаЗамены.Замена = "ВнешнийОтчетОбъект.<Имя внешнего отчета>"; СтрокаЗамены = ЗаменыВнешнихОбъектов.Добавить(); СтрокаЗамены.Образец = "ВнешняяОбработка"; СтрокаЗамены.Замена = "ВнешняяОбработкаОбъект.<Имя внешней обработки>"; СтрокаЗамены = ЗаменыВнешнихОбъектов.Добавить(); СтрокаЗамены.Образец = "ТочкаМаршрутаБизнесПроцессаСсылка"; СтрокаЗамены.Замена = "ТочкаМаршрутаБизнесПроцессаСсылка.<Имя бизнес-процесса>"; типСтрока = Тип("Строка"); ВычислительРегВыражений = ирОбщий.НовыйВычислительРегВыражений(); ВычислительРегВыражений2 = ирОбщий.НовыйВычислительРегВыражений(); СодержанияАрхивовСправки = Новый Соответствие; мКниги = ирОбщий.ТаблицаЗначенийИзТабличногоДокументаЛкс(ПолучитьМакет("Книги"));