Save(Element: IXMLDOMElement);
Save(Element: Prognoz.Platform.Interop.MsXml2.IXMLDOMElement);
Element. XML-элемент, в который выполняется сохранение таблицы стилей.
Метод Save сохраняет таблицу стилей в виде XML-кода.
Для загрузки таблицы стилей из XML-кода используйте метод IStyleSheet.Load.
Для выполнения примера в репозитории предполагается наличие таблицы стилей с идентификатором «STYLE_TB».
Добавьте ссылки на системные сборки: Drawing, Metabase.
Sub UserProc;
Var
mb: IMetabase;
styleSheet: IStyleSheet;
Doc: FreeThreadedDOMDocument60;
Element: IXmlDomElement;
Begin
// Получаем текущий репозиторий
mb := MetabaseClass.Active;
// Получаем таблицу стилей
styleSheet := mb.ItemById("STYLE_TB").Bind As IStyleSheet;
// Выгружаем таблицу стилей в XML-файл
Doc := New FreeThreadedDOMDocument60.Create;
Element := Doc.createElement("StyleSheet");
styleSheet.Save(Element);
Doc.appendChild(Element);
Doc.save("C:\StyleSheet.xml");
End Sub UserProc;
В результате выполнения примера таблица стилей «STYLE_TB» будет сохранена в файл «C:\StyleSheet.xml».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.MsXml2;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
styleSheet: IStyleSheet;
Doc: FreeThreadedDOMDocument60;
Element: IXmlDomElement;
Begin
// Получаем текущий репозиторий
mb := Params.Metabase;
// Получаем таблицу стилей
styleSheet := mb.ItemById["STYLE_TB"].Bind() As IStyleSheet;
// Выгружаем таблицу стилей в XML-файл
Doc := New FreeThreadedDOMDocument60.Create();
Element := Doc.createElement("StyleSheet");
styleSheet.Save(Element);
Doc.appendChild(Element);
Doc.save("C:\StyleSheet.xml");
End Sub;
См. также: