lotus怎样读去XML的值

[connor_zheng]

例如,我要读去下面XML中的09042900000001、要玮、1976-07-18、中国等等
<?xml version="1.0" encoding="GBK" ?>
- <Root>
- <Record>
<PreNumber>09042900000001</PreNumber>
<CaseType>30</CaseType>
<ApplyTime>2009-04-29 16:33:56</ApplyTime>
<CaseMoney />
- <ClientInfo>
- <ClientRecord>
<ClientType>1</ClientType>
<RealName>要玮</RealName>
<IDCard>610303197607183810</IDCard>
<Sex>1</Sex>
<Birthday>1976-07-18</Birthday>
<Nationality>中国</Nationality>
<Nation>汉</Nation>
<PostalCode />
<Tel />

</ClientRecord>
- <ClientRecord>
<ClientType>5</ClientType>
<RealName>许波</RealName>
<IDCard>342130197512060011</IDCard>
<Sex>1</Sex>
<Birthday>1975-12-06</Birthday>
<Nationality>中国</Nationality>
<Nation />
<PostalCode />
<Tel>13510908989</Tel>
</ClientRecord>
- <ClientRecord>
<ClientType>2</ClientType>
<RealName>2222</RealName>
<Charge />
<PostalCode>0</PostalCode>
<Tel />
<RegAddr />
<LinkAddr />
</ClientRecord>
- <ClientRecord>
<ClientType>2</ClientType>
<RealName>333</RealName>
<Charge />
<PostalCode>0</PostalCode>
<Tel />
<RegAddr />
<LinkAddr />
</ClientRecord>
</ClientInfo>
</Record>
</Root>
谁能给个列子，谢谢

[guo2478858]

QQ67955000 我发你一个

[zhengxiaoshu]

Dim nodeList1 As NotesDOMNodeList
Set nodeList1 = domnamet.GetElementsByTagName(eleName)
Dim domNode2 As NotesDOMElementNode
Set domNode2 = nodeList1.GetItem(num)

Dim domNode As NotesDOMNode
Set domNode = domNode2.FirstChild

getElementProperty=domNode.NodeValue