Имя: Пароль:
1C
1С v8
Загрузка валют с сайта РБК
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);
        
    КонецЦикла;