Altova XMLSpy 2024 Professional Edition

Wird ersetzt durch AuthenticRange.CanPerformActionWith

 

AuthenticRange unterstützt nun alle Funktionalitäten der Elementeingabehilfen. Neben der Abfrage, welche Elemente eingefügt, angehängt usw. werden können, können Sie auch die Aktion selbst aufrufen. Nähere Informationen dazu finden Sie unter AuthenticRange.PerformAction.

 

// ----- javascript sample -----

// instead of:

// var arrElements = New Array();

// var objDocEditView = Application.ActiveDocument.DocEditView;

// var objStartElement = objDocEditView.CurrentSelection.Start;

// var objEndElement = objDocEditView.CurrentSelection.End;

// objDocEditView.GetAllowedElements(k_ActionInsertBefore, objStartElement, objEndElement, arrElements);

// use now:

var arrElements = New Array();

Application.ActiveDocument.AuthenticView.Selection.CanPerformActionWith (spyAuthenticInsertBefore, arrElements);

 

Deklaration: GetAllowedElements (nAction als SpyAuthenticElementActions, pStartElement als XMLData, pEndElement als XMLData, pElements als Variant)

 

Beschreibung

GetAllowedElements()gibt die zulässigen Elemente für die verschiedenen von  nActiondefinierten Aktionen zurück.

 

JavaScript-Beispiel:

 

 FunctionGetAllowed()

 {

         var objView = Application.ActiveDocument.DocEditView;

 

         var arrElements = NewArray(1);

 

         var objStart = objView.CurrentSelection.Start;

         var objEnd = objView.CurrentSelection.End;

 

         var strText;

         strText = "valid elements at current selection:\";

 

         For(var i = 1;i <= 4;i++)        {

                 objPlugIn.GetAllowedElements(i,objStart,objEnd,arrElements);

                 strText = strText + ListArray(arrElements) + "------------------\";

         }

 

         ReturnstrText;

 }

 

 FunctionListArray(arrIn)

 {

         var strText = "";

 

         If(TypeOf(arrIn) == "object")        {

                 For(var i = 0;i <= (arrIn.length - 1);i++)

                         strText = strText + arrIn[i] + "\";

         }

 

         ReturnstrText;

 }

 

VBScript-Beispiel:

 

 SubDisplayAllowed

         DimobjView

         SetobjView = Application.ActiveDocument.DocEditView

 

         DimarrElements()

 

         DimobjStart

         DimobjEnd

         SetobjStart = objView.CurrentSelection.Start

         SetobjEnd = objView.CurrentSelection.End

 

         DimstrText

         strText = "valid elements at current selection:" & chr(13) & chr(13)

 

         Dimi

 

         Fori = 1 To4

                 objView.GetAllowedElements i,objStart,objEnd,arrElements

                 strText = strText & ListArray(arrElements) & "---------------" & chr(13)

         Next

 

         msgbox strText

 EndSub

 

 FunctionListArray(arrIn)

         DimstrText

 

         IfIsArray(arrIn) Then

                 Dimi

 

                 Fori = 0 ToUBound(arrIn)

                         strText = strText & arrIn(i) & chr(13)

                 Next

         EndIf

 

         ListArray = strText

 EndFunction

 

 

 

 

© 2017-2023 Altova GmbH