IDimSelection.Load

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    DimenObj: IMetabaseObject;
    Dimen: IDimInstance;
    Selection: IDimSelection;
    XMLDoc: IXMLDOMDocument;
    XMLName: String = "D:\Documents.xml";
    XMLElem: IXMLDOMElement;
Begin
    MB := MetabaseClass.Active;
    DimenObj := MB.ItemById("D_TO").Edit;
    Dimen := DimenObj.Open(Null) As IDimInstance;
    // Create an object containing dictionary selection
    Selection := Dimen.CreateSelection;
    // Work with XML file
    XMLDoc := New DOMDocument60.Create;
    XMLDoc.Load(XMLName);   
    XMLElem := XMLDoc.selectSingleNode("Root") As IXMLDOMElement;
    // Load selection from XML file
    Selection.Load(XMLElem);
    // Apply loaded selection schema
    Selection.ApplySelectionSchemaOnlyOnce := True;
    // Save dictionary
    DimenObj.Save;  
End Sub UserProc;