'
Powered By Null AT 20070507
' HeTaoOS@Gmail.com
' http://hi.baidu.com/hetaoos
' 使用起来很简单,支持多级项目,级间使用'/'分割。
' 厄,Bug 还是有的,但对正常操作没有大的影响,
' 如果有什么大的 Bug 或改进建议,请联系我...
Imports System.Xml
Public Class Xml_Cls
Private XmlDoc As XmlDocument
Private XmlFile As String
Public ReadOnly Property XmlFileName() As String
Get
Return XmlFile
End Get
End Property
Public ReadOnly Property XmlText() As String
Get
Return XmlDoc.InnerXml
End Get
End Property
Sub New(ByVal FileName As String, Optional ByVal CreateNew As Boolean = True, Optional ByVal Root As String = "XML", Optional ByRef IsOK As
' HeTaoOS@Gmail.com
' http://hi.baidu.com/hetaoos
' 使用起来很简单,支持多级项目,级间使用'/'分割。
' 厄,Bug 还是有的,但对正常操作没有大的影响,
' 如果有什么大的 Bug 或改进建议,请联系我...
Imports System.Xml
Public Class Xml_Cls
Private XmlDoc As XmlDocument
Private XmlFile As String
Public ReadOnly Property XmlFileName() As String
Get
Return XmlFile
End Get
End Property
Public ReadOnly Property XmlText() As String
Get
Return XmlDoc.InnerXml
End Get
End Property
Sub New(ByVal FileName As String, Optional ByVal CreateNew As Boolean = True, Optional ByVal Root As String = "XML", Optional ByRef IsOK As