Страховой номер Фамилия Имя Отчество
Спасибо.
&НаКлиенте
Процедура ТаблицаЗначений(Команда)
ТЗ ()
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ТЗ ()
Чтение = Новый ЧтениеXML;
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить ("СтраховойНомер");
ТЗ.Колонки.Добавить ("Фамилия");
ТЗ.Колонки.Добавить ("Имя");
ТЗ.Колонки.Добавить ("Отчество");
ТЗ.Очистить();
Файл = Новый ЧтениеXML;
Файл.ОткрытьФайл("c:\1.xml");
ИмяУзла = "";
Пока Файл.Прочитать() Цикл
Если Файл.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
ИмяУзла = Файл.Имя;
КонецЕсли;
Если Файл.ТипУзла = ТипУзлаXML.Текст и ИмяУзла = "СтраховойНомер" Тогда
НовСтр = ТЗ.Добавить();
НовСтр.СтраховойНомер = Файл.Значение;
КонецЕсли;
Если Файл.ТипУзла = ТипУзлаXML.Текст и ИмяУзла = "Фамилия" Тогда
НовСтр = ТЗ.Добавить();
НовСтр.Фамилия = Файл.Значение;
КонецЕсли;
Если Файл.ТипУзла = ТипУзлаXML.Текст и ИмяУзла = "Имя" Тогда
НовСтр = ТЗ.Добавить();
НовСтр.Имя = Файл.Значение;
КонецЕсли;
Если Файл.ТипУзла = ТипУзлаXML.Текст и ИмяУзла = "Отчество" Тогда
НовСтр = ТЗ.Добавить();
НовСтр.Отчество = Файл.Значение;
КонецЕсли;
КонецЦикла;
Файл.Закрыть();
КонецПроцедуры
! | Выделяйте код! |