Загрузка курсов валют из РБК в 1С

Во многих типовых прикладных решениях уже реализован механизм получения курсов валют. Чаще всего в конфигурации существует специальный регистр сведений для хранения этих данных. Если требуется загрузить курсы валют не в типовом прикладном решении, то можно реализовать собственный алгоритм получения курсов по валютам.

РБК - это крупный российский мультимедийный холдинг. Данная компания включает одноименной телеканал, печатные СМИ, интернет-портал. Котировки валют можно получить не только с сайта РБК. ЦБРФ(Центральный банк Российской Федерации) в свободном доступе транслирует котировки валют.

Сайт РБК транслирует курсы валют в открытом доступе. Данный портал предоставляет котировки за различные периоды. Для получения необходимых данных нужно составить соответствующий запрос.

Строка запроса данных с сайта РБК

Формат выгружаемых данных

Загрузка курсов валют с сайта РБК

Функция ПолучитьКурсыВалют()
	
	//Сервер
	Сервер = "cbrates.rbc.ru";
	
	//На определенную дату
	Адрес = "tsv/cb/840/2016/08/22.tsv";
	
	//ИЛИ
	
	//Без ограничения даты
	Адрес = "tsv/cb/840.tsv";	
	
	Попытка
		HTTP = Новый HTTPСоединение(Сервер);
	Исключение
		Сообщить("Не удалось подключиться");
		Возврат Ложь;
	КонецПопытки;
	
	HTTPЗапрос = Новый HTTPЗапрос(Адрес); 
	HTTPОтвет = HTTP.Получить(HTTPЗапрос);
	Текст = HTTPОтвет.ПолучитьТелоКакСтроку("windows-1251");
		
	Для ИндексСтроки = 1 По СтрЧислоСтрок(Текст) Цикл
		
		СтрокаКурса = СтрПолучитьСтроку(Текст, ИндексСтроки);
		//Распарсить строку с курсом по символу табуляции
		МногострочнаяСтрока = СтрЗаменить(СтрокаКурса, "	", Символы.ПС);
		ДатаКурса = СтрПолучитьСтроку(МногострочнаяСтрока, 1);
		КратностьКурса = СтрПолучитьСтроку(МногострочнаяСтрока, 2);
		Курс = СтрПолучитьСтроку(МногострочнаяСтрока, 3);
		
	КонецЦикла;	
	
КонецФункции