Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

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

Загрузка валют с сайта РБК
Я
   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);
        
    КонецЦикла;

Список тем форума
 
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.