Sub LoadSetting()Sub LoadSetting(ByVal FilePath AsString) Dim Reader As XmlTextReader Try Reader =New XmlTextReader(FilePath) Reader.WhitespaceHandling = WhitespaceHandling.None '忽略所用Whitespace Me.Clear() '清除现有所有数据 Catch ex As Exception MsgBox("找不到XML文件"+ ex.ToString) Exit Sub EndTry Try While Reader.Read If Reader.Name ="add"Then Dim Key, Value AsString Reader.MoveToAttribute("key") Key = Reader.Value Reader.MoveToAttribute("value") Value = Reader.Value Me.Set(Key, Value) Reader.MoveToElement() EndIf EndWhile Catch ex As Exception MsgBox("XML文件格式错误"+ ex.ToString) Exit Sub Finally Reader.Close() EndTry End Sub
3.XML配置文件的写入
Sub LoadSetting()Sub LoadSetting(ByVal FilePath AsString) Dim Reader As XmlTextReader Try Reader =New XmlTextReader(FilePath) Reader.WhitespaceHandling = WhitespaceHandling.None '忽略所用Whitespace Me.Clear() '清除现有所有数据 Catch ex As Exception MsgBox("找不到XML文件"+ ex.ToString) Exit Sub EndTry Try While Reader.Read If Reader.Name ="add"Then Dim Key, Value AsString Reader.MoveToAttribute("key") Key = Reader.Value Reader.MoveToAttribute("value") Value = Reader.Value Me.Set(Key, Value) Reader.MoveToElement() EndIf EndWhile Catch ex As Exception MsgBox("XML文件格式错误"+ ex.ToString) Exit Sub Finally Reader.Close() EndTry End Sub
Sub LoadSetting()Sub LoadSetting(ByVal FilePath AsString) Dim Reader As XmlTextReader Try Reader =New XmlTextReader(FilePath) Reader.WhitespaceHandling = WhitespaceHandling.None '忽略所用Whitespace Me.Clear() '清除现有所有数据 Catch ex As Exception MsgBox("找不到XML文件"+ ex.ToString) Exit Sub EndTry Try While Reader.Read If Reader.Name ="add"Then Dim Key, Value AsString Reader.MoveToAttribute("key") Key = Reader.Value Reader.MoveToAttribute("value") Value = Reader.Value Me.Set(Key, Value) Reader.MoveToElement() EndIf EndWhile Catch ex As Exception MsgBox("XML文件格式错误"+ ex.ToString) Exit Sub Finally Reader.Close() EndTry End Sub
3.XML配置文件的写入
Sub LoadSetting()Sub LoadSetting(ByVal FilePath AsString) Dim Reader As XmlTextReader Try Reader =New XmlTextReader(FilePath) Reader.WhitespaceHandling = WhitespaceHandling.None '忽略所用Whitespace Me.Clear() '清除现有所有数据 Catch ex As Exception MsgBox("找不到XML文件"+ ex.ToString) Exit Sub EndTry Try While Reader.Read If Reader.Name ="add"Then Dim Key, Value AsString Reader.MoveToAttribute("key") Key = Reader.Value Reader.MoveToAttribute("value") Value = Reader.Value Me.Set(Key, Value) Reader.MoveToElement() EndIf EndWhile Catch ex As Exception MsgBox("XML文件格式错误"+ ex.ToString) Exit Sub Finally Reader.Close() EndTry End Sub
3.XML配置文件的写入
Sub SaveSetting()SubSaveSetting(ByVal FilePath AsString) Dim Writer AsNew XmlTextWriter(FilePath, System.Text.Encoding.Default) Writer.WriteStartDocument() '写入XML头 Dim I AsInteger Writer.WriteStartElement("configuration") Writer.WriteStartElement("appSettings") For I =0To Me.Count -1 Writer.WriteStartElement("add") Writer.WriteStartAttribute("key", String.Empty) Writer.WriteRaw(Me.GetKey(I)) Writer.WriteEndAttribute() Writer.WriteStartAttribute("value", String.Empty) Writer.WriteRaw(Me.Item(I)) Writer.WriteEndAttribute() Writer.WriteEndElement() Next Writer.WriteEndElement() Writer.WriteEndElement() Writer.Flush() Writer.Close() End Sub