И снова XDTO

0 alf2006x

17.10.24

✎

12:22

Ну, всё,... я сдаюсь.

В поисках решения по внесению изменений в файл xml всё же решил использовать ФабрикуXDTO, как наиболее визуально компактную и удобную.

Вроде задача элементарная, но сделать не могу.

Нужно: в XML файл "styles.xml", в СписокXDTO ("fonts") добавить такую ветку тега:

	<font>
		<u />
		<sz val="8" />
		<color theme="10" />
		<name val="Arial" />
	</font>

Всё на что меня хватило:

ПутьКФайлуStyles = ВременныйКаталог + "1\xl\styles.xml";

ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл(ПутьКФайлуStyles);
ЧтениеXML.ПерейтиКСодержимому();
	
ПутьКФайлуStylesНов = ВременныйКаталог + "1\xl\styles_NEW.xml";
ПараметрыЗаписиXML = Новый ПараметрыЗаписиXML("UTF-8", "1.0", Ложь);
	
ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.ОткрытьФайл(ПутьКФайлуStylesНов,  ПараметрыЗаписиXML);
ЗаписьXML.ЗаписатьБезОбработки("<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>");
	
URIПространстваИмен = ЧтениеXML.URIПространстваИмен;
styleSheet = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);
ЧтениеXML.Закрыть();
	
СписокFonts = styleSheet.fonts.font;
AnyType = СписокFonts[0].Тип();
	
НовыйЭлементFont 	= ФабрикаXDTO.Создать(AnyType);

НовыйЭлементU = ФабрикаXDTO.Создать(AnyType);
НовыйЭлементU.Последовательность().Добавить("u");
	
НовыйЭлементFont.Последовательность().Добавить(НовыйЭлементU);

СписокFonts.Добавить(НовыйЭлементFont);
ФабрикаXDTO.ЗаписатьXML(ЗаписьXML, styleSheet, "styleSheet", URIПространстваИмен, ФормаXML.Элемент);
ЗаписьXML.Закрыть();

Строка: НовыйЭлементFont.Последовательность().Добавить(НовыйЭлементU);

вылетает с ошибкой: Несоответствие типов (параметр номер '1')
Понимаю, что это делается как-то не так,.. как-то по-другому, перепробовал всё, что смог понять из XDTO - ничего не проканало. Делаю вывод: из XDTO нифига не понял.

Натолкните на правильный путь,.. ну пажааа-алуста ))

1 Волшебник

15.10.24

✎