Ò»¸öXML¶ÁдÀà
ÄܶÁдÈκÎXMLÅäÖÃÎļþ£¬ÄÜʵÏÖÓû§²ãÃæµÄ¼Ó½âÃÜ£¬ÒÔÏ´úÂëÖеÄB64Eº¯ÊýΪ¼ÓÃܺ¯Êý£¬B64DΪ½âÃܺ¯Êý£¬¿ÉÒÔ×Ô¼º±àд
Éú³ÉµÄXML¸ù½ÚµãΪZBS£¬¿ÉÒÔÌæ»»ÎªÆäËüÓÐÒâÒåµÄ½ÚµãÃû³Æ
Option Explicit
Public xmlDoc As DOMDocument
Public aNode As IXMLDOMElement 'µ±Ç°¼¤»îNode
Public xmlFilePath As String, ReadOnly As Boolean '±£´æÂ·¾¶,Ö»¶ÁÊôÐÔ
Private sPassWd As String, sVer As Single
Private sChanged As Boolean
Public Property Get Changed() As Boolean 'ÅжÏÊÇ·ñÐÞ¸Ä
Changed = sChanged
End Property
Public Property Let Changed(sValue As Boolean) 'ÊÖ¹¤¸Ä¶¯ºóÒªÉèÖÃÐ޸ıêÖ¾
sChanged = sValue
End Property
Public Property Let PassWd(ByVal sValue As String)
If sValue <> "" Then sValue = mG.B64E(sValue, , "32rv415")
If sValue = sPassWd Then Exit Property
Dim ddd As IXMLDOMNode, ddd1 As IXMLDOMNode, ddd2 As IXMLDOMAttribute, ddd3 As Boolean, ddd4 As String
For Each ddd In xmlDoc.selectNodes("//*")
Set ddd2 = ddd.Attributes.getNamedItem("Encode")
If ddd2 Is Nothing Then
ddd3 = True
Else
ddd3 = CBool(ddd2.Text)
End If
If ddd3 Then 'ÐèÒª¼Ó½âÃÜ
For Each ddd1 In ddd.childNodes
If ddd1.nodeType = 3 Then
ddd4 = ddd1.Text
If sPassWd &
Ïà¹ØÎĵµ£º
XmlDocument doc = new XmlDocument();
XmlDeclaration dec = doc.CreateXmlDeclaration("1.0", "GB2312", null);
doc.AppendChild(dec);
//´´½¨Ò»¸ö¸ù½Úµã£¨Ò»¼¶£©
XmlElement root = doc.CreateElement("First");
doc.AppendChild(root);
//´´½¨½Úµã£ ......
1£©DOM£¨JAXP Crimson½âÎöÆ÷£©
DOMÊÇÓÃÓëÆ½Ì¨ºÍÓïÑÔÎ޹صķ½Ê½±íʾXMLÎĵµµÄ¹Ù·½W3C±ê×¼¡£DOMÊÇÒÔ²ã´Î½á¹¹×éÖ¯µÄ½Úµã»òÐÅϢƬ¶ÏµÄ¼¯ºÏ¡£Õâ¸ö²ã´Î½á¹¹ÔÊÐí¿ª·¢ÈËÔ±ÔÚÊ÷ÖÐѰÕÒ
ÌØ¶¨ÐÅÏ¢¡£·ÖÎö¸Ã½á¹¹Í¨³£ÐèÒª¼ÓÔØÕû¸öÎĵµºÍ¹¹Ôì²ã´Î½á¹¹£¬È»ºó²ÅÄÜ×öÈκι¤×÷¡£ÓÉÓÚËüÊÇ»ùÓÚÐÅÏ¢²ã´ÎµÄ£¬Òò¶øDOM±» ......
1. ½éÉÜ
1£©DOM(JAXP Crimson½âÎöÆ÷)
DOMÊÇÓÃÓëÆ½Ì¨ºÍÓïÑÔÎ޹صķ½Ê½±íʾXMLÎĵµµÄ¹Ù·½W3C±ê×¼¡£DOMÊÇÒÔ²ã´Î½á¹¹×éÖ¯µÄ½Úµã»òÐÅϢƬ¶ÏµÄ¼¯ºÏ¡£Õâ¸ö²ã´Î½á¹¹ÔÊÐí¿ª·¢ÈËÔ±ÔÚÊ÷ÖÐѰÕÒÌØ¶¨ÐÅÏ¢¡£·ÖÎö¸Ã½á¹¹Í¨³£ÐèÒª¼ÓÔØÕû¸öÎĵµºÍ¹¹Ôì²ã´Î½á¹¹£¬È»ºó²ÅÄÜ×öÈκι¤×÷¡£ÓÉÓÚ ......