XML

[Niko]

Добрый день.
Подскажите плиз ак мне достучаться до полей name, hp, ...?

Код: Выделить всё

  <?xml version="1.0" encoding="windows-1251" ?>
- <online>
  <user name="Niko" hp="25" hp_max="312" endurance="181" endurance_max="211"/>
  </online>

Код: Выделить всё

Код:
Dim x As New DOMDocument
x.Load "test.xml"
Debug.Print x.selectSingleNode("online/user

- дальше незнаю
---
смотрел тут http://bbs.vbstreets.ru/viewtopic.php?t=30530 но вроде не то.

[tyomitch]

Код: Выделить всё

Debug.Print x.selectSingleNode("online/user").Attributes.getNamedItem("name").Text


[Niko]

спасибо.

[Niko]

Еще вопрос.
Как мне в цикле просмотреть все записи?

Код: Выделить всё

  <?xml version="1.0" encoding="windows-1251" ?>
- <online>
  <user name="Niko" hp="25" hp_max="312" endurance="181" endurance_max="211"/>
  <user name="Buga" hp="439" hp_max="439" endurance="601" endurance_max="601"/>
  </online>

смотрел тут. http://bbs.vbstreets.ru/viewtopic.php?t ... omdocument

Код: Выделить всё

dim xml as new msxml2.domdocument
dim rst as dao.recordset

public sub importSingleNode(node as msxml2.ixmldomnode)
with rst
.addnew
.fields("name")=n.attributes.getNamedItem("name")
.fields("qty")=n.attributes.getNamedItem("qty")
.update
end with
end sub

public sub importXML(node as msxml2.ixmldomnode)
dim x msxml2.ixmldomnode
if not (node is xml.documenElement) then importSingleNode(node)
for each x in node.childNodes
importSingleNode(x)
if x.childNodes.length>0 then importXML(x)
next x
end sub

public sub main()
xml.async=false
xml.load "myxml.xml"
dim db as dao.database
set db=opendatabase("mybase.mdb")
set rst=db.tabledefs("table1").openrecordset
importXML(xml.documentElement)
rst.close
db.close
end sub

В этом примере for each x in node.childNodes вроде то что надо, но непонятно
--------
сорри уже понял.

Код: Выделить всё

For Each x In XMLDoc.selectNodes("online/user")
    sValue1 = x.Attributes.getNamedItem("hp").Text
Next x