Яндекс.Карты в 1С 8. На базе API Яндекс.Карт и элемента управления ПолеHTMLДокумента

МаршрутHTML = "
	|
	|	// Прокладывание маршрута
	|	var router = new YMaps.Router(["+МаршрутHTML+"], [1], {viewAutoApply: 1});
	|   map.addOverlay(router);
	|	// После заверешение построения маршрута изменяем содержмое значков начальной и конечной точек
	|        // И добавляем маршрут на карту
	|        YMaps.Events.observe(router, router.Events.Success, function() {
	|          
	|           //map.addOverlay(router);
	|			var summaryPanel = document.getElementById(""directions_panel"");
	|var route = """";
	|var dest=0;
	|for (var i=0; i<router.getNumRoutes(); i++) {
	|route = router.getRoute(i);
	|dest+=route.getDistance();
	|summaryPanel.innerHTML+=i +"":""+route.getDistance()+"";"";
	|}
	|summaryPanel.innerHTML = dest;
	|var summaryPanel = document.getElementById(""points_panel"");
	|summaryPanel.innerHTML = """";
	|var waypoint = """";
	|for (var i=0; i<router.getNumWayPoints(); i++) {
	|waipoint = router.getWayPoint(i);
	|summaryPanel.innerHTML+=i+"":""+waipoint.text+"";"";
	|
	|}
	|        });
	|	
	| ";
	

Процедура ЗаписатьМаршрутВТЧ()  Экспорт
	Перем мРазделительРасстояний, СоответствиеРасстояний, СоответствиеТочек, Текст;
	ТаблицаРасстояний = Новый ТаблицаЗначений;
	ТаблицаРасстояний.Колонки.Добавить("Индекс", ОбщегоНазначения.ПолучитьОписаниеТиповСтроки(4));
	ТаблицаРасстояний.Колонки.Добавить("Расстояние", ОбщегоНазначения.ПолучитьОписаниеТиповСтроки(30));
	СоответствиеТочек = Новый Соответствие;
	мРазделительРасстояний = ";";
	Попытка
		опМаршрут = ПолеHTML.Документ.getElementByID("directions_panel");
		 
		Если опМаршрут.innerHTML <> "" Тогда
		
			Текст = опМаршрут.innerHTML;
			Если ПустаяСтрока(Текст) Тогда
				Возврат;
			КонецЕсли; 
			
			//Определим маршруты и расстояния.
			
			а = СтрДлина(Текст);
			Пока а > 0 Цикл
				Если Сред(Текст, а, 1) <> мРазделительРасстояний И НЕ ПустаяСтрока(Сред(Текст, а, 1)) Тогда
					Прервать;
				КонецЕсли; 
				а = а - 1;
			КонецЦикла;
			
			Текст = Лев(Текст, а+1);
			ПозицияПервогоСимвола = 1;
			НомерЭлемента = 0;
			Для а = 1 По СтрДлина(Текст) Цикл
				Если Сред(Текст, а, 1) <> мРазделительРасстояний Тогда
					Продолжить;
				КонецЕсли;
				
				ПодстрокаЭлемента = СокрЛП(Сред(Текст, ПозицияПервогоСимвола, (а - ПозицияПервогоСимвола)));
				Если НЕ ПустаяСтрока(ПодстрокаЭлемента) Тогда
					//Получим индекс и расстояние.
					НачалоИндекс = Найти(ПодстрокаЭлемента, ":");
					НоваяСтрока = ТаблицаРасстояний.Добавить();
					НоваяСтрока.Индекс = СокрЛП(Сред(ПодстрокаЭлемента, 1, НачалоИндекс-1));
					НоваяСтрока.Расстояние = СокрЛП(Сред(ПодстрокаЭлемента, НачалоИндекс+1));
					
					//ИндексМаршрута = СокрЛП(Сред(ПодстрокаЭлемента, 1, НачалоИндекс-1));
					//РасстояниеМаршрута = СокрЛП(Сред(ПодстрокаЭлемента, НачалоИндекс+1));
					//СоответствиеРасстояний.Вставить(ИндексМаршрута, РасстояниеМаршрута);
				КонецЕсли;
				
				Если НЕ (а + 1 > СтрДлина(Текст)) Тогда
					ПозицияПервогоСимвола = а + 1;
				Иначе
					ПозицияПервогоСимвола = СтрДлина(Текст);
				КонецЕсли; 
			КонецЦикла;
		КонецЕсли;
	Исключение
		
	КонецПопытки;
	
	Попытка
		опМаршрут = ПолеHTML.Документ.getElementByID("points_panel");
		 
		Если опМаршрут.innerHTML <> "" Тогда
		
			Текст = опМаршрут.innerHTML;
			Если ПустаяСтрока(Текст) Тогда
				Возврат;
			КонецЕсли; 
			
			//Определим маршруты и расстояния.
			
			а = СтрДлина(Текст);
			Пока а > 0 Цикл
				Если Сред(Текст, а, 1) <> мРазделительРасстояний И НЕ ПустаяСтрока(Сред(Текст, а, 1)) Тогда
					Прервать;
				КонецЕсли; 
				а = а - 1;
			КонецЦикла;
			
			Текст = Лев(Текст, а+1);
			ПозицияПервогоСимвола = 1;
			НомерЭлемента = 0;
			Для а = 1 По СтрДлина(Текст) Цикл
				Если Сред(Текст, а, 1) <> мРазделительРасстояний Тогда
					Продолжить;
				КонецЕсли;
				
				ПодстрокаЭлемента = СокрЛП(Сред(Текст, ПозицияПервогоСимвола, (а - ПозицияПервогоСимвола)));
				Если НЕ ПустаяСтрока(ПодстрокаЭлемента) Тогда
					//Получим индекс и расстояние.
					НачалоИндекс = Найти(ПодстрокаЭлемента, ":");
					ИндексМаршрута = СокрЛП(Сред(ПодстрокаЭлемента, 1, НачалоИндекс-1));
					РасстояниеМаршрута = СокрЛП(Сред(ПодстрокаЭлемента, НачалоИндекс+1));
					СоответствиеТочек.Вставить(ИндексМаршрута, РасстояниеМаршрута);
				КонецЕсли;
				
				Если НЕ (а + 1 > СтрДлина(Текст)) Тогда
					ПозицияПервогоСимвола = а + 1;
				Иначе
					ПозицияПервогоСимвола = СтрДлина(Текст);
				КонецЕсли; 
			КонецЦикла;
		КонецЕсли;
	Исключение
		
	КонецПопытки;
	
	Маршруты.Очистить();
	ТаблицаРасстояний.Сортировать("Индекс");
	Для каждого ЭлементСтроки Из ТаблицаРасстояний Цикл
		Попытка
			НомерСтроки = Число(ЭлементСтроки.Индекс);
			РасстояниеМаршрута = Число(СокрЛп(ЭлементСтроки.Расстояние));
			
			НоваяСтрока = Маршруты.Добавить();
			НоваяСтрока.НачальнаяТочка = СоответствиеТочек.Получить(ЭлементСтроки.Индекс);
			НоваяСтрока.КонечнаяТочка = СоответствиеТочек.Получить(Строка(НомерСтроки+1));
			НоваяСтрока.Расстояние = РасстояниеМаршрута;
			
			//Если (НомерСтроки+1) < Контрагенты.Количество() Тогда
			//	Контрагенты[НомерСтроки+1].Расстояние = РасстояниеМаршрута;
			//КонецЕсли; 
			
		Исключение
			Сообщить("Не удалось преобразовать расстояние "+ЭлементСтроки.Индекс+" значение "+ЭлементСтроки.Расстояние);
		КонецПопытки;
	КонецЦикла;
КонецПроцедуры