helpf.pro
Регистрация
 +1 
Распечатать

Получаем курс валют с сайта банка (HTML)

Для полного понимания происходящего смотрите исходный код вэб-страницы. Подобным примитивным образом можно получить любую информацию, опираясь на значения id и class html блоков.

Из этого фрагмента страницы будем получать значения:

fragment


Код 1C v 8.х
 
Процедура КнопкаВыполнитьНажатие(Кнопка)

//Сохраняем нужную страницу для дальнейшей работы
Сервер = "kkb.kz";
Адрес = "/";
ИмяВходящегоФайла = КаталогВременныхФайлов() + "rate.html";
НТТР = Новый HTTPСоединение(Сервер);
НТТР.Получить(Адрес, ИмяВходящегоФайла);
ВходящийФайл = Новый Файл(ИмяВходящегоФайла);

//Получаем текст страницы
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ИмяВходящегоФайла);
Содержимое = Текст.ПолучитьТекст();

//Получаем дату курса
НачалоБлокаСДатой = "<div class=" + """" + "w100fl" + """" + " id=" + """" + "kurs" + """" + ">";
КонецБлокаСДатой = "<div class=" + """" + "tbl_menu" + """" + " id=" + """" + "tbl_menu" + """" +">";
БлокСДатой = Сред(Содержимое, Найти(Содержимое, НачалоБлокаСДатой) + СтрДлина(НачалоБлокаСДатой), Найти(Содержимое, КонецБлокаСДатой) - Найти(Содержимое, НачалоБлокаСДатой) - СтрДлина(НачалоБлокаСДатой));
НачалоБлокаСДатой = "<nobr>";
КонецБлокаСДатой = "</nobr>";
Дата = Дата(Сред(БлокСДатой, Найти(БлокСДатой, НачалоБлокаСДатой) + СтрДлина(НачалоБлокаСДатой), Найти(БлокСДатой, КонецБлокаСДатой) - Найти(БлокСДатой, НачалоБлокаСДатой) - СтрДлина(НачалоБлокаСДатой)) + ":00");

//Выделяем блок, где содержится информация о курсах
НачалоТекста = Найти(Содержимое, "<" + "div id=" + """" + "div_sub1" + """" + ">");
КонецТекста = Найти(Содержимое, "<" + "div id=" + """" + "div_sub2" + """");
БлокКурса = Сред(Содержимое, НачалоТекста, КонецТекста - НачалоТекста);

//Получаем курс (в нашем случае функции можем передать ещё значения "EUR" и "RUB")
Курс = ПолучитьКурсВалюты("USD", БлокКурса);
Покупка = Курс[0];
Продажа = Курс[1];


КонецПроцедуры

Функция ПолучитьКурсВалюты(Валюта, БлокКурса)

БлокКурса = СтрЗаменить(БлокКурса, Символы.ПС, "");
БлокКурса = СтрЗаменить(БлокКурса, " ", "");
СтрокаНачала = "<td><strong>" + Валюта + "</strong></td>";
НачалоБлокаВалюты = Найти(БлокКурса, СтрокаНачала);
ОстатокБлока = Сред(БлокКурса, НачалоБлокаВалюты + СтрДлина(СтрокаНачала), СтрДлина(БлокКурса) - НачалоБлокаВалюты);
КонецБлокаПокупки = Найти(ОстатокБлока, "</td>") - 1;
ЦенаПокупки = Число(СтрЗаменить(Сред(ОстатокБлока, 1, КонецБлокаПокупки), "<td>", ""));
ОстатокБлока = Сред(ОстатокБлока, КонецБлокаПокупки + 6, СтрДлина(ОстатокБлока) - КонецБлокаПокупки + 6);
КонецБлокаПродажи = Найти(ОстатокБлока, "</td>") - 1;
ЦенаПродажи = Число(СтрЗаменить(Сред(ОстатокБлока, 1, КонецБлокаПродажи), "<td>", ""));

Массив = Новый Массив;
Массив.Добавить(ЦенаПокупки);
Массив.Добавить(ЦенаПродажи);

Возврат Массив;

КонецФункции
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 10358
 +1 
Распечатать
Возможно, вас также заинтересует
10060 (0x0000274C): Попытка установить соединение была безуспешной 21
Установили новый терминальный сервер, на нем подняли 1С, терминальные пользователе неописуемо довольны, все просто летает :) И вот же надо было такому случиться, главному бухгалтеру не понравилось работать через терминал, а еще у нее свой ноутбук и
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 47
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
1C и Google Maps 21
была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1C: Enterprise Development Tools 50
И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем
1С 7.x : Как получить курсы валют с сайта НБУ http://www.bank.gov.ua/ за любую дату ? 6
Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1) // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯче
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.