в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:13Z

1 версия

Новая страница

==Loading and Retrieving the Contents of an XML File==



<source lang="vb">

Sub ReadXMLDoc()
Dim xmldoc As MSXML2.DOMDocument50
Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
If xmldoc.Load("C:\yourFile.xml") Then
Debug.Print xmldoc.XML
Debug.Print xmldoc.Text
End If
End Sub
</source>

==Retrieving Information from Element Nodes==



<source lang="vb">

Sub IterateThruElements()
Dim xmldoc As MSXML2.DOMDocument50
Dim xmlNode As MSXML2.IXMLDOMNode
Dim xmlNodeList As MSXML2.IXMLDOMNodeList
Dim myNode As MSXML2.IXMLDOMNode
Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
xmldoc.Load ("C:\yourFile.xml")
Set xmlNodeList = xmldoc.getElementsByTagName("*")
For Each xmlNode In xmlNodeList
For Each myNode In xmlNode.childNodes
If myNode.nodeType = NODE_TEXT Then
Debug.Print xmlNode.nodeName & "=" & xmlNode.Text
End If
Next myNode
Next xmlNode
Set xmlDoc = Nothing
End Sub
</source>

==Retrieving Specific Information from Element Nodes==



<source lang="vb">

Sub SelectNodesByCriteria()
Dim xmldoc As MSXML2.DOMDocument50
Dim xmlNodeList As MSXML2.IXMLDOMNodeList
Dim myNode As MSXML2.IXMLDOMNode
Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
xmldoc.Load ("C:\yourFile.xml")
Set xmlNodeList = xmldoc.selectNodes("//Name")
If Not (xmlNodeList Is Nothing) Then
For Each myNode In xmlNodeList
Debug.Print myNode.Text
If myNode.Text = "old Text" Then
myNode.Text = "new Text"
xmldoc.Save "C:\newFile.xml"
End If
Next myNode
End If
Set xmlDoc = Nothing
End Sub
</source>

==Retrieving the First Matching Node==



<source lang="vb">

Sub SelectSingleNode()
Dim xmldoc As MSXML2.DOMDocument50
Dim xmlSingleNode As MSXML2.IXMLDOMNode

Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
xmldoc.Load ("C:\yourFile.xml")
Set xmlSingleNode = xmldoc.SelectSingleNode("//Name")
If xmlSingleNode Is Nothing Then
Debug.Print "No nodes selected."
Else
Debug.Print xmlSingleNode.Text
End If
Set xmlDoc = Nothing
End Sub
</source>

==Working with XML Document Nodes==



<source lang="vb">

Sub LearnAboutNodes()
Dim xmldoc As MSXML2.DOMDocument50
Dim xmlNode As MSXML2.IXMLDOMNode
Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
xmldoc.Load ("C:\yourFile.xml")
If xmldoc.hasChildNodes Then
Debug.Print "Number of child Nodes: " & xmldoc.childNodes.length
For Each xmlNode In xmldoc.childNodes
Debug.Print "Node name:" & xmlNode.nodeName
Debug.Print "Type:" & xmlNode.nodeTypeString & "(" & xmlNode.nodeType & ")"
Debug.Print "Text: " & xmlNode.Text
Next xmlNode
End If
Set xmlDoc = Nothing
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/XML/XML Data - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия