KB236185: How to Iterate Through Elements of an Attribute Qualification Filter Using Intelligence Server SDK

The following snippet of code will iterate through all of the elements within an attribute qualification filter (based on desc) within a report:

High Level Steps:
 

• Iterate through IDSSFilter.Expression Items
• Seek out (ReportDefinition.IDSSFilter.Expression)
• Search for the EnumDSSNodeType.DssNodeConstant
• The value will be represented as text IDSSNode.Item(x).text

    Dim filter As IDSSFilter
    Dim oElements As IDSSElements
    Dim thisNode As IDSSNode
    Dim shortcutObject As IDSSShortcutObject
    Dim shortcutObject2 As IDSSShortcut
    Dim filterShortcut As IDSSFilter
    
    Set filter = oReportDef.filter
    text = text & "Filter Name: " & filter.Info.Name & vbCrLf
    text = text & "Filter Type: " & filter.FilterType & vbCrLf
    text = text & "Filter Text: " & filter.Expression.text & vbCrLf
    text = text & "Filter Expression Root Count: " & filter.Expression.Root.Count & vbCrLf
    
    For i = 1 To filter.Expression.Root.Count
    
        text = text & "Filter Expression Type: " & filter.Expression.Root.Item(i).Type & vbCrLf
        If (filter.Expression.Root.Item(i).Type = EnumDSSNodeType.DssNodeShortcut) Then
            text = text & "Shortcut Name: " & filter.Expression.Root.Item(i).Name & vbCrLf
            
        End If
        If (filter.Expression.Root.Item(i).Type = EnumDSSNodeType.DssNodeShortcut) Then
            text = text & "Shortcut Count: " & filter.Expression.Root.Item(i).Count & vbCrLf
            Set shortcutObject2 = filter.Expression.Root.Item(i)
            text = text & "shortcut name or id: " & shortcutObject2.TargetName & " or id: " & shortcutObject2.TargetID & vbCrLf
            
            Set filterShortcut = oObjSource.FindObject(shortcutObject2.TargetID, DssTypeFilter)
            text = text & "filtername: " & filterShortcut.Info.Name & vbCrLf
        End If
                
        
        If (filter.Expression.Root.Item(i).Type = EnumDSSNodeType.DssNodeOperator) Then
            text = text & "Elements Count: " & filter.Expression.Root.Item(i).Count & vbCrLf
            text = text & "Elements Name: " & filter.Expression.Root.Item(i).Name & vbCrLf
            text = text & "Expression Type: " & filter.Expression.Root.Item(i).ExpressionType & vbCrLf
            Set thisNode = filter.Expression.Root.Item(i)
            For k = 1 To thisNode.Count
                text = text & "thisNode Type: " & thisNode.Item(k).Type & vbCrLf
                If (thisNode.Item(k).Type = EnumDSSNodeType.DssNodeConstant) Then
                    text = text & "constant name: " & thisNode.Item(k).Name & vbCrLf
                    text = text & "constant: " & thisNode.Item(k).text & vbCrLf
                End If
                If (thisNode.Item(k).Type = EnumDSSNodeType.DssNodeShortcut) Then
                    text = text & "shortcut name: " & thisNode.Item(k).Name & vbCrLf
                    text = text & "shhortcut: " & thisNode.Item(k).text & vbCrLf
                End If
            Next
        End If
        If (filter.Expression.Root.Item(i).Type = EnumDSSNodeType.DssNodeElementsObject) Then
            text = text & "DSSNodeElementsObject!" & vbCrLf
            text = text & "Child Count: " & filter.Expression.Root.Item(i).Count & vbCrLf
            Set oElements = filter.Expression.Root.Item(i).Special.Elements
            text = text & "Elements Count: " & oElements.Count & vbCrLf
            
            For j = 1 To oElements.Count
                text = text & "Element[" & j & "]: " & oElements.Item(j).Value & vbCrLf
                
            Next
        End If
    Next

• Can program, compile (e.g. javac, jikes, etc.), and execute Java programs
• Can configure environment variables (e.g. JAR files, property files, etc.)
• Have all the necessary tools to create Java applications (JDK, IDE, etc.)
• Has access to the Strategy SDK documentation.
• Has read the customization warning at the bottom of this document

PREREQUISITES: 
For the sample to work, the Strategy Web JAR files must be accessible by the Java Runtime Environment. The Strategy Web JAR files can be found under:

• Strategy Web Universal (JSP): {web_root}/WEB-INF/lib directory.
• Strategy Web (.NET): Program Files\Common Files\Strategy directory.

Note: More elaborate programs will require additional library files and are out of the scope of this document.
ADDITIONAL INFORMATION:
The Strategy SDK allows you to customize the standard Strategy Web interface, and extend and integrate the Strategy business intelligence functionality into other applications. However, before changing the way Strategy Web products look or behave, it is helpful to understand how the application is built. For more information regarding the Strategy Web architecture or the process of customizing Strategy Web, please refer to Strategy Developer Zone (https://developer.microstrategy.com).
To access the Strategy Developer Zone, you must have access to the Strategy Knowledge Base, you must have purchased the Strategy SDK, and you must be current on your Strategy maintenance agreement. If you are a US-based business and believe that you satisfy all three of these conditions but you do not have access to the Strategy Developer Zone, please contact Strategy Technical Support at support@microstrategy.com or at (703) 848-8700. If you are an international business, please contact Strategy Technical Support at the appropriate email address or phone number found at https://www.microstrategy.com/en/support/contact-support.
CUSTOMIZATION WARNING:
This customization is provided as a convenience to Strategy users and is only directly applicable to the version stated. While this code may apply to other releases directly, Strategy Technical Support makes no guarantees that the code provided will apply to any future or previous builds. In the event of a code change in future builds, Strategy Technical Support makes no guarantee that an updated version of this particular customization will be provided. In the event of a code change in future builds, Strategy may not be able to provide additional code on this matter even though this customization is provided at this time for this specific build. For enhancements to this customization or to incorporate similar functionality into other versions, contact your Account Executive to inquire about Strategy Consulting assistance.