Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
doc = New XmlDocument()
If (Not System.IO.File.Exists("Filter.xml")) Then
doc.Load("UserFilter.xml")
Else
doc.Load("Filter.xml")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim root As XmlNode = doc.DocumentElement
For k As Integer = 0 To 2 Step 1
Dim xeFilter As XmlElement = doc.CreateElement("Filter")
Dim xeFilterName As XmlElement = doc.CreateElement("Name")
Dim xeColumnFilters As XmlElement = doc.CreateElement("ColumnFilters")
For j As Integer = 0 To 5 Step 1
Dim xeColumnFilter As XmlElement = doc.CreateElement("ColumnFilter")
Dim xaColumnName As XmlAttribute = doc.CreateAttribute("ColumnName")
Dim xaLogicalOperation As XmlAttribute = doc.CreateAttribute("LogicalOperation")
xaColumnName.InnerText = "CoumnName" + j.ToString()
xaLogicalOperation.InnerText = "LogicalOperation" + j.ToString()
xeColumnFilter.Attributes.Append(xaColumnName)
xeColumnFilter.Attributes.Append(xaLogicalOperation)
For i As Integer = 0 To 3 Step 1
Dim xeFilterCondition As XmlElement = doc.CreateElement("FilterCondition")
Dim xaComparisonOperator As XmlAttribute = doc.CreateAttribute("ComparisonOperator")
Dim xaCompareValue As XmlAttribute = doc.CreateAttribute("CompareValue")
xaComparisonOperator.InnerText = "ComparisonOperator" + i.ToString()
xaCompareValue.InnerText = "CompareValue" + i.ToString()
xeFilterCondition.Attributes.Append(xaComparisonOperator)
xeFilterCondition.Attributes.Append(xaCompareValue)
xeColumnFilter.AppendChild(xeFilterCondition)
Next
xeColumnFilters.AppendChild(xeColumnFilter)
Next
xeFilter.AppendChild(xeFilterName)
xeFilterName.InnerText = "woojja" + k.ToString()
xeFilter.AppendChild(xeColumnFilters)
root.AppendChild(xeFilter)
Next
doc.Save("Filter.xml")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim root As XmlNode = doc.DocumentElement
Dim xmlColumnFilterList As XmlNodeList = root.SelectNodes("Filter[Name='woojja1']")
xmlColumnFilterList = root.SelectNodes("Filter[Name='woojja1']/ColumnFilters")
xmlColumnFilterList = root.SelectNodes("Filter[Name='woojja1']/ColumnFilters/ColumnFilter")
For Each columnFilterNode As XmlNode In xmlColumnFilterList
Dim strColumnName As String = columnFilterNode.Attributes("ColumnName").Value
Dim strLogicalOperation As String = columnFilterNode.Attributes("LogicalOperation").Value
Dim filterConditionList As XmlNodeList = columnFilterNode.SelectNodes("FilterCondition")
For Each filterConditionNode As XmlNode In filterConditionList
Dim strComparisonOperator As String = filterConditionNode.Attributes("ComparisonOperator").Value
Dim strCompareValue As String = filterConditionNode.Attributes("CompareValue").Value
Next
Next
End Sub
|