Search Example

  1Private Sub Search_Program(dbName As String)
  2    ' Get the Database
  3    Dim myPISystems As New PISystems()
  4    Dim myPISystem As PISystem = myPISystems.DefaultPISystem
  5    If myPISystem Is Nothing Then
  6        Throw New InvalidOperationException("Default PISystem was not found.")
  7    End If
  8    Dim myDB As AFDatabase = myPISystem.Databases(dbName)
  9    If myDB Is Nothing Then
 10        Throw New InvalidOperationException("Database was not found.")
 11    End If
 12
 13    ' Perform several searches
 14    FindTanksByName(myDB, "Tank*")
 15    FindTanksByTemplate(myDB, "Tank")
 16    FindTanksByLocation(myDB, "Texas")
 17    FindTanksAboveLevel(myDB, 50)
 18    FindTankLocations(myDB, "TankAdvanced")
 19End Sub
 20
 21Private Shared Sub FindTanksByName(database As AFDatabase, elementNameFilter As String)
 22    Console.WriteLine("Find Tanks by Name: {0}", elementNameFilter)
 23
 24    ' Default search is as an element name string mask. 
 25    Dim querystring As String = String.Format("{0}", elementNameFilter)
 26    Using elementquery As New AFElementSearch(database, "ElementSearch", querystring)
 27        elementquery.CacheTimeout = TimeSpan.FromMinutes(10)
 28
 29        For Each element As AFElement In elementquery.FindObjects()
 30            Console.WriteLine("Element: {0}, Template: {1}, Categories: {2}",
 31                              element.Name, element.Template.Name, element.CategoriesString)
 32        Next
 33    End Using
 34    Console.WriteLine()
 35End Sub
 36
 37Private Shared Sub FindTanksByTemplate(database As AFDatabase, templateName As String)
 38    Console.WriteLine("Find Tanks by Template: {0}", templateName)
 39
 40    Dim countderived As Integer = 0
 41    Using elementquery As New AFElementSearch(database, "TemplateSearch", String.Format("Template:""{0}""", templateName))
 42        elementquery.CacheTimeout = TimeSpan.FromMinutes(10)
 43
 44        Dim templatefilter As New AFElementSearch(database, "DerivedTemplates", "TemplateName:""TankAdvanced""")
 45        For Each element As AFElement In elementquery.FindObjects()
 46            Console.WriteLine("Element: {0}, Template: {1}", element.Name, element.Template.Name)
 47            If templatefilter.IsMatch(element) Then
 48                countderived += 1
 49            End If
 50        Next
 51    End Using
 52
 53    Console.WriteLine("   Found {0} derived templates", countderived)
 54    Console.WriteLine()
 55End Sub
 56
 57Private Shared Sub FindTanksByLocation(database As AFDatabase, substationLocation As String)
 58    Console.WriteLine("Find Tanks by Location: {0}", substationLocation)
 59
 60    Dim templateName As String = "Tank"
 61    Dim attributeName As String = "Location"
 62    Using elementquery As New AFElementSearch(database, "AttributeValueEQSearch",
 63                String.Format("template:""{0}"" ""|{1}"":""{2}""", templateName, attributeName, substationLocation))
 64        elementquery.CacheTimeout = TimeSpan.FromMinutes(10)
 65
 66        Dim countNames As Integer = 0
 67        For Each element As AFElement In elementquery.FindObjects()
 68            countNames += 1
 69            If countNames = 0 Then
 70                Console.Write(", {0}", element.Name)
 71            Else
 72                Console.Write(element.Name)
 73            End If
 74        Next
 75    End Using
 76
 77    Console.WriteLine(vbLf)
 78End Sub
 79
 80Private Shared Sub FindTanksAboveLevel(database As AFDatabase, val As Double)
 81    Console.WriteLine("Find Tanks above Level: {0}", val)
 82
 83    Dim templateName As String = "Tank"
 84    Dim attributeName As String = "Level"
 85    Dim elementquery As New AFElementSearch(database, "AttributeValueGTSearch",
 86                String.Format("template:""{0}"" ""|{1}"":>{2}", templateName, attributeName, val))
 87    elementquery.CacheTimeout = TimeSpan.FromMinutes(10)
 88
 89    Dim countNames As Integer = 0
 90    For Each element As AFElement In elementquery.FindObjects()
 91        countNames += 1
 92        If countNames = 0 Then
 93            Console.Write(", {0}", element.Name)
 94        Else
 95            Console.Write(element.Name)
 96        End If
 97    Next
 98
 99    Console.WriteLine(vbLf)
100End Sub
101
102Private Shared Sub FindTankLocations(database As AFDatabase, templateName As String)
103    Console.WriteLine("Find Tank Locations: {0}", templateName)
104
105    Dim countAttrs As Integer = 0
106    Using attrquery As New AFAttributeSearch(database, "AttributeLocationSearch",
107                String.Format("Element:{{Template:""{0}"" Root:NorthPlant AllDescendants:true}} Category:Location", templateName))
108        attrquery.CacheTimeout = TimeSpan.FromMinutes(10)
109
110        For Each attr As AFAttribute In attrquery.FindObjects()
111            countAttrs += 1
112            If countAttrs = 0 Then
113                Console.Write(", {0}", attr.GetValue())
114            Else
115                Console.Write(attr.GetValue())
116            End If
117        Next
118    End Using
119
120    Console.WriteLine("Found {0} attributes.", countAttrs)
121    Console.WriteLine()
122End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.