程序代码：

<?xml version="1.0" encoding="UTF-8"?>
<root>
    <element folder="activity">
        <rec x="0" y="0">
            <sprite x="1,2"/>
            <sprite x="20"/>
            <sprite key="allActivity" t="rec" x="30">
                <sprite key="ever1" n="everyActivity" t="rec" x="2,4,6,8">
                    <sprite key="boxty" n="boxty" x="3"/>
                    <sprite key="iconActivity" n="iconActivity" statelist="0,1,2,3" t="si" x="3"/>
                    <sprite key="culeMC" n="cube64" t="cmc" fps="24" x="3"/>
                    <sprite key="shbei" n="shbei" x="3"/>
                </sprite>
                <sprite key="ever2" n="boxvity" x="2"/>
            </sprite>
            <sprite key="hehe" n="hehe" statelist="0,1,2,3" x="15" />
        </rec>
    </element>
</root>

这是需要处理的xml
我希望涉及到x的地方，无论层级有多深~ 都将x的值乘以2.
如果x有多个值以“，”隔开的话，也要乘以2~~~~~

下面是我的一些代码，
太不完善了
无法达到我的效果
求大神拯救阿...

程序代码：

[color=#0000FF]Private Sub Command1_Click()
Dim Dom As New DOMDocument
Dom.async = False
Dim x As IXMLDOMNode
Dim node As IXMLDOMNode
Dim arr
Dim brr

'加载xml
Add = "E:\ts.xml"
Dom.Load Add
Set node = Dom.selectSingleNode("root").selectSingleNode("element").selectSingleNode("rec")
For Each x In node.childNodes
     '获取限定值
     xvalue = x.Attributes.getNamedItem("x").Text
    
     '判断如果x存在多个值，将值x2
     If InStr(xvalue, ",") Then
        arr = Split(xvlaue, ",")
        For i = LBound(arr) To UBound(arr)
            brr = arr(i) * 2
            x.Attributes.getNamedItem("x").Text = brr(i)
        Next
     Else
        '输出双倍的x
        '并保存
        x.Attributes.getNamedItem("x").Text = xvalue * 2
        Dom.save (Add)
     End If
Next
Set Dom = Nothing
MsgBox "双倍执行完毕"
End Sub

程序代码：

Option Explicit

Private Sub Command1_Click()
    Dim xmlDoc As New DOMDocument
    xmlDoc.async = False
    Dim tNode As IXMLDOMNode
    Dim xmlFN As String
   
    '加载xml
    xmlFN = "E:\ts.xml"
    xmlDoc.Load xmlFN
    Set tNode = xmlDoc.selectSingleNode("root").selectSingleNode("element").selectSingleNode("rec")
    TraversalNode tNode
    xmlDoc.save (xmlFN)
    Set xmlDoc = Nothing
End Sub

Private Sub TraversalNode(tNode As Object)
    Dim tmpNode As IXMLDOMNode 'IXMLDOMNode Object
    For Each tmpNode In tNode.childNodes
        If Not tmpNode.firstChild Is Nothing Then TraversalNode tmpNode
        MyReplace tmpNode
    Next
End Sub

Private Sub MyReplace(tNode As Object)
    Dim sValue As String
    Dim sArr() As String
    Dim tmpObj As Object
    Dim i As Long
    Set tmpObj = tNode.Attributes.getNamedItem("x")
    If tmpObj Is Nothing Then Exit Sub
    sValue = tmpObj.Text
    If InStr(sValue, ",") Then
        sArr = Split(sValue, ",")
        For i = LBound(sArr) To UBound(sArr)
            sArr(i) = CLng(sArr(i)) * 2
        Next
        tmpObj.Text = Join(sArr, ",")
    Else
        tmpObj.Text = sValue * 2
    End If
End Sub