v8: Получение данных из XML

 

<Valute id="1">

        <NumCode>036</NumCode>

        <CharCode>AUD</CharCode>

        <Nominal>100</Nominal>

        <Name>австралійських доларів</Name>

        <Value>821.1977</Value>

</Valute>

<Valute id="2">

      <NumCode>031</NumCode>  

      <CharCode>AZM</CharCode>

      <Nominal>100</Nominal>

      <Name>азербайджанських манатів</Name>

      <Value>1013.5595</Value>

</Valute>

<Valute id="3">

     <NumCode>826</NumCode>

      <CharCode>GBP</CharCode>

     <Nominal>100</Nominal>

     <Name>англійських фунтів стерлінгів</Name>

      <Value>1268.2075</Value>

</Valute>   

  Чтение = Новый ЧтениеXML;

Чтение.ОткрытьФайл(ПутьКФайлу);

Спр="";

// чтение осуществляется по одному тегу

Пока Чтение.Прочитать() Цикл

	// анализируем тип элемента и его имя

	Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

		Если Чтение.Имя="Клиент" Тогда

			// создаем новый элемент справочника

			Спр = Справочники.Клиенты.СоздатьЭлемент();

// читаем атрибуты

			Пока Чтение.ПрочитатьАтрибут() Цикл

				Если Чтение.Имя="Код" Тогда

					Спр.Код = Число(Чтение.Значение);

				КонецЕсли;

КонецЦикла;

		КонецЕсли;

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда

		// заполняем наименование созданного ранее элемента

		Спр.Наименование = Чтение.Значение;

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда

		// требуется записать информацию про клиента

		Спр.Записать();

	КонецЕсли;

КонецЦикла;