QuickXML V1.12 源码【快速操作XML】【VB.Net】_quick-xml使用示例-优快云博客

本文介绍了VB.Net中一个名为QuickXML的类库，用于快速操作XML。该库包括加载XML文件、从字符串加载XML、创建XML文件、获取XML根元素、保存XML文件等功能，并提供错误代码检查。此外，还提供了XML元素的遍历、选择和创建等高级操作。

我的QuickXML代码，仿冒必究~哈哈

''' <summary> ''' 快速XML ''' </summary> ''' <remarks></remarks> Public Class QuickXML Private Shared XMLDoc As Xml.XmlDocument Private Errs As Integer Private XMLFile As String ''' <summary> ''' 实例化对象 ''' </summary> ''' <remarks></remarks> Sub New() XMLDoc = New Xml.XmlDocument End Sub ''' <summary> ''' 载入XML文件 ''' </summary> ''' <param name="FileName">XML文件地址</param> ''' <remarks></remarks> Sub Load(ByVal FileName As String) On Error GoTo GetErr Errs = 0 XMLDoc.Load(FileName) XMLFile = FileName Exit Sub GetErr: Errs = Err.Number End Sub ''' <summary> ''' 载入XML字符串 ''' </summary> ''' <param name="XMLString">XML字符串</param> ''' <remarks></remarks> Sub LoadXML(ByVal XMLString As String) On Error GoTo GetErr Errs = 0 XMLDoc.LoadXml(XMLString) Exit Sub GetErr: Errs = Err.Number End Sub ''' <summary> ''' 创建XML文件 ''' </summary> ''' <param name="RootName">XML根名称</param> ''' <remarks></remarks> Sub CreateXML(ByVal RootName As String) On Error GoTo GetErr Errs = 0 XMLDoc.LoadXml("<?xml version='1.0' encoding='utf-8' ?><" & RootName & "></" & RootName & ">") Exit Sub GetErr: Errs = Err.Number End Sub ''' <summary> ''' 根 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> ReadOnly Property Root() As XMLElement Get Return New XMLElement(XMLDoc.DocumentElement) End Get End Property ''' <summary> ''' 错误代码 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> ReadOnly Property ErrorCode() As Integer Get Return Errs End Get End Property ''' <summary> ''' 保存XML文件 ''' </summary> ''' <remarks></remarks> Sub Save() On Error GoTo GetErr Errs = 0 XMLDoc.Save(XMLFile) Exit Sub GetErr: Errs = Err.Number End Sub ''' <summary> ''' 保存XML文件 ''' </summary> ''' <param name="FileName">文件名称</param> ''' <remarks></remarks> Sub Save(ByVal FileName As String) On Error GoTo GetErr Errs = 0 XMLDoc.Save(FileName) XMLFile = FileName Exit Sub GetErr: Errs = Err.Number End Sub ''' <summary> ''' 选择方式 ''' </summary> ''' <remarks></remarks> Enum Method Left = -1 Include = 0 Right = 1 End Enum ''' <summary> ''' 获取XML文件字符串 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> ReadOnly Property GetString() As String Get Return XMLDoc.OuterXml End Get End Property ''' <summary> ''' XML元素 ''' </summary> ''' <remarks></remarks> Class XMLElement Private Elements As Xml.XmlElement Private Errs As Integer ''' <summary> ''' 错误代码 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> ReadOnly Property ErrorCode() As Integer Get Return Errs End Get End Property ''' <summary> ''' 实例化对象 ''' </summary>