求文本定位函数.

xingzhihao

如何在下面字符串中 定位 <Success>后面的参数0  ????

<?xml version="1.0" encoding="gb2312" ?><SendSmsReport2>
  <Summary>
    <RetCode>-1</RetCode>
    <SubmitID>-1</SubmitID>
    <Success>0</Success>
    <Fail>0</Fail>
    <SmsRemain>0</SmsRemain>
    <ErrPhones />
  </Summary>
</SendSmsReport2>

请指点12,谢谢

fan0217

使用下列代码需要引用Microsoft  xml。
假设xml文件的路径是C:\Test.xml

1. Sub Test()
   
2. Dim xmlSource As String
   
3. Dim doc  As New MSXML2.DOMDocument
   
4. Dim xmlNode As MSXML2.IXMLDOMNode
   
5.     xmlSource =  "C:\Test.xml"
   
6.     doc.Load xmlSource
   
7.     Set xmlNode = doc.selectSingleNode("SendSmsReport2/Summary/Success")
   
8.     Debug.Print xmlNode.Text
   
9. End Sub

复制代码

:

[ 本帖最后由 fan0217 于 2007-10-14 15:47 编辑 ]

fan0217

如果xml来自于字符串，请使用以下代码。

1. Sub Test()
   
2. Dim xmlString As String
   
3. Dim doc  As New MSXML2.DOMDocument
   
4. Dim xmlNode As MSXML2.IXMLDOMNode
   
5.     xmlString = "<?xml version='1.0' encoding='gb2312' ?><SendSmsReport2><Summary><RetCode>-1</RetCode><SubmitID>-1</SubmitID><Success>0</Success><Fail>0</Fail><SmsRemain>0</SmsRemain><ErrPhones /></Summary></SendSmsReport2>"
   
6.     doc.loadXML xmlString
   
7.     Set xmlNode = doc.selectSingleNode("SendSmsReport2/Summary/Success")
   
8.     Debug.Print xmlNode.Text
   
9. End Sub

复制代码

[ 本帖最后由 fan0217 于 2007-10-14 15:53 编辑 ]

xingzhihao

高! :lol :lol :lol