Authentic.GetAllowedElements

www.altova.com このトピックを印刷 前のページ 1つ上のレベル 次のページ

ホーム >  ユーザー レファレンス > オブジェクト > Authentic >

Authentic.GetAllowedElements

次も参照してください:

 

宣言: GetAllowedElements(nAction SPYAuthenticElementActions として 、 pStartElement XMLData として 、 pEndElement XMLData として、 pElements Variant として )

 

説明

GetAllowedElements() は nAction により指定されている異なるアクションのために許可されている要素を返します。

 

 

JavaScript サンプル:

 

 function GetAllowed()

 {

         var arrElements = new Array(1);

 

         var objStart = objPlugIn.CurrentSelection.Start;

         var objEnd = objPlugIn.CurrentSelection.End;

 

         var strText;

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

 

         for(var i = 0;i <= 4;i++)        {

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

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

         }

 

         return strText;

 }

 

 function ListArray(arrIn)

 {

         var strText = "";

 

         if(typeof(arrIn) == "object")        {

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

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

         }

 

         return strText;

 }

 

VBScript example:

 

 Sub DisplayAllowed

         dim arrElements()

 

         dim objStart

         dim objEnd

         set objStart = objPlugIn.CurrentSelection.Start

         set objEnd = objPlugIn.CurrentSelection.End

 

         dim strText

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

 

         dim i

 

         For i = 1 To 4

                 objView.GetAllowedElements i,objStart,objEnd,arrElements

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

         Next

 

         msgbox strText

 End Sub

 

 Function ListArray(arrIn)

         dim strText

 

         If IsArray(arrIn) Then

                 dim i

 

                 For i = 0 To UBound(arrIn)

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

                 Next

         End If

 

         ListArray = strText

 End Function

 


(C) 2019 Altova GmbH