44 lines
1.4 KiB
VB.net
44 lines
1.4 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class XmlData
|
|
|
|
<DebuggerStepThrough>
|
|
Public Shared Function GetElementAttribute(pElement As XElement, pName As String) As String
|
|
Try
|
|
Dim oAttribute As XAttribute = pElement.Attribute(pName)
|
|
Return oAttribute?.Value
|
|
|
|
Catch ex As Exception
|
|
Return Nothing
|
|
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function GetElementsFromElement(pElement As XContainer, pElementName As String) As List(Of XElement)
|
|
Return pElement.Descendants(pElementName).
|
|
Elements().
|
|
ToList()
|
|
End Function
|
|
|
|
Public Shared Function GetElementsFromElement(pElement As XContainer, pElementName As String, pNamespace As XNamespace) As List(Of XElement)
|
|
Return pElement.Descendants(pNamespace + pElementName).
|
|
Elements().
|
|
ToList()
|
|
End Function
|
|
|
|
Public Shared Function GetElement(pContainer As XContainer, pElementName As String, pNamespace As XNamespace) As XElement
|
|
Return pContainer.Descendants(pNamespace + pElementName).
|
|
FirstOrDefault()
|
|
End Function
|
|
|
|
Public Shared Function GetElement(pContainer As XContainer, pElementName As String) As XElement
|
|
Return pContainer.Descendants(pElementName).
|
|
FirstOrDefault()
|
|
End Function
|
|
|
|
Public Shared Function GetElementValue(pElement As XElement) As String
|
|
Return pElement.Value
|
|
End Function
|
|
|
|
End Class
|