VB¶ÁдXMLÔõô·ÀÖ¹ÓÐÂÒÂë?

Dim XML As DOMDocument 'xml ¶ÔÏó
Dim XmLRoot As IXMLDOMElement 'xml¸ù½Úµã
Dim I As Integer
Set XML = New DOMDocument
If XML.Load("c:\TDDOWNLOAD\200901.XML") = False Then
  MsgBox "´ò¿ªxml³ö´í£¡"
  Exit Sub
End If
Set XmLRoot = XML.documentElement '½¨Á¢¸ù½Úµã¶ÔÏó
For I = 1 To XmLRoot.childNodes.length
  MsgBox XmLRoot.childNodes.Item(I).nodeName  '»ñµÃËùÓиù½ÚµãÏÂËùÓÐ×Ó½ÚµãµÄ½ÚµãÃû
  MsgBox XmLRoot.childNodes.Item(I).Text  '»ñµÃËùÓиù½ÚµãÏÂËùÓÐ×Ó½ÚµãËùº¬µÄÎı¾ÄÚÈÝ
Next
Set XML = Nothing

ʹÓÃÉÏÃæµÄ³ÌÐò¶Á,ÖÐÎÄ»á±ä³ÉÂÒÂë,»¹ÐèÒªÉèÖñàÂ뷽ʽÂð?Çó½Ì

---

¼ÓÒ»¾ä XML.validateOnParse = True ÊÔÊÔ

---

ÒýÓÃ

¼ÓÒ»¾ä XML.validateOnParse = True ÊÔÊÔ

ûÓÐЧ¹û

---

---

End_rbody_63509885//-->
¸Ã»Ø¸´ÓÚ2010-02-23 16:30:37±»¹ÜÀíԱɾ³ý



¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP








Tiger_Zhao
(VBÀÏÄñ)

µÈ¡¡¼¶£º
13
4
4



#4Â¥ µÃ·Ö£º10»Ø¸´ÓÚ£º2010-02-23 09:14:17


xml Îļþ¿ªÍ·ÒªÖ¸¶¨±àÂë
XML code:
<?xml version="1.0" encoding="gb2312"?>

---

---

End_rbody_63512553//-->
¸Ã»Ø¸´ÓÚ2010-02-23 16:30:18±»¹ÜÀíԱɾ³ý



¶Ô