DOM对象怎么读取xml的规范化后的属性值[已解决]

czjt1234

具体报酬：10元人民币
支付方式：支付宝，微信均可
联系方式：QQ20147578
有效期限：XXXX年XX月XX日之前。
需求描述：
（1）系统环境（XP/Win2003/Vista/Win7，中文版/英文版，专业版/家庭版/精简版，等）
（2）xsd的数据类型normalizedString和token等会对数据进行规范化处理，比如去掉头尾的空格或合并空格等但现在用DOM对象实现不了，读取的还是原始数据，代码如下，分别是1.xml、1.xsd、1.vbs，请问要怎么修改
（3）有效期到月底

<?xml version="1.0" encoding="GB2312"?>
<n xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
   xsi:schemaLocation="1.xsd">

  <string a="  s
s              "/>
  <normalizedString a="  n
n              "/>
  <token a="  t
t              "/>

</n>
复制代码

<?xml version="1.0" encoding="GB2312"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">

  <xs:element name="n">
    <xs:complexType>
      <xs:all>

        <xs:element name="string">
          <xs:complexType>
            <xs:simpleContent>
              <xs:extension base="xs:string">
                <xs:attribute name="a" type="xs:string"/>
              </xs:extension>
            </xs:simpleContent>
          </xs:complexType>
        </xs:element>

        <xs:element name="normalizedString">
          <xs:complexType>
            <xs:simpleContent>
              <xs:extension base="xs:normalizedString">
                <xs:attribute name="a" type="xs:normalizedString"/>
              </xs:extension>
            </xs:simpleContent>
          </xs:complexType>
        </xs:element>

        <xs:element name="token">
          <xs:complexType>
            <xs:simpleContent>
              <xs:extension base="xs:token">
                <xs:attribute name="a" type="xs:token"/>
              </xs:extension>
            </xs:simpleContent>
          </xs:complexType>
        </xs:element>


      </xs:all>
    </xs:complexType>
  </xs:element>

</xs:schema>
复制代码

Option Explicit
Dim oDOMDocument, oXSD, oXMLDOMElement, s

Set oXSD = CreateObject("Msxml2.XMLSchemaCache.6.0")
oXSD.add "", "1.xsd"

Set oDOMDocument = CreateObject("Msxml2.DOMDocument.6.0")
oDOMDocument.setProperty "NormalizeAttributeValues", "True"
oDOMDocument.schemas = oXSD
oDOMDocument.load "1.xml"
If oDOMDocument.parseError.errorCode <> 0 Then    '如果加载xml出错
    MsgBox oDOMDocument.parseError.reason & vbLf & _
           "第 " & oDOMDocument.parseError.line & " 行"
    WScript.Quit()
End If
MsgBox oDOMDocument.xml
Set oXMLDOMElement = oDOMDocument.documentElement  '根节点

s = oXMLDOMElement.SelectNodes("string")(0).getAttribute("a")
MsgBox s & vbLf & Len(s)
s = oXMLDOMElement.SelectNodes("normalizedString")(0).getAttribute("a")
MsgBox s & vbLf & Len(s)
s = oXMLDOMElement.SelectNodes("token")(0).getAttribute("a")
MsgBox s & vbLf & Len(s)
复制代码

规范化属性值10元
要是能规范化元素的文本，另外10元