0
kep12377
23.11.21
✎
16:06
|
Приветствую, столкнулся с проблемой интеграции курсов валют. Создал обработку , добавил кнопку. Есть код, но он его нужно доработать. Уважаемые Знатоки, объясните, пожалуйста, от и до как организовать эту загрузку.
P.S.: код
&НаКлиенте
Процедура ЗагрузитьВалюты(Команда)
ЗагрузитьВалютыНаСервере();
КонецПроцедуры
&НаСервере
Функция ЗагрузитьВалютыНаСервере()
Сервер = "cbrates.rbc.ru";
Адрес = "tsv/cb/840.tsv";
Попытка
HTTP = Новый HTTPСоединение(Сервер);
Исключение
Сообщить("Не удалось подключиться");
Возврат Ложь;
КонецПопытки;
HTTPЗапрос = Новый HTTPЗапрос(Адрес);
HTTPОтвет = HTTP.Получить(HTTPЗапрос);
Текст = HTTPОтвет.ПолучитьТелоКакСтроку("windows-1251");
Для ИндексСтроки = 1 По СтрЧислоСтрок(Текст) Цикл
СтрокаКурса = СтрПолучитьСтроку(Текст, ИндексСтроки);
МногострочнаяСтрока = СтрЗаменить(СтрокаКурса, " ", Символы.ПС);
ДатаКурса = СтрПолучитьСтроку(МногострочнаяСтрока, 1);
КратностьКурса = СтрПолучитьСтроку(МногострочнаяСтрока, 2);
Курс = СтрПолучитьСтроку(МногострочнаяСтрока, 3);
КонецЦикла;
|
|