Создавая обмены данными между 1С и сайтами, часто приходится форматировать вывод даты в стандарт RCF-822 или преобразовывать его в понятную для 1С ДатуВремя.
Дата в формате RFC-822 выглядит так: Tue, 12 Aug 2013 14:15:00 +0400
Небольшая справка по стандартам:
Как дату перевести в формат RFC-822?
Код 1C v 8.2 УП ДатаВФорматеRFC822 = Формат(ТекущаяДата(),"Л=en_US; ДФ='ddd, dd MMM yyyy hh:mm:ss +0400 '");
Как из формата RFC-822 получить дату и время для 1С?
Код 1C v 8.2 УП // Функция преобразовывает дату в формате RFC822 к формату 1С - дата и время
// Параметры
// ДатаВФорматеRFC822 – Строка вида "Thu, 10 Aug 2006 14:48:27 +0400"
// Возвращаемое значение:
// <Дата> – Результат преобразования или Неопределено, если преобразование не удалось
Функция ПреобразоватьRFC822КДате0(ДатаВФорматеRFC822) Экспорт
КопияСтроки = ДатаВФорматеRFC822;
СтруктураДаты = Новый Структура("Год,Месяц,День,Час,Минута,Секунда", "","","","","","");
Месяцы = Новый Структура("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", "01","02","03","04","05","06","07","08","09","10","11","12");
Для каждого КлючИЗначение Из Месяцы Цикл
Позиция = Найти(КопияСтроки,КлючИЗначение.Ключ);
Если Позиция > 0 Тогда
СтруктураДаты.Месяц = КлючИЗначение.Значение;
Прервать;
КонецЕсли;
КонецЦикла;
Состояние = 0;
Для ш=0 По СтрДлина(КопияСтроки) Цикл
ТекущийСимвол = ПолучитьСимвол(КопияСтроки, ш);
ТекСимволЦифра= ЭтоЦифра(ТекущийСимвол);
Если ТекСимволЦифра И Состояние = 0 Тогда
СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;
Состояние = 1; //начало день
ИначеЕсли ТекСимволЦифра И Состояние = 1 Тогда
СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;
Состояние = 2; //ждем год
ИначеЕсли ТекСимволЦифра И Состояние = 2 Тогда
СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;
Состояние = 3; //продолжаем год
ИначеЕсли ТекСимволЦифра И Состояние = 3 Тогда
СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;
ИначеЕсли ТекущийСимвол = " " И Состояние = 3 Тогда
Состояние = 4; //дальше час
ИначеЕсли ТекСимволЦифра И Состояние = 4 Тогда
СтруктураДаты.Час = СтруктураДаты.Час + ТекущийСимвол;
ИначеЕсли ТекущийСимвол = ":" И Состояние = 4 Тогда
Состояние = 5; //дальше минута
ИначеЕсли ТекСимволЦифра И Состояние = 5 Тогда
СтруктураДаты.Минута = СтруктураДаты.Минута + ТекущийСимвол;
ИначеЕсли ТекущийСимвол = ":" И Состояние = 5 Тогда
Состояние = 6; //дальше секунда
ИначеЕсли ТекСимволЦифра И Состояние = 6 Тогда
СтруктураДаты.Секунда = СтруктураДаты.Секунда + ТекущийСимвол;
ИначеЕсли ТекущийСимвол = " " И Состояние = 6 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
Попытка
Результат = Дата(СтруктураДаты.Год+СтруктураДаты.Месяц+СтруктураДаты.День
+СтруктураДаты.Час+СтруктураДаты.Минута+СтруктураДаты.Секунда);
Исключение
Результат = Неопределено;
КонецПопытки;
Возврат Результат;
КонецФункции // ПреобразоватьRFC822КДате()
В процессе изучения вопроса, встретил еще несколько вариантов:
Код 1C v 8.х
Функция ВДатуRFC822(Дата1С, ПоправкаGMT) Экспорт
Перем ТемпДата;
Перем ТемпГод;
Перем ТемпМесяц;
Перем ТемпДень;
Перем ДатаRFC822;
Перем ТемпЧас;
Перем ТемпМинута;
Перем ТемпСекунда;
Перем НомерДняНедели;
Перем ТемпДеньНедели;
Перем МесяцИмя;
ТемпДата = Дата1 С - 60 * 60 * ПоправкаGMT;
ТемпГод = СтрЗаменить( Формат( Год( ТемпДата) , "ND=4; NLZ=" ) , Символы. НПП, "" ) ;
ТемпМесяц = Месяц( ТемпДата) ;
Если ТемпМесяц = 1 Тогда
МесяцИмя = "Jan" ;
ИначеЕсли ТемпМесяц = 2 Тогда
МесяцИмя = "Feb" ;
ИначеЕсли ТемпМесяц = 3 ТОгда
МесяцИмя = "Mar" ;
ИначеЕсли ТемпМесяц = 4 Тогда
МесяцИмя = "Apr" ;
ИначеЕсли ТемпМесяц = 5 Тогда
МесяцИмя = "May" ;
ИначеЕсли ТемпМесяц = 6 Тогда
МесяцИмя = "Jun" ;
ИначеЕсли ТемпМесяц = 7 Тогда
МесяцИмя = "Jul" ;
ИначеЕсли ТемпМесяц = 8 ТОгда
МесяцИмя = "Aug" ;
ИначеЕсли ТемпМесяц = 9 Тогда
МесяцИмя = "Sep" ;
ИначеЕсли ТемпМесяц = 10 Тогда
МесяцИмя = "Oct" ;
ИначеЕсли ТемпМесяц = 11 Тогда
МесяцИмя = "Nov" ;
Иначе
МесяцИмя = "Dec" ;
КонецЕсли ;
ТемпДень = Формат( День( ТемпДата) , "ND=2; NLZ=" ) ;
НомерДняНедели = ДеньНедели( ТемпДата) ;
Если НомерДняНедели = 1 Тогда
ТемпДеньНедели = "Mon" ;
ИначеЕсли НомерДняНедели = 2 Тогда
ТемпДеньНедели = "Tue" ;
ИначеЕсли НомерДняНедели = 3 ТОгда
ТемпДеньНедели = "Wed" ;
ИначеЕсли НомерДняНедели = 4 Тогда
ТемпДеньНедели = "Thu" ;
ИначеЕсли НомерДняНедели = 5 Тогда
ТемпДеньНедели = "Fri" ;
ИначеЕсли НомерДняНедели = 6 Тогда
ТемпДеньНедели = "Sat" ;
Иначе
ТемпДеньНедели = "Sun" ;
КонецЕсли ;
ТемпЧас = ? ( Час( ТемпДата) = 0 , "00" , Формат( Час( ТемпДата) , "ND=2; NLZ=" ) ) ;
ТемпМинута = ? ( Минута( ТемпДата) = 0 , "00" , Формат( Минута( ТемпДата) , "ND=2; NLZ=" ) ) ;
ТемпСекунда = ? ( Секунда( ТемпДата) = 0 , "00" , Формат( Секунда( ТемпДата) , "ND=2; NLZ=" ) ) ;
ДатаRFC822 = ТемпДеньНедели+ ", " + ТемпДень + " " + МесяцИмя + " " + ТемпГод + " " + ТемпЧас + ":" + ТемпМинута + ":" + ТемпСекунда + " +0200" ;
Возврат ДатаRFC822;
КонецФункции
Формат JSON в 1С до версии 8.3.6 не реализован, но нижет я приведу примеры функций которые можно использовать для полноценной работы JSON в 1С предыдущий версий.
JSON (JavaScript Object Notation) это текстовый формат обмена данными, широко используемый в веб-приложениях. По сравнению с XML он является более лаконичным и занимает меньше места. Кроме этого все браузеры имеют встроенные средства для работы с JSON.
Необходимость работы с этим форматом на уровне платформы обусловлена не только тем, что это «модный современный» формат, который прикладные решения 1С:Предприятия сами по себе могут использовать для интеграции со сторонними приложениями. Другая причина заключается ещё и в том, что JSON активно используется в HTTP интерфейсах. А в 1С:Предприятии как раз есть такие механизмы, в которых хочется использовать этот формат. Это REST интерфейс приложения, автоматически генерируемый платформой, и HTTP-сервисы, которые вы можете создавать самостоятельно.
В платформе с версии 8.3.6: Потоковое чтение и запись JSON:
Объекты потоковой работы - это общие объекты ЧтениеJSON и ЗаписьJSON. Они последовательно читают JSON из файла или строки, или последовательно записывают JSON в файл или строку. Таким образом, чтение и запись JSON происходят без формирования всего документа в памяти.
В качестве иллюстрации потокового чтения JSON можно привести следующий пример:
Код 1C v 8.3
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON. ОткрытьФайл( "ИмяФайла" ) ;
Пока ЧтениеJSON. Прочитать( ) Цикл
TипJSON = ЧтениеJSON. ТипТекущегоЗначения;
Если TипJSON = ТипЗначенияJSON. Число ИЛИ TипJSON = ТипЗначенияJSON. Строка ИЛИ TипJSON = ТипЗначенияJSON. Булево ИЛИ TипJSON = ТипЗначенияJSON. Null Тогда
Значение = ЧтениеJSON. ТекущееЗначение;
ИначеЕсли ТипJSON = ТипЗначенияJSON. Комментарий Тогда
Комментарий = ЧтениеJSON. ТекущееЗначение;
ИначеЕсли TипJSON = ТипЗначенияJSON. ИмяСвойства Тогда
ИмяСвойства = ЧтениеJSON. ТекущееЗначение;
ИначеЕсли TипJSON = ТипЗначенияJSON. НачалоМассива ИЛИ TипJSON = ТипЗначенияJSON. КонецМассива ИЛИ TипJSON = ТипЗначенияJSON. НачалоОбъекта ИЛИ TипJSON = ТипЗначенияJSON. КонецОбъекта ИЛИ TипJSON = ТипЗначенияJSON. Ничего Тогда
КонеиЕсли;
КокецЦикла;
ЧтениеJSON. Закрыть( ) ;
ЗаписьJSON. ПроверятьСтруктуру = Ложь ;
ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON( , Символы. Таб) ;
ЗаписьJSON. ОткрытьФайл( "ИмяФайла" , , , ПараметрыЗаписиJSON) ;
ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON( , Символы. Таб) ;
ЗаписьJSON. ОткрытьФайл( "ИмяФайла" , , , ПараметрыЗаписиJSON) ;
ЗаписьJSON. ЗаписатьНачалоОбъекта( ) ;
ЗаписьJSON. ЗаписатьИмяСвойства( "СвойствоТипаМассив" ) ;
ЗаписьJSON. ЗаписатьНачалоМассива( ) ;
ЗаписьJSON. ЗаписатьИмяСвойства( "СвойствоТипаСтрока" ) ;
ЗаписьJSON. ЗаписатьЗначение( "Значение строка" ) ;
ЗаписьJSON. ЗаписатьИмяСвойства( "СвойствоТипаНеопределено" ) ;
ЗаписьJSON. ЗаписатьЗначение( Неопределено ) ;
ЗаписьJSON. ЗаписатьКонецОбъекта( ) ;
Запись JSON. ЗаписатьКонецМассива ( ) ;
ЗаписьJSON. ЗаписатьКонецОбъекта( ) ;
ЗаписьJSON. Закрыть( ) ;
Результат такой записи:
Код 1C v 8.х
{
"СвойствоТипаМассив" : [
"Значение строка" ,
1.2345 E1,
true,
{
"СвойствоТипаСтрока" : "Значение строка" ,
"СвойствоТипаНеопределено" : null
}
]
}
Сериализация примитивных типов и коллекций в JSON
Вторая группа средств работы с JSON хороша тем, что избавляет вас от рутинной работы по чтению/записи каждого отдельного значения или свойства. При чтении документы JSON отображаются в фиксированный набор типов платформы: Строка, Число, Булево, Неопределено, Массив, ФиксированныйМассив, Структура, ФиксированнаяСтруктура, Соответствие, Дата. Соответственно, в обратную сторону, композиция объектов этих типов позволяет сформировать в памяти и быстро записать в файл структуру JSON. Таким образом, чтение и запись небольшого объема JSON заранее известной структуры можно производить немногими строчками кода.
Основное назначение этих средств мы видим в обмене информацией с внешними системами, чтении конфигурационных файлов в формате JSON.
Сериализацию вы можете выполнять с помощью методов глобального контекста ПрочитатьJSON() и ЗаписатьJSON(). Они работают в связке с объектами ЧтениеJSON и ЗаписьJSON.
В качестве примера десериализации JSON можно рассмотреть чтение массива из двух объектов:
Код 1C v 8.3
[
{
"имя" : "Anton" ,
"фамилия" : "Иванов" ,
"возраст" : 25
},
{
"имя" : "Ирина" ,
"фамилия" : "Иванова" ,
"возраст" : 20
}
]
ЧтениеJSON = Новый ЧтениеJSON( ) ;
ЧтениеJSON. ОткрытьФайл( "ИмяФайла" ) ;
Сотрудники = ПрочитатьJSON( ЧтениеJSON) ;
ЧтениеJSON. Закрыть( ) ;
Для каждого Сотрудник из Сотрудники Цикл
ИмяСотрудника = Сотрудник. имя; ФамилияСотрудника = Сотрудник. фамилия; ВозрастСотрудника = Сотрудник. возраст;
КонецЦикла ;
Структура = Новый Структура;
Вставить( "Фамилия" , "Иванов" ) ;
Зставить( "Имя" , "Иван" ) ;
Вставить( "Отчество" , "Иванович" ) ;
Зставить( "Возраст" , 40 ) ;
Зставить( "Женат" , Истина ) ;
Телефоны = Новый Массив;
Телефоны. Добавить( "8-999-999-99-90" ) ;
Телефоны. Добавить( "8-999-999-99-91" ) ;
Структура. Вставить( "Телефоны" , Телефены) ;
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON. ОткрытьФайл( "ИмяФайла" , , , Новый ПapaмeтpыЗaпиcиJS0N( , Символы. Таб) ) ;
ЗаписатьJSON( ЗаписьJSON, Структура) ;
ЗаписьJSON. Закрыть( ) ;
{
"Фамилия" : "Иванов" ,
"Имя" : "Иван" ,
"Отчество" : "Иванович" ,
"Возраст" : 40 ,
"Женат" : true,
"Телефоны" : [
"8-999-999-99-90" ,
"8-999-999-99-91"
]
}
Подробнее вы можете посмотреть здесь
В платформе с версии 8.3.7: Полностью автоматизировали работу с JSON и реализовали в платформе третью группу средств. Они позволяют сериализовать в JSON прикладные типы 1С:Предприятия: ссылки, объекты, наборы записей и вообще любые типы, для которых поддерживается XDTO сериализация. Конечно же, мы обеспечили и обратную операцию - десериализацию. Зачем это нужно!?
Прежде всего, и в основном, XDTO сериализацию в JSON мы рекомендуем использовать при обмене данными между двумя прикладными решениями 1С:Предприятия. По сравнению с XML формат JSON более компактный, сериализация/десериализация в/из JSON выполняется быстрее. Кроме этого мы предприняли дополнительные меры для того, чтобы сократить объём передаваемых данных.
Кроме обмена между приложениями 1С:Предприятия этот механизм можно использовать и для обмена с внешними системами, готовыми принимать типы данных 1С:Предприятия. Например, XDTO сериализацию в JSON можно использовать для организации собственного HTTP интерфейса прикладного решения. Сервис на платформе 1С:Предприятия будет формировать ответ в памяти в виде строки JSON. А затем передавать её при помощи объекта HTTPСервисОтвет. Реализованный нами механизм сериализации полностью соответствует стандарту JSON. Поэтому внешняя система не должна испытывать каких-либо трудностей с десериализацией.
Использование XDTO сериализации в JSON для других задач видится нам маловероятным. Потому что если внешняя система не готова работать с прикладными типами 1С:Предприятия, то зачем их ей передавать? А если предполагается обмениваться только примитивными типами и коллекциями, то для этой задачи хорошо подходят методы ПрочитатьJSON() и ЗаписатьJSON(). Подробнее здесь
ДО платформы версии 8.3.6, т.е. 8.3.5 и ниже: На HelpF уже есть статья где описан пример: Работа с форматом JSON в 1С но не приведены функции, вот они:
Код 1C v 8.х Функция ПреобразоватьвСистему(Число10,система) Экспорт
Если система > 36 или система < 2 тогда
Сообщить( "Выбранная система исчисления не поддерживается" ) ;
Возврат - 1 ;
КонецЕсли ;
СтрокаЗначений = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
СтрокаСистема = "" ;
Пока Число10 > 0 цикл
РезДеления = Число10 / система;
ЧислоСистема = цел( РезДеления) ;
остатокОтДеления = Число10 - система* ( ЧислоСистема) ;
СтрокаСистема = сред( СтрокаЗначений, остатокОтДеления+ 1 , 1 ) + СтрокаСистема;
Число10 = ? ( ЧислоСистема= 0 , 0 , РезДеления) ;
КонецЦикла ;
Нечётное = стрДлина( СтрокаСистема) - цел( стрДлина( СтрокаСистема) / 2 ) * 2 ;
Если Нечётное тогда
СтрокаСистема = "0" + СтрокаСистема;
КонецЕсли ;
Возврат СтрокаСистема;
КонецФункции
Функция URLEncode(стр) Экспорт
Длина= СтрДлина( Стр) ;
Итог= "" ;
Для Н= 1 По Длина Цикл
Знак= Сред( Стр, Н, 1 ) ;
Код= КодСимвола( Знак) ;
если ( ( Знак> = "a" ) и ( Знак< = "z" ) ) или
( ( Знак> = "A" ) и ( Знак< = "Z" ) ) или
( ( Знак> = "0" ) и ( Знак< = "9" ) ) тогда
Итог= Итог+ Знак;
Иначе
Если ( Код> = КодСимвола( "А" ) ) И ( Код< = КодСимвола( "п" ) ) Тогда
Итог= Итог+ "%" + ПреобразоватьвСистему( 208 , 16 ) + "%" + ПреобразоватьвСистему( 144 + Код- КодСимвола( "А" ) , 16 ) ;
ИначеЕсли ( Код> = КодСимвола( "р" ) ) И ( Код< = КодСимвола( "я" ) ) Тогда
Итог= Итог+ "%" + ПреобразоватьвСистему( 209 , 16 ) + "%" + ПреобразоватьвСистему( 128 + Код- КодСимвола( "р" ) , 16 ) ;
ИначеЕсли ( Знак= "ё" ) Тогда
Итог= Итог+ "%" + ПреобразоватьвСистему( 209 , 16 ) + "%" + ПреобразоватьвСистему( 145 , 16 ) ;
ИначеЕсли ( Знак= "Ё" ) Тогда
Итог= Итог+ "%" + ПреобразоватьвСистему( 208 , 16 ) + "%" + ПреобразоватьвСистему( 129 , 16 ) ;
Иначе
Итог= Итог+ "%" + ПреобразоватьвСистему( Код, 16 ) ;
КонецЕсли ;
КонецЕсли ;
КонецЦикла ;
Возврат Итог;
КонецФункции
Функция СформироватьСтрокуJSONИзМассива(Объект)
СтрокаJSON = "[" ;
Для каждого Элемент Из Объект Цикл
Если ТипЗнч( Элемент) = Тип( "Строка" ) Тогда
СтрокаJSON = СтрокаJSON + """ " + Элемент + """ " ;
ИначеЕсли ТипЗнч( Элемент) = Тип( "Число" ) Тогда
СтрокаJSON = СтрокаJSON + СтрЗаменить( Строка( Элемент) , Символы. НПП, "" ) ;
ИначеЕсли ТипЗнч( Элемент) = Тип( "Булево" ) Тогда
СтрокаJSON = СтрокаJSON + Формат( Элемент, "БЛ=false; БИ=true" ) ;
ИначеЕсли ТипЗнч( Элемент) = Тип( "Дата" ) Тогда
СтрокаJSON = СтрокаJSON + Формат( Элемент - Дата( 1970 , 1 , 1 , 1 , 0 , 0 ) , "ЧГ=0" ) ;
ИначеЕсли ТипЗнч( Элемент) = Тип( "Массив" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент) ;
ИначеЕсли ТипЗнч( Элемент) = Тип( "Структура" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент) ;
ИначеЕсли ТипЗнч( Элемент) = Тип( "ТаблицаЗначений" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент) ;
Иначе
СтрокаJSON = СтрокаJSON + """ " + URLEncode( Строка( Элемент) ) + """ " ;
КонецЕсли ;
СтрокаJSON = СтрокаJSON + "," ;
КонецЦикла ;
Если Прав( СтрокаJSON, 1 ) = "," Тогда
СтрокаJSON = Лев( СтрокаJSON, СтрДлина( СтрокаJSON) - 1 ) ;
КонецЕсли ;
Возврат СтрокаJSON + "]" ;
КонецФункции
Функция СформироватьСтрокуJSONИзСтруктуры(Объект)
СтрокаJSON = "{" ;
Для каждого Элемент Из Объект Цикл
Если Элемент. Значение = "" Тогда
Продолжить;
КонецЕсли ;
СтрокаJSON = СтрокаJSON + """ " + Элемент. Ключ + """ " + ":" ;
Если ТипЗнч( Элемент. Значение) = Тип( "Строка" ) Тогда
СтрокаJSON = СтрокаJSON + """ " + Элемент. Значение + """ " ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Число" ) Тогда
СтрокаJSON = СтрокаJSON + СтрЗаменить( Строка( Элемент. Значение) , Символы. НПП, "" ) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Булево" ) Тогда
СтрокаJSON = СтрокаJSON + Формат( Элемент. Значение, "БЛ=false; БИ=true" ) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Дата" ) Тогда
СтрокаJSON = СтрокаJSON + Формат( Элемент. Значение - Дата( 1970 , 1 , 1 , 1 , 0 , 0 ) , "ЧГ=0" ) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Массив" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент. Значение) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Структура" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент. Значение) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "ТаблицаЗначений" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент. Значение) ;
Иначе
СтрокаJSON = СтрокаJSON + """ " + URLEncode( Строка( Элемент. Значение) ) + """ " ;
КонецЕсли ;
СтрокаJSON = СтрокаJSON + "," ;
КонецЦикла ;
Если Прав( СтрокаJSON, 1 ) = "," Тогда
СтрокаJSON = Лев( СтрокаJSON, СтрДлина( СтрокаJSON) - 1 ) ;
КонецЕсли ;
Возврат СтрокаJSON + "}" ;
КонецФункции
Функция СформироватьСтрокуJSON(Объект) Экспорт
СтрокаJSON = "" ;
Если ТипЗнч( Объект) = Тип( "Массив" ) Тогда
СтрокаJSON = СформироватьСтрокуJSONИзМассива( Объект) ;
ИначеЕсли ТипЗнч( Объект) = Тип( "Структура" ) Тогда
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Объект) ;
ИначеЕсли ТипЗнч( Объект) = Тип( "ТаблицаЗначений" ) Тогда
СоставСтруктуры = "" ;
Для каждого Колонка Из Объект. Колонки Цикл
СоставСтруктуры = СоставСтруктуры + ? ( ЗначениеЗаполнено( СоставСтруктуры) , "," , "" ) + Колонка. Имя;
КонецЦикла ;
МассивСтрок = Новый Массив;
Для каждого Строка Из Объект Цикл
СтруктураКолонок = Новый Структура( СоставСтруктуры) ;
ЗаполнитьЗначенияСвойств( СтруктураКолонок, Строка) ;
МассивСтрок. Добавить( СтруктураКолонок) ;
КонецЦикла ;
СтрокаJSON = СформироватьСтрокуJSONИзМассива( МассивСтрок) ;
КонецЕсли ;
Возврат СтрокаJSON;
КонецФункции
Процедура ЗаполнитьДанныеИзОтветаJSON(Результат, ТекстJSON, ТипДанных)
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
НомерЗначения = 0 ;
Пока ТекстJSON < > "" Цикл
ПервыйСимвол = Лев( ТекстJSON, 1 ) ;
Если ПервыйСимвол = "{" Тогда
Значение = Новый Структура;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Структура" ) ;
Если ТипДанных = "Структура" Тогда
Результат. Вставить( "Значение" + ? ( НомерЗначения = 0 , "" , НомерЗначения) , Значение) ;
НомерЗначения = НомерЗначения + 1 ;
ИначеЕсли ТипДанных = "Массив" Тогда
Результат. Добавить( Значение) ;
КонецЕсли ;
ИначеЕсли ПервыйСимвол = "[" Тогда
Значение = Новый Массив;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Массив" ) ;
Если ТипДанных = "Структура" Тогда
Результат. Вставить( "Значение" + ? ( НомерЗначения = 0 , "" , НомерЗначения) , Значение) ;
НомерЗначения = НомерЗначения + 1 ;
Иначе
Результат. Добавить( Значение) ;
КонецЕсли ;
ИначеЕсли ПервыйСимвол = "}" И ТипДанных = "Структура" Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
Если Лев( ТекстJSON, 1 ) = "," Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
КонецЕсли ;
Возврат ;
ИначеЕсли ПервыйСимвол = "]" И ТипДанных = "Массив" Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
Если Лев( ТекстJSON, 1 ) = "," Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
КонецЕсли ;
Возврат ;
Иначе
Если ТипДанных = "Структура" Тогда
Поз = Найти( ТекстJSON, ":" ) ;
Если Поз = 0 Тогда
Прервать ;
КонецЕсли ;
ИмяЗначения = СокрЛП( Лев( ТекстJSON, Поз- 1 ) ) ;
ТекстJSON = СокрЛП( Сред( ТекстJSON, Поз+ 1 ) ) ;
Если Лев( ТекстJSON, 1 ) = "{" Тогда
Значение = Новый Структура;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Структура" ) ;
ИначеЕсли Лев( ТекстJSON, 1 ) = "[" Тогда
Значение = Новый Массив;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Массив" ) ;
Иначе
Поз = 0 ;
Для Сч = 1 По СтрДлина( ТекстJSON) Цикл
Символ = Сред( ТекстJSON, Сч, 1 ) ;
Если Символ = "," ИЛИ Символ = "]" ИЛИ Символ = "}" Тогда
Поз = Сч;
Прервать ;
КонецЕсли ;
КонецЦикла ;
Если Поз = 0 Тогда
Значение = ТекстJSON;
ТекстJSON = "" ;
Иначе
Значение = Лев( ТекстJSON, Поз- 1 ) ;
ТекстJSON = СокрЛП( Сред( ТекстJSON, Поз + ? ( Сред( ТекстJSON, Поз, 1 ) = "," , 1 , 0 ) ) ) ;
КонецЕсли ;
Значение = СокрЛП( Значение) ;
КонецЕсли ;
Результат. Вставить( ИмяЗначения, Значение) ;
ИначеЕсли ТипДанных = "Массив" Тогда
Поз = 0 ;
Для Сч = 1 По СтрДлина( ТекстJSON) Цикл
Символ = Сред( ТекстJSON, Сч, 1 ) ;
Если Символ = "," ИЛИ Символ = "]" ИЛИ Символ = "}" Тогда
Поз = Сч;
Прервать ;
КонецЕсли ;
КонецЦикла ;
Если Поз = 0 Тогда
Значение = ТекстJSON;
ТекстJSON = "" ;
Иначе
Значение = Лев( ТекстJSON, Поз- 1 ) ;
ТекстJSON = СокрЛП( Сред( ТекстJSON, Поз + ? ( Сред( ТекстJSON, Поз, 1 ) = "," , 1 , 0 ) ) ) ;
КонецЕсли ;
Значение = СокрЛП( Значение) ;
Результат. Добавить( Значение) ;
КонецЕсли ;
КонецЕсли ;
КонецЦикла ;
КонецПроцедуры
Функция ЗаполнитьСтруктуруИзОтветаJSON(Знач ТекстJSON) Экспорт
Результат = Новый Структура;
ТекстJSON = СтрЗаменить( ТекстJSON, "\"" " , """ " ) ;
ТекстJSON = СтрЗаменить( ТекстJSON, """ " , "" ) ;
Если Лев( ТекстJSON, 1 ) = "{" Тогда
ЗаполнитьДанныеИзОтветаJSON( Результат, ТекстJSON, "Структура" ) ;
ИначеЕсли Лев( ТекстJSON, 1 ) = "[" Тогда
МассивДанных = Новый Массив;
ЗаполнитьДанныеИзОтветаJSON( МассивДанных, ТекстJSON, "Массив" ) ;
Результат. Вставить( "Значение" , МассивДанных) ;
КонецЕсли ;
Возврат Результат;
КонецФункции
Примеры их использования:
Код 1C v 8.х
Данные = Новый Структура( "server,user,hash" ,
10234 , 3745 , "8263ad83ce" ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Данные = Новый Массив;
Данные. Добавить( "Nissan" ) ;
Данные. Добавить( "Ford" ) ;
Данные. Добавить( "Audi" ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Данные = Новый Структура;
Данные. Добавить( "server" , 10234 ) ;
Данные. Добавить( "users" , Новый Массив) ;
Данные. Добавить( "hash" , "8263ad83ce" ) ;
Данные. users. Добавить( 3745 ) ;
Данные. users. Добавить( 7462 ) ;
Данные. users. Добавить( 2374 ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Данные = Новый Структура;
Данные. Вставить( "server" , 10234 ) ;
Данные. Вставить( "users" , Новый Массив) ;
Данные. users. Добавить( Новый Структура( "id,name" , 3745 , "Jack" ) ) ;
Данные. users. Добавить( Новый Структура( "id,name" , 7246 , "Nick" ) ) ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
ТаблПользователей = Новый ТаблицаЗначений;
ТаблПользователей. Колонки. Добавить( "id" ) ;
ТаблПользователей. Колонки. Добавить( "name" ) ;
НоваяСтрока = ТаблПользователей. Добавить( ) ;
НоваяСтрока. id = 3276 ;
НоваяСтрока. name = "Jack" ;
НоваяСтрока = ТаблПользователей. Добавить( ) ;
НоваяСтрока. id = 3276 ;
НоваяСтрока. name = "Nick" ;
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Данные) ;
Пишите комменты
Считать данные из двоичного файла можно при помощи функции ДвоичныеДанные(ИмяФайла). Например:
Код 1C v 8.2 УП ДД = ДвоичныеДанные( ИмяФайла) ;
или через ADODB.Stream
Код 1C v 8.х Процедура Пример(ИмяФайла)
StreamTypeEnum = Новый Структура( "adTypeBinary, adTypeText" , 1 , 2 ) ;
ConnectModeEnum = Новый Структура(
"adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,
|adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive,
|adModeUnknown, adModeWrite" , 1 , 3 , 4194304 , 16 , 4 , 8 , 12 , 0 , 2 ) ;
SaveOptionsEnum = Новый Структура( "adSaveCreateNotExist, adSaveCreateOverWrite" , 1 , 2 ) ;
StreamIn = Новый COMОбъект( "ADODB.Stream" ) ;
StreamIn. Type = StreamTypeEnum. adTypeBinary;
StreamIn. Open( ) ;
StreamIn. LoadFromFile( ИмяФайла) ;
Data = StreamIn. Read( ) ;
StreamIn. Close( ) ;
СодержимоеМассив = Data. Выгрузить( ) ;
Data = Новый COMSafeArray( СодержимоеМассив, "VT_UI1" , СодержимоеМассив. Количество( ) ) ;
StreamOut = Новый COMОбъект( "ADODB.Stream" ) ;
StreamOut. Type = StreamTypeEnum. adTypeBinary;
StreamOut. Mode = ConnectModeEnum. adModeReadWrite;
StreamOut. Open( ) ;
StreamOut. Write( Data) ;
StreamOut. SaveToFile( ИмяФайла, SaveOptionsEnum. adSaveCreateOverWrite) ;
StreamOut. Close( ) ;
КонецПроцедуры
Двоичные данные и кодировка Base64 в 1С 8.Х
Считать данные из двоичного файла можно при помощи функции
ДвоичныеДанные(ИмяФайла). Например:
Код 1C v 8.2 УП ДД = ДвоичныеДанные( ИмяФайла) ;
Здесть ДД - специальный объект, который называется "двоичные данные".
В языке 1С есть функция, которая преобразует двоичные данные в строку
Base64Строка(ДвоичныеДанные). Например:
Код 1C v 8.2 УП Строка64 = Base64Строка( ДвоичныеДанные) ;
Здесть Строка64 - обычная строка, с которой можно делать все, что угодно.
В конце статьи приведена функция
Преобразовать64(Строка64 = неопределено, Массив64 = неопределено) , которая преобразовывает строку в массив байтов, и обратно.
Для того, чтобы получить массив байтов из строки, вызываем ее так:
Код 1C v 8.2 УП Массив64 = Преобразовать64 ( Строка64 , ) ;
Для обратного преобразования вызываем так:
Код 1C v 8.2 УП Строка64 = Преобразовать64 ( , Массив64 ) ;
Преобразовать строку в двоичные данные можно при помощи функции Base64Значение(Строка64)
Все указанные функции, кроме Преобразовать64, являются встроенными функциям платформы.
Далее листинг функции Преобразовать64:
Код 1C v 8.2 УП
&НаСервере
Функция Преобразовать64(Строка64 = неопределено, Массив64 = неопределено)
Таб64 = Новый ТаблицаЗначений;
Таб64 . Колонки. Добавить( "Код" ) ;
Таб64 . Колонки. Добавить( "Символ" ) ;
Нпп = 0 ;
Для Код = КодСимвола( "A" ) По КодСимвола( "Z" ) Цикл
стр = Таб64 . Добавить( ) ;
стр. Код = Нпп;
стр. Символ = Символ( Код) ;
Нпп = Нпп + 1 ;
КонецЦикла ;
Для Код = КодСимвола( "a" ) По КодСимвола( "z" ) Цикл
стр = Таб64 . Добавить( ) ;
стр. Код = Нпп;
стр. Символ = Символ( Код) ;
Нпп = Нпп + 1 ;
КонецЦикла ;
стр = Таб64 . Добавить( ) ;
стр. Код = Нпп;
стр. Символ = "0" ;
Нпп = Нпп + 1 ;
Для Код = 1 По 9 Цикл
стр = Таб64 . Добавить( ) ;
стр. Код = Нпп;
стр. Символ = Формат( Код, "ЧЦ=1; ЧДЦ=0" ) ;
Нпп = Нпп + 1 ;
КонецЦикла ;
стр = Таб64 . Добавить( ) ;
стр. Код = Нпп;
стр. Символ = "+" ;
Нпп = Нпп + 1 ;
стр = Таб64 . Добавить( ) ;
стр. Код = Нпп;
стр. Символ = "/" ;
Если Массив64 = неопределено Тогда
Если Строка64 = неопределено Тогда
Сообщить( "неверный вызов функции" ) ;
Возврат неопределено ;
КонецЕсли ;
Строка64 = СтрЗаменить( Строка64 , Символ( 10 ) , "" ) ;
Строка64 = СтрЗаменить( Строка64 , Символ( 13 ) , "" ) ;
Если СтрДлина( Строка64 ) % 4 < > 0 Тогда
Сообщить( "длина строки на входе должна быть кратна 4" ) ;
Сообщить( СтрДлина( Строка64 ) ) ;
Возврат неопределено ;
КонецЕсли ;
Кол4 = Цел( СтрДлина( Строка64 ) / 4 ) ;
РазмерМ = Кол4 * 3 ;
Если Прав( Строка64 , 2 ) = "==" Тогда
РазмерМ = РазмерМ - 2 ;
ИначеЕсли Прав( Строка64 , 1 ) = "=" Тогда
РазмерМ = РазмерМ - 1 ;
КонецЕсли ;
Массив64 = Новый Массив( РазмерМ) ;
Для А = 1 По Кол4 Цикл
Число3 = 0 ;
Для Б = 1 По 4 Цикл
Буква1 = Сред( Строка64 , ( А- 1 ) * 4 + Б, 1 ) ;
Если Буква1 = "=" Тогда
Код4 = 0 ;
Иначе
стрН = Таб64 . Найти( Буква1 , "Символ" ) ;
Если стрН = Неопределено Тогда
Сообщить( "ошибка при поиске " + КодСимвола( Буква1 ) ) ;
Иначе
Код4 = стрН. Код;
КонецЕсли ;
КонецЕсли ;
Число3 = Число3 * 64 + Код4 ;
КонецЦикла ;
Ост = Число3 % 256 ;
Индекс = ( А- 1 ) * 3 + 2 ;
Если Индекс < = РазмерМ - 1 Тогда
Массив64 [Индекс] = Ост;
КонецЕсли ;
Число3 = ( Число3 - Ост) / 256 ;
Ост = Число3 % 256 ;
Индекс = ( А- 1 ) * 3 + 1 ;
Если Индекс < = РазмерМ - 1 Тогда
Массив64 [Индекс] = Ост;
КонецЕсли ;
Число3 = ( Число3 - Ост) / 256 ;
Ост = Число3 % 256 ;
Массив64 [( А- 1 ) * 3 + 0 ] = Ост;
КонецЦикла ;
Возврат Массив64 ;
Иначе
Строка64 = "" ;
Кол3 = Цел( Массив64 . Количество( ) / 3 ) ;
Если Массив64 . Количество( ) % 3 < > 0 Тогда
Кол3 = Кол3 + 1 ;
КонецЕсли ;
Для А = 1 По Кол3 Цикл
Число3 = Массив64 [( А- 1 ) * 3 ];
Если ( А- 1 ) * 3 + 1 < = Массив64 . ВГраница( ) Тогда
Код3 = Массив64 [( А- 1 ) * 3 + 1 ];
Иначе
Код3 = 0 ;
КонецЕсли ;
Число3 = Число3 * 256 + Код3 ;
Если ( А- 1 ) * 3 + 2 < = Массив64 . ВГраница( ) Тогда
Код3 = Массив64 [( А- 1 ) * 3 + 2 ];
Иначе
Код3 = 0 ;
КонецЕсли ;
Число3 = Число3 * 256 + Код3 ;
Ост4 = Число3 % 64 ;
Число3 = ( Число3 - Ост4 ) / 64 ;
Ост3 = Число3 % 64 ;
Число3 = ( Число3 - Ост3 ) / 64 ;
Ост2 = Число3 % 64 ;
Число3 = ( Число3 - Ост2 ) / 64 ;
Ост1 = Число3 % 64 ;
Число3 = ( Число3 - Ост1 ) / 64 ;
стрН = Таб64 . Найти( Ост1 , "Код" ) ;
Если стрН = неопределено Тогда
Сообщить( "Ошибка при поиске" ) ;
Иначе
Строка64 = Строка64 + стрН. Символ;
КонецЕсли ;
стрН = Таб64 . Найти( Ост2 , "Код" ) ;
Если стрН = неопределено Тогда
Сообщить( "Ошибка при поиске" ) ;
Иначе
Строка64 = Строка64 + стрН. Символ;
КонецЕсли ;
стрН = Таб64 . Найти( Ост3 , "Код" ) ;
Если стрН = неопределено Тогда
Сообщить( "Ошибка при поиске" ) ;
Иначе
Строка64 = Строка64 + стрН. Символ;
КонецЕсли ;
стрН = Таб64 . Найти( Ост4 , "Код" ) ;
Если стрН = неопределено Тогда
Сообщить( "Ошибка при поиске" ) ;
Иначе
Строка64 = Строка64 + стрН. Символ;
КонецЕсли ;
КонецЦикла ;
Если Массив64 . Количество( ) % 3 = 1 Тогда
Строка64 = Лев( Строка64 , СтрДлина( Строка64 ) - 2 ) + "==" ;
ИначеЕсли Массив64 . Количество( ) % 3 = 2 Тогда
Строка64 = Лев( Строка64 , СтрДлина( Строка64 ) - 1 ) + "=" ;
КонецЕсли ;
Возврат Строка64 ;
КонецЕсли ;
КонецФункции
Обработка демонстрирует возможности интеграции 1С с картографическими сервисами, в ней поддерживается работа трех поставщиков услуг / карт — Яндекс, Google. Рамблер.
Автор: Діма Головаченко - http://smaylukk.com.ua
но так вот сама обработка + еще 2 :
Скачивать файлы может только зарегистрированный пользователь!
Код Модуля Обработки:
Код 1C v 8.х Перем СтруктураПоставщиковКарт Экспорт ;
Перем СтруктураЧисел;
Функция СформироватьСтрокуJSONИзМассива(Объект)
СтрокаJSON = "[" ;
Для каждого Элемент Из Объект Цикл
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент) + "," ;
КонецЦикла ;
Если Прав( СтрокаJSON, 1 ) = "," Тогда
СтрокаJSON = Лев( СтрокаJSON, СтрДлина( СтрокаJSON) - 1 ) ;
КонецЕсли ;
Возврат СтрокаJSON + "]" ;
КонецФункции
Функция СформироватьСтрокуJSONИзСтруктуры(Объект)
СтрокаJSON = "{" ;
Для каждого Элемент Из Объект Цикл
Если Элемент. Значение = "" Тогда
Продолжить;
КонецЕсли ;
СтрокаJSON = СтрокаJSON + """ " + Элемент. Ключ + """ " + ":" ;
Если ТипЗнч( Элемент. Значение) = Тип( "Строка" ) Тогда
СтрокаJSON = СтрокаJSON + """ " + URLEncode( Элемент. Значение) + """ " ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Число" ) Тогда
СтрокаJSON = СтрокаJSON + СтрЗаменить( Строка( Элемент. Значение) , Символы. НПП, "" ) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Булево" ) Тогда
СтрокаJSON = СтрокаJSON + Формат( Элемент. Значение, "БЛ=false; БИ=true" ) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Дата" ) Тогда
СтрокаJSON = СтрокаJSON + Формат( ТекущаяДата( ) - Дата( 1970 , 1 , 1 , 1 , 0 , 0 ) , "ЧГ=0" ) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Массив" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент. Значение) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "Структура" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент. Значение) ;
ИначеЕсли ТипЗнч( Элемент. Значение) = Тип( "ТаблицаЗначений" ) Тогда
СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON( Элемент. Значение) ;
Иначе
СтрокаJSON = СтрокаJSON + """ " + URLEncode( Строка( Элемент. Значение) ) + """ " ;
КонецЕсли ;
СтрокаJSON = СтрокаJSON + "," ;
КонецЦикла ;
Если Прав( СтрокаJSON, 1 ) = "," Тогда
СтрокаJSON = Лев( СтрокаJSON, СтрДлина( СтрокаJSON) - 1 ) ;
КонецЕсли ;
Возврат СтрокаJSON + "}" ;
КонецФункции
Функция СформироватьСтрокуJSON(Объект) Экспорт
СтрокаJSON = "" ;
Если ТипЗнч( Объект) = Тип( "Массив" ) Тогда
СтрокаJSON = СформироватьСтрокуJSONИзМассива( Объект) ;
ИначеЕсли ТипЗнч( Объект) = Тип( "Структура" ) Тогда
СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры( Объект) ;
ИначеЕсли ТипЗнч( Объект) = Тип( "ТаблицаЗначений" ) Тогда
СоставСтруктуры = "" ;
Для каждого Колонка Из Объект. Колонки Цикл
СоставСтруктуры = СоставСтруктуры + ? ( ЗначениеЗаполнено( СоставСтруктуры) , "," , "" ) + Колонка. Имя;
КонецЦикла ;
МассивСтрок = Новый Массив;
Для каждого Строка Из Объект Цикл
СтруктураКолонок = Новый Структура( СоставСтруктуры) ;
ЗаполнитьЗначенияСвойств( СтруктураКолонок, Строка) ;
МассивСтрок. Добавить( СтруктураКолонок) ;
КонецЦикла ;
СтрокаJSON = СформироватьСтрокуJSONИзМассива( МассивСтрок) ;
КонецЕсли ;
Возврат СтрокаJSON;
КонецФункции
Процедура ЗаполнитьДанныеИзОтветаJSON(Результат, ТекстJSON, ТипДанных)
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
НомерЗначения = 0 ;
Пока ТекстJSON < > "" Цикл
ПервыйСимвол = Лев( ТекстJSON, 1 ) ;
Если ПервыйСимвол = "{" Тогда
Значение = Новый Структура;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Структура" ) ;
Если ТипДанных = "Структура" Тогда
Результат. Вставить( "Значение" + ? ( НомерЗначения = 0 , "" , НомерЗначения) , Значение) ;
НомерЗначения = НомерЗначения + 1 ;
ИначеЕсли ТипДанных = "Массив" Тогда
Результат. Добавить( Значение) ;
КонецЕсли ;
ИначеЕсли ПервыйСимвол = "[" Тогда
Значение = Новый Массив;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Массив" ) ;
Если ТипДанных = "Структура" Тогда
Результат. Вставить( "Значение" + ? ( НомерЗначения = 0 , "" , НомерЗначения) , Значение) ;
НомерЗначения = НомерЗначения + 1 ;
Иначе
Результат. Добавить( Значение) ;
КонецЕсли ;
ИначеЕсли ПервыйСимвол = "}" И ТипДанных = "Структура" Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
Если Лев( ТекстJSON, 1 ) = "," Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
КонецЕсли ;
Возврат ;
ИначеЕсли ПервыйСимвол = "]" И ТипДанных = "Массив" Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
Если Лев( ТекстJSON, 1 ) = "," Тогда
ТекстJSON = СокрЛП( Сред( ТекстJSON, 2 ) ) ;
КонецЕсли ;
Возврат ;
Иначе
Если ТипДанных = "Структура" Тогда
Поз = Найти( ТекстJSON, ":" ) ;
Если Поз = 0 Тогда
Прервать ;
КонецЕсли ;
ИмяЗначения = СокрЛП( Лев( ТекстJSON, Поз - 1 ) ) ;
ИмяЗначения = СтрЗаменить( ИмяЗначения, """ " , "" ) ;
ТекстJSON = СокрЛП( Сред( ТекстJSON, Поз+ 1 ) ) ;
Если Лев( ТекстJSON, 1 ) = "{" Тогда
Значение = Новый Структура;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Структура" ) ;
ИначеЕсли Лев( ТекстJSON, 1 ) = "[" Тогда
Значение = Новый Массив;
ЗаполнитьДанныеИзОтветаJSON( Значение, ТекстJSON, "Массив" ) ;
Иначе
ПервыйКавычка = Ложь ;
ПредпоследнийКавычка = Ложь ;
Поз = 0 ;
Для Сч = 1 По СтрДлина( ТекстJSON) Цикл
Символ = Сред( ТекстJSON, Сч, 1 ) ;
Если Символ = """ " Тогда
Если ПервыйКавычка Тогда
ПредпоследнийКавычка = Истина ;
Иначе
ПервыйКавычка = Истина ;
КонецЕсли ;
КонецЕсли ;
Если ( Символ = "," И ( ( ПервыйКавычка И ПредпоследнийКавычка) Или ( Не ПервыйКавычка И Не ПредпоследнийКавычка) ) ) ИЛИ Символ = "]" ИЛИ Символ = "}" Тогда
Поз = Сч;
Прервать ;
КонецЕсли ;
КонецЦикла ;
Если Поз = 0 Тогда
Значение = ТекстJSON;
ТекстJSON = "" ;
Иначе
Значение = Лев( ТекстJSON, Поз - 1 ) ;
Значение = СтрЗаменить( Значение, """ " , "" ) ;
ТекстJSON = СокрЛП( Сред( ТекстJSON, Поз + ? ( Сред( ТекстJSON, Поз, 1 ) = "," , 1 , 0 ) ) ) ;
КонецЕсли ;
Значение = СокрЛП( Значение) ;
КонецЕсли ;
Результат. Вставить( ИмяЗначения, Значение) ;
ИначеЕсли ТипДанных = "Массив" Тогда
Поз = 0 ;
Для Сч = 1 По СтрДлина( ТекстJSON) Цикл
Символ = Сред( ТекстJSON, Сч, 1 ) ;
Если Символ = "," ИЛИ Символ = "]" ИЛИ Символ = "}" Тогда
Поз = Сч;
Прервать ;
КонецЕсли ;
КонецЦикла ;
Если Поз = 0 Тогда
Значение = ТекстJSON;
ТекстJSON = "" ;
Иначе
Значение = Лев( ТекстJSON, Поз - 1 ) ;
Значение = СтрЗаменить( Значение, """ " , "" ) ;
ТекстJSON = СокрЛП( Сред( ТекстJSON, Поз + ? ( Сред( ТекстJSON, Поз, 1 ) = "," , 1 , 0 ) ) ) ;
КонецЕсли ;
Значение = СокрЛП( Значение) ;
Результат. Добавить( Значение) ;
КонецЕсли ;
КонецЕсли ;
КонецЦикла ;
КонецПроцедуры
Функция ЗаполнитьСтруктуруИзОтветаJSON(Знач ТекстJSON) Экспорт
Результат = Новый Структура;
ТекстJSON = СтрЗаменить( ТекстJSON, "\"" " , """ " ) ;
Если Лев( ТекстJSON, 1 ) = "{" Тогда
ЗаполнитьДанныеИзОтветаJSON( Результат, ТекстJSON, "Структура" ) ;
ИначеЕсли Лев( ТекстJSON, 1 ) = "[" Тогда
МассивДанных = Новый Массив;
ЗаполнитьДанныеИзОтветаJSON( МассивДанных, ТекстJSON, "Массив" ) ;
Результат. Вставить( "Значение" , МассивДанных) ;
КонецЕсли ;
Возврат Результат;
КонецФункции
Функция КодСимволаASCII(Символ)
КодUNICODE = КодСимвола( Символ) ;
Если ( ( КодUNICODE > 1039 ) И ( КодUNICODE < 1104 ) ) Тогда
Возврат ( КодUNICODE - 848 ) ;
ИначеЕсли КодUNICODE = 8470 Тогда
Возврат 185 ;
ИначеЕсли КодUNICODE = 1105 Тогда
Возврат 184 ;
ИначеЕсли КодUNICODE = 1025 Тогда
Возврат 168 ;
Иначе
Возврат КодUNICODE;
КонецЕсли ;
КонецФункции
Функция URLEncode(value)
table = "%00%01%02%03%04%05%06%07%08%09%0A%0B%0C%0D%0E%0F%10%11%12%13%14" +
"%15%16%17%18%19%1A%1B%1C%1D%1E%1F%20%21%22%23%24%25%26%27%28" +
"%29%2A%2B%2C%2D%2E%2F%30%31%32%33%34%35%36%37%38%39%3A%3B%3C" +
"%3D%3E%3F%40%41%42%43%44%45%46%47%48%49%4A%4B%4C%4D%4E%4F%50" +
"%51%52%53%54%55%56%57%58%59%5A%5B%5C%5D%5E%5F%60%61%62%63%64" +
"%65%66%67%68%69%6A%6B%6C%6D%6E%6F%70%71%72%73%74%75%76%77%78" +
"%79%7A%7B%7C%7D%7E%7F%80%81%82%83%84%85%86%87%88%89%8A%8B%8C" +
"%8D%8E%8F%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F%A0" +
"%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF%B0%B1%B2%B3%B4" +
"%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF%C0%C1%C2%C3%C4%C5%C6%C7%C8" +
"%C9%CA%CB%CC%CD%CE%CF%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC" +
"%DD%DE%DF%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF%F0" +
"%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF" ;
result = "" ;
length = СтрДлина( value ) ;
Для i = 1 По length Цикл
symbol = Сред( value, i, 1 ) ;
code = КодСимволаASCII( symbol ) ;
result = result + Сред( table, code* 3 + 1 , 3 ) ;
КонецЦикла ;
Возврат result;
КонецФункции
Функция UnicodeEncode(Строка) Экспорт
Результат = Истина ;
Попытка
Рег = Новый COMОбъект( "VBScript.RegExp" ) ;
Рег. IgnoreCase = Истина ;
Рег. Global = Истина ;
Рег. Multiline = Ложь ;
Рег. Pattern = "u[0-9a-f]+" ;
Колекция = Рег. Execute( Строка) ;
Для Каждого Элемент Из Колекция Цикл
Если СтрДЛина( Элемент. value) = 1 Тогда
Продолжить;
КонецЕсли ;
КодСимвола = ПереводЧислаИз16 в10 ( Сред( ВРег( Элемент. value) , 2 ) ) ;
Символ = Символ( КодСимвола) ;
Строка = СтрЗаменить( Строка, "\" + Элемент. value, Символ) ;
КонецЦикла ;
Исключение
Результат = Ложь ;
Сообщить( "Ошибка преобразования из Unicode" , СтатусСообщения. Информация) ;
КонецПопытки ;
Возврат Результат;
КонецФункции
Функция ПереводЧислаИз16в10(Знач Значение)
Результат = 0 ;
Если ТипЗнч( Значение) < > Тип( "Строка" ) Тогда
Значение = СокрЛП( Строка( Значение) ) ;
КонецЕсли ;
МаксРазрядЦелых = 0 ;
МаксРазрядЦелых = СтрДлина( Значение) - 1 ;
н = МаксРазрядЦелых;
Ин = 1 ;
Пока н > = 0 Цикл
ТекЗначение = СтруктураЧисел. Получить( Сред( Значение, Ин, 1 ) ) * Pow( 16 , н) ;
Результат = Результат + ТекЗначение;
н = н - 1 ;
Ин = Ин + 1 ;
КонецЦикла ;
Возврат Результат;
КонецФункции
СтруктураПоставщиковКарт = Новый Соответствие;
СтруктураПоставщиковКарт. Вставить( 0 , "Яндекс" ) ;
СтруктураПоставщиковКарт. Вставить( 1 , "Гугл" ) ;
СтруктураПоставщиковКарт. Вставить( 2 , "2ГИС" ) ;
СтруктураПоставщиковКарт. Вставить( 3 , "Рамблер" ) ;
СтруктураЧисел = Новый Соответствие;
СтруктураЧисел. Вставить( "0" , 0 ) ;
СтруктураЧисел. Вставить( "1" , 1 ) ;
СтруктураЧисел. Вставить( "2" , 2 ) ;
СтруктураЧисел. Вставить( "3" , 3 ) ;
СтруктураЧисел. Вставить( "4" , 4 ) ;
СтруктураЧисел. Вставить( "5" , 5 ) ;
СтруктураЧисел. Вставить( "6" , 6 ) ;
СтруктураЧисел. Вставить( "7" , 7 ) ;
СтруктураЧисел. Вставить( "8" , 8 ) ;
СтруктураЧисел. Вставить( "9" , 9 ) ;
СтруктураЧисел. Вставить( "A" , 10 ) ;
СтруктураЧисел. Вставить( "B" , 11 ) ;
СтруктураЧисел. Вставить( "C" , 12 ) ;
СтруктураЧисел. Вставить( "D" , 13 ) ;
СтруктураЧисел. Вставить( "E" , 14 ) ;
СтруктураЧисел. Вставить( "F" , 15 ) ;
Код Формы Управляемой:
Код 1C v 8.2 УП
&НаКлиенте
Процедура НайтиАдрес(Команда)
НайтиАдресНаКарте(ТекАдрес);
КонецПроцедуры
&НаКлиенте
Процедура ИнициализацияКарты(Команда)
ИнициализироватьКарту();
КонецПроцедуры
&НаКлиенте
Процедура СправочнаяИнформация(Команда)
Элементы.ГруппаСправка.Видимость = Не Элементы.ГруппаСправка.Видимость;
КонецПроцедуры
&НаКлиенте
Процедура Разработчик(Команда)
ЗапуститьПриложение("http://smaylukk.com.ua/?lang=Ru");
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.ТипКарты = Параметры.ТипКарты;
ТекОбъект = РеквизитФормыВЗначение("Объект");
Поставщик = ТекОбъект.СтруктураПоставщиковКарт.Получить(Объект.ТипКарты);
Макет = ТекОбъект.ПолучитьМакет("Справка");
ТекстСправки = Макет.ПолучитьОбласть("Справка" + Поставщик).Область().Текст;
Справка = ТекстСправки;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Элементы.ГруппаСправка.Видимость = Ложь;
Заголовок = "Работа с картами. Поставщик - " + Поставщик;
ИнициализироватьКарту();
КонецПроцедуры
&НаКлиенте
Процедура ПриЗакрытии()
//удаление временных файлов
Для Каждого ТекЭлемент Из МассивВременныхФайлов Цикл
УдалитьФайлы(ТекЭлемент.Значение);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
//Процедура составляет имя процедуры поставщика
// и запускает ее на исполнение
//Параметры:
// НачалоИмени - Строка
Процедура ВыполнитьПроцедуруПоставщика(ИмяПроцедуры)
Выполнить ИмяПроцедуры;
КонецПроцедуры
&НаКлиенте
//процедура инициализирует карту постащика из макета
Процедура ИнициализироватьКарту()
Текст = ПолучитьТекстМакета("Макет" + Поставщик);
Эксплорер = Текст;
КонецПроцедуры
&НаСервере
Функция ПолучитьТекстМакета(ИмяМакета)
Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет(ИмяМакета);
Результат = Макет.ПолучитьТекст();
Возврат Результат;
КонецФункции
&НаКлиенте
Процедура ОчисткаКарты()
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "Reset()";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
///////////////////////////////////////////////////////////////////////
///////////////////ГЕОКОДИРОВАНИЕ И ПОИСК АДРЕСА///////////////////////
///////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура НайтиАдресНаКарте(Адрес = "")
//поиск адреса
Если Адрес = "" Тогда
Адрес = "Москва";
КонецЕсли;
// дальше пробуем с помощью геокодинга вывести данные поиска в таблицу
ТаблицаАдресов.Очистить();
ПоискАдреса(Адрес);
Если Поставщик = "Яндекс" Тогда
ПроизвестиГеокодинг_Яндекс();
ИначеЕсли Поставщик = "Гугл" Тогда
ПроизвестиГеокодинг_Гугл();
ИначеЕсли Поставщик = "Рамблер" Тогда
ПроизвестиГеокодинг_Рамблер();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПоискАдреса(Адрес)
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "FindAdres(""" + Адрес + """);";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
&НаСервере
//Процедура выводит в таблицу данные геокдинга Яндекса
//
//Параметры:
// ТекАдрес - Строка
Процедура ПроизвестиГеокодинг_Яндекс()
Яндекс = Новый HTTPСоединение("geocode-maps.yandex.ru");
ВременныйФайл = КаталогВременныхФайлов() + "Yandex_geocode_" + СокрЛП(Новый УникальныйИдентификатор);
Попытка
Яндекс.Получить("/1.x/?geocode=" + ТекАдрес + "&results=10", ВременныйФайл);
Исключение
Сообщить("Ошибка при попытке геокодировать по яндексу адрес: " + ТекАдрес);
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл(ВременныйФайл);
ПостроительDOM = Новый ПостроительDOM;
ДокументДОМ = ПостроительDOM.Прочитать(ЧтениеXML);
СписокText = ДокументДОМ.ПолучитьЭлементыПоИмени("text");
СписокPos = ДокументДОМ.ПолучитьЭлементыПоИмени("pos");
Если (СписокText.Количество() = 0) ИЛИ (СписокPos.Количество() = 0) Тогда
Возврат;
КонецЕсли;
Для ъ = 0 по СписокText.Количество()-1 Цикл
Координаты = СписокPos[Ъ].ТекстовоеСодержимое;
Разделитель = Найти(Координаты," ");
Широта = Число(Сред(Координаты, Разделитель + 1));
Долгота = Число(Лев(Координаты, Разделитель - 1));
Если Широта = 0 ИЛИ Долгота = 0 Тогда
Продолжить;
КонецЕсли;
стрАдрес = ТаблицаАдресов.Добавить();
Если СписокText.Количество() > ъ Тогда
стрАдрес.Адрес = СписокText[Ъ].ТекстовоеСодержимое;
стрАдрес.Широта = Широта;
стрАдрес.Долгота = Долгота;
КонецЕсли;
КонецЦикла;
МассивВременныхФайлов.Добавить(ВременныйФайл);
КонецПроцедуры
&НаСервере
//Процедура выводит в таблицу данные геокдинга Гугл
//
//Параметры:
// ТекАдрес - Строка
Процедура ПроизвестиГеокодинг_Гугл()
Гугл = Новый HTTPСоединение("maps.googleapis.com");
ВременныйФайл = КаталогВременныхФайлов() + "Google_geocode_" + СокрЛП(Новый УникальныйИдентификатор);
Попытка
Гугл.Получить("/maps/api/geocode/xml?address=" + ТекАдрес + "&language=ru&sensor=false", ВременныйФайл);
Исключение
Сообщить("Ошибка при попытке геокодировать по Google адрес: " + ТекАдрес);
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл(ВременныйФайл);
ПостроительDOM = Новый ПостроительDOM;
ДокументДОМ = ПостроительDOM.Прочитать(ЧтениеXML);
ТаблицаРезультатов = ДокументДОМ.ПолучитьЭлементыПоИмени("result");
Если ДокументДОМ.ПолучитьЭлементыПоИмени("status")[0].ТекстовоеСодержимое <> "OK" ИЛИ ТаблицаРезультатов.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Для ТекРезультат = 0 по ТаблицаРезультатов.Количество() -1 Цикл
СписокText = ТаблицаРезультатов[ТекРезультат].ПолучитьЭлементыПоИмени("formatted_address");
ЭлементыШиротаДолгота = ТаблицаРезультатов[ТекРезультат].ПолучитьЭлементыПоИмени("location");
Широта = ЭлементыШиротаДолгота[0].ПолучитьЭлементыПоИмени("lat")[0].ТекстовоеСодержимое;
Долгота = ЭлементыШиротаДолгота[0].ПолучитьЭлементыПоИмени("lng")[0].ТекстовоеСодержимое;
Если Широта = 0 ИЛИ Долгота = 0 Тогда
Продолжить;
КонецЕсли;
стрАдрес = ТаблицаАдресов.Добавить();
стрАдрес.Широта = Широта;
стрАдрес.Долгота = Долгота;
стрАдрес.Адрес = СписокText[0].ТекстовоеСодержимое;
КонецЦикла;
МассивВременныхФайлов.Добавить(ВременныйФайл);
КонецПроцедуры
&НаСервере
//Процедура выводит в таблицу данные геокдинга Рамблер
//
//Параметры:
// ТекАдрес - Строка
Процедура ПроизвестиГеокодинг_Рамблер()
ТемпАдрес = СтрЗаменить(ТекАдрес, " ", "+");
Рамблер = Новый HTTPСоединение("maps.rambler.ru");
ВременныйФайл = КаталогВременныхФайлов() + "Рамблер_geocode_" + СокрЛП(Новый УникальныйИдентификатор);
Попытка
Рамблер.Получить("/search/?&a=search&q=" + ТемпАдрес + "&n=10", ВременныйФайл);
Исключение
Сообщить("Ошибка при попытке геокодировать по Рамблер адрес: " + ТекАдрес);
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
а = 1;
Т = Новый ТекстовыйДокумент;
Т.Прочитать(ВременныйФайл);
СтрокаОтвет = Т.ПолучитьТекст();
Результат = РеквизитФормыВЗначение("Объект").UnicodeEncode(СтрокаОтвет);
Если Результат Тогда
СтруктураJSON = РеквизитФормыВЗначение("Объект").ЗаполнитьСтруктуруИзОтветаJSON(СтрокаОтвет);
КонецЕсли;
МассивРезультатов = СтруктураJSON.res;
//обрабатываем элементы массива - только адреса. POI можно обработать отдельно пожеланию
Для Каждого Результат Из МассивРезультатов Цикл
Для Каждого ТекРезультат Из Результат.matches Цикл
стрАдрес = ТаблицаАдресов.Добавить();
стрАдрес.Долгота = Число(ТекРезультат.x);
стрАдрес.Широта = Число(ТекРезультат.y);
Если Результат.type = "addr" Тогда //Результат.type = "poi" - содержит в себе список точек интереса
стрАдрес.Адрес = ТекРезультат.addr;
Иначе
стрАдрес.Адрес = ТекРезультат.name + " - " + ТекРезультат.addr;
КонецЕсли;
КонецЦикла;
КонецЦикла;
МассивВременныхФайлов.Добавить(ВременныйФайл);
КонецПроцедуры
&НаКлиенте
Процедура ОбратнПоискАдреса(Широта, Долгота, Адрес)
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "ReverseSearchAdres(" + Широта + "," + Долгота + ", """ + Адрес + """);";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
&НаКлиенте
Процедура ТаблицаАдресовВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ТаблицаАдресов[ВыбраннаяСтрока].Широта) И ЗначениеЗаполнено(ТаблицаАдресов[ВыбраннаяСтрока].Долгота) Тогда
СтандартнаяОбработка = Ложь;
КонецЕсли;
Широта = Формат(ТаблицаАдресов[ВыбраннаяСтрока].Широта, "ЧЦ=10; ЧДЦ=7; ЧРД=.; ЧРГ=");
Долгота = Формат(ТаблицаАдресов[ВыбраннаяСтрока].Долгота, "ЧЦ=10; ЧДЦ=7; ЧРД=.; ЧРГ=");
ОбратнПоискАдреса(Широта, Долгота, ТаблицаАдресов[ВыбраннаяСтрока].Адрес);
КонецПроцедуры
&НаКлиенте
Процедура ТекАдресПриИзменении(Элемент)
НайтиАдресНаКарте(ТекАдрес);
КонецПроцедуры
///////////////////////////////////////////////////////////////////////
///////////////////МАРШРУТИЗАЦИЯ, КЛАСТЕРА И ПОЛИГОН///////////////////////////////////////
///////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура ЭксплорерПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
ПолучитьКоординаты();
КонецПроцедуры
&НаКлиенте
Процедура ПостроитьМаршрут(Команда)
Если ТаблицаТочек.Количество() <= 1 Тогда
Предупреждение("Недостаточно точек для построение маршрута!");
Возврат;
КонецЕсли;
Если Поставщик = "Яндекс" Тогда
ПостроитьМаршрут_Яндекс();
ИначеЕсли Поставщик = "Гугл" Тогда
ПостроитьМаршрут_Гугл();
ИначеЕсли Поставщик = "Рамблер" Тогда
ПостроитьМаршрут_Рамблер();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
//Процедура выстраивает маршрут для Яндекса
//
//Параметры:
//
Процедура ПостроитьМаршрут_Яндекс()
ПараметрыМаршрута = ПолучитьПараметрыМаршрутаЯндекс();
ОчисткаКарты();
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "calcRoute(" + ПараметрыМаршрута + ")";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
&НаКлиенте
//Функция получает массив точек, для передачи параметров в Яндекс
//
//Параметры:
//
//Возвращаемое значение:
// Строка
Функция ПолучитьПараметрыМаршрутаЯндекс()
Результат = "";
Результат = Результат + "[[" + СтрЗаменить(Строка(ТаблицаТочек[0].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[0].Долгота), ",", ".") + "],";
Для Ин = 1 По ТаблицаТочек.Количество() - 2 Цикл
Результат = Результат + "[" + СтрЗаменить(Строка(ТаблицаТочек[ин].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[ин].Долгота), ",", ".") + "],";
КонецЦикла;
Результат = Результат + "[" + СтрЗаменить(Строка(ТаблицаТочек[ТаблицаТочек.Количество() - 1].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[ТаблицаТочек.Количество() - 1].Долгота), ",", ".") + "]]";
Возврат Результат;
КонецФункции
&НаКлиенте
//Процедура выстраивает маршрут для Гугл
//
//Параметры:
//
Процедура ПостроитьМаршрут_Гугл()
ПараметрыМаршрута = ПолучитьПараметрыМаршрутаГугл();
ОчисткаКарты();
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "calcRoute(" + ПараметрыМаршрута + ")";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
&НаКлиенте
//Функция получает массив точек, для передачи параметров в Гугл
//
//Параметры:
//
//Возвращаемое значение:
// Строка
Функция ПолучитьПараметрыМаршрутаГугл()
Результат = "";
ВнутрМассив = "";
Результат = Результат + "[[" + СтрЗаменить(Строка(ТаблицаТочек[0].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[0].Долгота), ",", ".") + "],";
Если ТаблицаТочек.Количество() = 2 Тогда
Результат = Результат + "[],";
Иначе
Для Ин = 1 По ТаблицаТочек.Количество() - 2 Цикл
ВнутрМассив = ВнутрМассив + "[" + СтрЗаменить(Строка(ТаблицаТочек[ин].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[ин].Долгота), ",", ".") + "],";
КонецЦикла;
Результат = Результат + "[" + Сред(ВнутрМассив, 1, СтрДлина(ВнутрМассив) - 1) + "],";
КонецЕсли;
Результат = Результат + "[" + СтрЗаменить(Строка(ТаблицаТочек[ТаблицаТочек.Количество() - 1].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[ТаблицаТочек.Количество() - 1].Долгота), ",", ".") + "]]";
Возврат Результат;
КонецФункции
&НаКлиенте
//Процедура выстраивает маршрут для Рамблера
//
//Параметры:
//
Процедура ПостроитьМаршрут_Рамблер()
ПараметрыМаршрута = ПолучитьПараметрыМаршрутаРамблер();
ОчисткаКарты();
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "calcRoute(" + ПараметрыМаршрута + ")";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
&НаКлиенте
//Функция получает массив точек, для передачи параметров в Рамблер
//
//Параметры:
//
//Возвращаемое значение:
// Строка
Функция ПолучитьПараметрыМаршрутаРамблер()
Результат = "";
Результат = Результат + "[[" + СтрЗаменить(Строка(ТаблицаТочек[0].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[0].Долгота), ",", ".") + "],";
Для Ин = 1 По ТаблицаТочек.Количество() - 2 Цикл
Результат = Результат + "[" + СтрЗаменить(Строка(ТаблицаТочек[ин].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[ин].Долгота), ",", ".") + "],";
КонецЦикла;
Результат = Результат + "[" + СтрЗаменить(Строка(ТаблицаТочек[ТаблицаТочек.Количество() - 1].Широта), ",", ".") + "," + СтрЗаменить(Строка(ТаблицаТочек[ТаблицаТочек.Количество() - 1].Долгота), ",", ".") + "]]";
Возврат Результат;
КонецФункции
&НаКлиенте
Процедура СоздатьКластер(Команда)
Если ТаблицаТочек.Количество() <= 1 Тогда
Предупреждение("Недостаточно точек для построение кластера!");
Возврат;
КонецЕсли;
ОчисткаКарты();
ПостроитьКластера();
КонецПроцедуры
&НаКлиенте
Процедура ПостроитьКластера()
Кол = ТаблицаТочек.Количество();
Индекс = 1;
Для Каждого ТекСтрока Из ТаблицаТочек Цикл
Широта = формат(ТекСтрока.Широта, "ЧРД=.");
Долгота = формат(ТекСтрока.Долгота, "ЧРД=.");
СодержимоеТочки = "Содерижмое точки"; //опять же можно вставить свое название
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "addToPointArray(" + Широта + "," + Долгота + ", '" + ТекСтрока.Точка + "', """ + СодержимоеТочки + """);";
Элементы.Эксплорер.document.getElementById("WebClient").click();
Состояние("Обработан " + Индекс + " из " + кол);
Индекс = Индекс + 1;
КонецЦикла;
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "drawCluster();";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
&НаКлиенте
Процедура ОчиститьВсе(Команда)
ОчисткаКарты();
ТаблицаТочек.Очистить();
КонецПроцедуры
&НаКлиенте
Процедура ОчиститьКарту(Команда)
ОчисткаКарты();
КонецПроцедуры
&НаКлиенте
Процедура ОчиститьТаблицу(Команда)
ТаблицаТочек.Очистить();
КонецПроцедуры
&НаКлиенте
//Процедура получает координаты установленной точки
Процедура ПолучитьКоординаты()
Попытка
ЧислоТип = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15, 12));
КоординатаX = Элементы.Эксплорер.document.getElementById("CoordX").value;
КоординатаX = ЧислоТип.ПривестиЗначение(КоординатаX);
КоординатаY = Элементы.Эксплорер.document.getElementById("CoordY").value;
КоординатаY = ЧислоТип.ПривестиЗначение(КоординатаY);
Кол = ТаблицаТочек.Количество();
Если КоординатаX > 0 И КоординатаY > 0 И (Кол = 0 Или КоординатаX <> ТаблицаТочек[Кол - 1].Широта И КоординатаY <> ТаблицаТочек[Кол - 1].Долгота) Тогда
НоваяСтрока = ТаблицаТочек.Добавить();
НоваяСтрока.Точка = "Точка" + ТаблицаТочек.Количество();
НоваяСтрока.Широта = КоординатаX;
НоваяСтрока.Долгота = КоординатаY;
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПострениеПолигона(Команда)
Если ТаблицаТочек.Количество() <= 1 Тогда
Предупреждение("Недостаточно точек для построение полигона!");
Возврат;
КонецЕсли;
ОчисткаКарты();
ПостроитьПолигон();
КонецПроцедуры
&НаКлиенте
//Процедура выстраивает маршрут для Рамблера
//
//Параметры:
//
Процедура ПостроитьПолигон()
МассивТочек = "[";
Для Каждого ТекТочка Из ТаблицаТочек Цикл
Широта = формат(ТекТочка.Широта, "ЧРД=.");
Долгота = формат(ТекТочка.Долгота, "ЧРД=.");
МассивТочек = МассивТочек + "[" + Широта + "," + Долгота + "],";
КонецЦикла;
МассивТочек = Сред(МассивТочек, 1, СтрДлина(МассивТочек) - 1) + "]";
Цвет16 = Получить16Цвет();
Название = "Полигон";//вставить свое
Элементы.Эксплорер.document.getElementById("WebClientOperation").value = "createPolygon(" + МассивТочек + ", '" + Название + "', '" + Цвет16 + "');";
Элементы.Эксплорер.document.getElementById("WebClient").click();
КонецПроцедуры
&НаСервере
//Функция возвращает значение случайного цвета в 16-ричном формате
//
//Параметры:
// нет
//Возвращаемое значение:
// Строка
Функция Получить16Цвет()
Результат = "";
Строка16 = "0123456789ABCDEF";
ГСЧ = Новый ГенераторСлучайныхЧисел;
Результат = "#";
Для н = 1 По 6 Цикл
м = ГСЧ.СлучайноеЧисло(1, 16);
Результат = Результат + Сред(Строка16, м, 1);
КонецЦикла;
Возврат Результат;
КонецФункции
ПОДОБНО - Оператор проверки строки на подобие шаблону. Аналог LIKE в SQL.
Оператор
ПОДОБНО позволяет сравнить значение выражения, указанного слева от него, со строкой шаблона, указанной справа. Значение выражения должно иметь тип строка. Если значение выражения удовлетворяет шаблону – результатом оператора будет ИСТИНА, иначе – ЛОЖЬ.
Следующие символы в строке шаблона являются служебными и имеют смысл, отличный от символа строки:
• % (процент): последовательность, содержащая любое количество произвольных символов
• _ (подчеркивание): один произвольный символ
• […] (в квадратных скобках один или несколько символов): любой одиночный символ из перечисленных внутри квадратных скобок
В перечислении могут встречаться диапазоны, например a-z, означающие произвольный символ, входящий в диапазон, включая концы диапазона.
• [^…] (в квадратных скобках значок отрицания, за которым следует один или несколько символов): любой одиночный символ, кроме тех, которые перечислены следом за значком отрицания
Любой другой символ означает сам себя и не несет никакой дополнительной нагрузки.
Если в качестве самого себя необходимо записать один из перечисленных символов, то ему должен предшествовать <Спецсимвол>. Сам <Спецсимвол> (любой подходящий символ) определяется в этом же операторе после ключевого слова СПЕЦСИМВОЛ.
Например , шаблон “%АБВ[0-9][абвг]\_абв%” СПЕЦСИМВОЛ “\” означает подстроку, состоящую из последовательности символов:
буквы А; буквы Б; буквы В; одной цифры; одной из букв а, б, в или г; символа подчеркивания; буквы а; буквы б; буквы в.
Причем перед этой последовательностью может располагаться произвольный набор символов.
Примеры использования:
Код 1C v 8.х Процедура БанкОкончаниеВводаТекста(Элемент, Текст, Значение, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
//Делаем запрос с поиском по шаблону вида "%" + <Текст введенный пользователм в поле ввода> + "%"
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Наименование", "%" + Текст + "%");
Запрос.Текст = "ВЫБРАТЬ
| Банки.Ссылка
|ИЗ
| Справочник.Банки КАК Банки
|
|ГДЕ
| Банки.Наименование ПОДОБНО &Наименование";
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Если Результат.Пустой() Тогда
//Ничего не нашли. Здесь можно вывести сообщение, или еще чего сделать
Иначе
//Получаем результаты
тзРезультаты = Результат.Выгрузить();
//Подготовим список значений который будет содержать найденные элементы.
Значение = Новый СписокЗначений();
Значение.ЗагрузитьЗначения(тзРезультаты.ВыгрузитьКолонку("Ссылка"));
КонецЕсли;
КонецПроцедуры
Нужно, что бы в "Договора по умолчанию" попадали только Наименования Основной договор и т.д:
Код 1C v 8.х Выбор
Когда Наименование ПОДОБНО "Договор №%" тогда "Договора с номером"
Когда Наименование ПОДОБНО "Основной договор%[^А-яЁё" + Символ( 33 ) + "-" + Символ( 126 ) + "№»«" + Символы. ПС+ Символы. Таб+ Символы. ПФ+ Символы. НПП+ Символы. ВТаб+ "]%" тогда "Договора по умолчанию"
Иначе "Прочие"
Конец Как ВидДоговора
Код 1C v 7.x Перем ИмяПути,ИмяФайла;
Перем xmlParser;
//пример чтения xml файла.
Функция УстановитьКомпоненту()
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда
Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда
Сообщить("Не удалось обнаружить компоненту V7Plus.dll!");
Возврат 0;
КонецЕсли;
КонецЕсли;
Попытка
xmlParser = СоздатьОбъект("Addin.XmlParser") ;
Исключение
Сообщить("Не удалось создать объект Addin.XmlParser!");
Возврат 0;
КонецПопытки;
Возврат 1;
КонецФункции // УстановитьКомпоненту
Процедура Выполнить()
стрИмяФайла=ИмяПути+ИмяФайла;
таб=СоздатьОбъект("ТаблицаЗначений");
таб.НоваяКолонка("Ф","Строка",50,0);
таб.НоваяКолонка("И","Строка",50,0);
таб.НоваяКолонка("О","Строка",50,0);
таб.НоваяКолонка("ДатаР","Дата");
таб.НоваяКолонка("_01","Число",16,2);
таб.НоваяКолонка("_02","Число",16,2);
таб.НоваяКолонка("_03","Число",16,2);
таб.НоваяКолонка("_04","Число",16,2);
таб.НоваяКолонка("_05","Число",16,2);
таб.НоваяКолонка("_06","Число",16,2);
таб.НоваяКолонка("_07","Число",16,2);
таб.НоваяКолонка("_08","Число",16,2);
таб.НоваяКолонка("_09","Число",16,2);
таб.НоваяКолонка("_10","Число",16,2);
таб.НоваяКолонка("_11","Число",16,2);
таб.НоваяКолонка("_12","Число",16,2);
таб.НоваяКолонка("СумГод","Число",18,2);
таб.НоваяКолонка("ОблГод","Число",18,2);
таб.НоваяКолонка("УдерГод","Число",18,2);
таб.НоваяКолонка("Индекс","Строка",6,0);
таб.НоваяКолонка("Регион","Строка",2,0);
таб.НоваяКолонка("Город","Строка",20,0);
таб.НоваяКолонка("Улица","Строка",20,0);
таб.НоваяКолонка("Дом","Строка",5,0);
таб.НоваяКолонка("Корпус","Строка",5,0);
таб.НоваяКолонка("Квартира","Строка",5,0);
Документ=xmlParser.СоздатьДокумент();
Документ.Загрузить(стрИмяФайла);
Данные=Документ.ПолучитьПодчиненныйПоНомеру(2);
Для Сч=1 По Данные.КоличествоПодчиненных() Цикл
таб.НоваяСтрока();
Элем=Данные.ПолучитьПодчиненныйПоНомеру(Сч);
УзелПолучДох=Элем.ВыбратьУзлы("ПолучДох");
Для Сч3=0 По УзелПолучДох.КоличествоУзлов-1 Цикл
// Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).ПредставлениеXML);
// Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).КоличествоПодчиненных());
ФИО=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(1);
таб.Ф=ФИО.ПолучитьПодчиненныйПоНомеру(1).Текст;
таб.И=ФИО.ПолучитьПодчиненныйПоНомеру(2).Текст;
таб.О=ФИО.ПолучитьПодчиненныйПоНомеру(3).Текст;
таб.ДатаР=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(3).Значение;
адр=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(6);
Для Сч4=1 По адр.КоличествоПодчиненных() Цикл
Если адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Индекс" Тогда
таб.Индекс=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="КодРегион" Тогда
таб.Регион=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Город" Тогда
таб.Город=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Улица" Тогда
таб.Улица=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Дом" Тогда
таб.Дом=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Корпус" Тогда
таб.Корпус=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Кварт" Тогда
таб.Квартира=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
Иначе
///////
КонецЕсли;
КонецЦикла;
КонецЦикла;
УзелСвДохСтав=Элем.ВыбратьУзлы("СвДохСтав");
Для Сч3=0 По УзелСвДохСтав.КоличествоУзлов-1 Цикл
//ел=УзелСвДохСтав.ПолучитьУзел(Сч3);
УзелДохВыч=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("ДохВыч");
Для Сч4=0 По УзелДохВыч.КоличествоУзлов-1 Цикл
МесДоход=УзелДохВыч.ПолучитьУзел(Сч4);
ИмяМес="";
СумМес=0;
Если МесДоход.ПолучитьПодчиненныйПоНомеру(1).Наименование="НомМес" Тогда
ИмяМес=МесДоход.ПолучитьПодчиненныйПоНомеру(1).Текст;
КонецЕсли;
Если МесДоход.ПолучитьПодчиненныйПоНомеру(3).Наименование="СумДоход" Тогда
СумМес=МесДоход.ПолучитьПодчиненныйПоНомеру(3).Значение;
КонецЕсли;
Если ПустоеЗначение(ИмяМес)=0 Тогда
Если ИмяМес="01" Тогда
таб._01=СумМес;
ИначеЕсли ИмяМес="02" Тогда
таб._02=СумМес;
ИначеЕсли ИмяМес="03" Тогда
таб._03=СумМес;
ИначеЕсли ИмяМес="04" Тогда
таб._04=СумМес;
ИначеЕсли ИмяМес="05" Тогда
таб._05=СумМес;
ИначеЕсли ИмяМес="06" Тогда
таб._06=СумМес;
ИначеЕсли ИмяМес="07" Тогда
таб._07=СумМес;
ИначеЕсли ИмяМес="08" Тогда
таб._08=СумМес;
ИначеЕсли ИмяМес="09" Тогда
таб._09=СумМес;
ИначеЕсли ИмяМес="10" Тогда
таб._10=СумМес;
ИначеЕсли ИмяМес="11" Тогда
таб._11=СумМес;
ИначеЕсли ИмяМес="12" Тогда
таб._12=СумМес;
КонецЕсли;
КонецЕсли;
КонецЦикла;
УзелНалПер=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("СГДНалПер");
НалПер=УзелНалПер.ПолучитьУзел(0);
Если НалПер.Наименование="СГДНалПер" Тогда
таб.СумГод=НалПер.ПолучитьПодчиненныйПоНомеру(1).Значение;
таб.ОблГод=НалПер.ПолучитьПодчиненныйПоНомеру(2).Значение;
таб.УдерГод=НалПер.ПолучитьПодчиненныйПоНомеру(3).Значение;
КонецЕсли;
//тут еще берем данные
КонецЦикла;
Состояние(Сч);
КонецЦикла;
Т=СоздатьОбъект("Таблица");
Т.ИсходнаяТаблица("Таблица");
таб.выбратьСтроки();
Т.ВывестиСекцию("Шапка");
нпп =1;
Пока таб.ПолучитьСтроку()=1 Цикл
Т.ВывестиСекцию("Текст");
нпп =нпп +1;
КонецЦикла;
Т.ТолькоПросмотр(1);
Т.Опции(0, 0, 1, 0);
// Т.ОбластьПечати(2);
Т.ПараметрыСтраницы(2,,,5,5,5,5,,, 1);
Т.Показать("Прочитали из XML");
КонецПроцедуры
Процедура Выбрать()
ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","xml файлы (*.xml) |*.xml|Все файлы (*.*) |*.*","xml", );
Если ПустоеЗначение(ИмяФайла)=0 Тогда
PathSbitn=ИмяПути+ИмяФайла;
КонецЕсли;
КонецПроцедуры //Выбрать
Процедура ПриОткрытии()
ИмяФайла ="";
ИмяПути = "P:";
res=УстановитьКомпоненту();
// Сообщить(res);
КонецПроцедуры //ПриОткрытии
Пример файла XML :
Код
<?xml version="1.0" encoding="windows-1251"?>
<НДФЛ2 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ВерсФорм="4.00001" ВерсПрог="НП 10.31" ИдФайл="ДОХОД_2НДФЛ">
<Справка>
<ОбщСвИЧ>
<ГодДох>2006</ГодДох>
<НомСпр>1</НомСпр>
<ДатаСпр>26.03.2007</ДатаСпр>
<ИФНСНА>7777</ИФНСНА>
</ОбщСвИЧ>
<ИстДох>
<СвНАЮЛ>
<ИННЮЛ>1234567890</ИННЮЛ>
<КПП>12345678</КПП>
<НаимОрг>ООО Рога и Копыта</НаимОрг>
<ОКАТО>12345678901</ОКАТО>
</СвНАЮЛ>
</ИстДох>
<ПолучДох>
<ФИО>
<Фамилия>Иванов</Фамилия>
<Имя>Иван</Имя>
<Отчество>Иванович</Отчество>
</ФИО>
<Статус>1</Статус>
<ДатаРожд>24.01.1973</ДатаРожд>
<Гражданство>643</Гражданство>
<УдЛичн>
<КодУдЛичн>21</КодУдЛичн>
<СерНомДок>12 01 012345</СерНомДок>
</УдЛичн>
<АдрМЖРФ>
<Индекс>123456</Индекс>
<КодРегион>77</КодРегион>
<Город>Энн г</Город>
<Улица>Ленина ул</Улица>
<Дом>99</Дом>
<Корпус>5</Корпус>
<Кварт>12</Кварт>
</АдрМЖРФ>
</ПолучДох>
<СвДохСтав>
<Ставка>35</Ставка>
<ДохВыч>
<НомМес>02</НомМес>
<КодДоход>2610</КодДоход>
<СумДоход>252.15</СумДоход>
</ДохВыч>
<ДохВыч>
<НомМес>07</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<ДохВыч>
<НомМес>10</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<СГДНалПер>
<СГДСумм>252.15</СГДСумм>
<ОблСумм>252.15</ОблСумм>
<НИОблСумм>88</НИОблСумм>
<НУОблСумм>88</НУОблСумм>
<ВозврСуммПЛ>0</ВозврСуммПЛ>
<ЗачСуммПЛ>0</ЗачСуммПЛ>
<УдСуммПЛ>0</УдСуммПЛ>
<ДолгНП>0</ДолгНП>
<ДолгНА>0</ДолгНА>
<ВзыскИФНС>0</ВзыскИФНС>
</СГДНалПер>
</СвДохСтав>
</Справка>
</НДФЛ2>