ЧтениеХМЛ = Новый ЧтениеXML;
ЧтениеХМЛ.ОткрытьФайл("https://www.cbar.az/currencies/30.12.2019.xml");
Пока ЧтениеХМЛ.Прочитать() Цикл
Если ЧтениеХМЛ.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеХМЛ.Имя = "ValType" Тогда
продолжить;
КонецЕсли;
Если ЧтениеХМЛ.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеХМЛ.Имя = "Valute" Тогда
ЧтениеХМЛ.ПрочитатьАтрибут();
СтрокаОценка = "Valute: " + ЧтениеХМЛ.ЗначениеАтрибута("Code");
КонецЕсли;
Если ЧтениеХМЛ.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеХМЛ.Имя = "Name" Тогда
Сообщить(СтрокаОценка);
КонецЕсли;
//Если ЧтениеХМЛ.ЗначениеАтрибута("Code") = "USD" Тогда
Если ЧтениеХМЛ.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
ИмяЭлемента = ЧтениеХМЛ.Имя;
ИначеЕсли ЧтениеХМЛ.ТипУзла = ТипУзлаXML.Текст Тогда
Сообщить(ИмяЭлемента + ": " + ЧтениеХМЛ.Значение);
КонецЕсли;
Если ЧтениеХМЛ.ТипУзла = ТипУзлаXML.КонецЭлемента И ЧтениеХМЛ.Имя = "АдресСайта" Тогда
Сообщить("--------------------------------");
КонецЕсли;
//КонецЕсли;
КонецЦикла;
ЧтениеХМЛ.Закрыть();