使用VBA正则替换：XML文件中动态删除指定属性段的技术问询

嘿，我懂你现在的困扰——用固定字符串替换处理XML里的动态属性值根本没法覆盖所有场景，毕竟引号里的内容都是变量，比如justification的取值可能是left/right/center，dimensions的数值也各不相同。这里给你两个靠谱的解决方向，按需选择：

方案1：用正则表达式灵活匹配替换 #

正则表达式天生就是处理这种带变量的文本匹配场景的神器，能精准定位你要删除的片段。

步骤说明： #

1. 启用正则支持：VBA里可以用后期绑定创建正则对象，不用手动添加引用；
2. 编写匹配模式：针对你的需求，模式要匹配从justification="开始，直到目标属性（比如dimensionsWidth="）结束的所有内容，同时兼容引号内的任意变量值；
3. 执行替换：把匹配到的片段直接替换为空字符串，保留剩余属性。

完整代码示例： #

Sub CleanXMLWithRegex()
    Dim regex As Object
    Dim LinesB() As String
    Dim j As Integer
    
    ' 这里模拟你的LinesB数组，实际业务中替换成你的数据源
    LinesB = Split( _
        "<text characterOffset=""0"" justification=""left"" dimensionsHeight=""1"" dimensionsWidth=""19"" />" & vbCrLf & _
        "<text characterOffset=""5"" justification=""right"" dimensionsHeight=""2"" dimensionsWidth=""20"" />", _
        vbCrLf _
    )
    
    ' 后期绑定正则对象，无需添加引用
    Set regex = CreateObject("VBScript.RegExp")
    With regex
        .Global = True ' 允许一行内匹配多个目标片段（如果有的话）
        .IgnoreCase = True ' 忽略大小写，适配Justification/justification的写法差异
        ' 正则模式解析：
        ' justification="[^"]+"  → 匹配justification属性及其任意值
        ' [^>]*? → 非贪婪匹配中间的任意内容（避免过度匹配到后面的属性）
        ' dimensionsWidth="[^"]+" → 匹配结束的目标属性及其任意值
        .Pattern = "justification=""[^""]+""[^>]*?dimensionsWidth=""[^""]+"""
    End With
    
    ' 遍历每一行处理
    For j = LBound(LinesB) To UBound(LinesB)
        ' 先判断行内是否包含justification，避免无意义的正则匹配
        If InStr(1, LinesB(j), "justification", vbTextCompare) > 0 Then
            LinesB(j) = regex.Replace(LinesB(j), "")
        End If
        ' 输出处理结果，实际可替换为写入文件等操作
        Debug.Print LinesB(j)
    Next j
    
    Set regex = Nothing
End Sub

自定义调整： #

如果需要把结束属性换成dimensionsHeight或者其他属性，只需要修改正则模式里的dimensionsWidth为目标属性名即可。

方案2：用XML DOM对象（更可靠） #

正则处理XML虽然方便，但如果XML结构有变化（比如属性换行、顺序调整），正则可能会失效。更专业的做法是用XML DOM对象直接操作节点属性，完全规避文本匹配的风险。

完整代码示例： #

Sub CleanXMLWithDOM()
    Dim xmlDoc As Object
    Dim LinesB() As String
    Dim rootNode As Object
    Dim targetNodes As Object
    Dim node As Object
    
    ' 模拟你的LinesB数组
    LinesB = Split( _
        "<text characterOffset=""0"" justification=""left"" dimensionsHeight=""1"" dimensionsWidth=""19"" />" & vbCrLf & _
        "<text characterOffset=""5"" justification=""right"" dimensionsHeight=""2"" dimensionsWidth=""20"" />", _
        vbCrLf _
    )
    
    ' 创建XML DOM对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    xmlDoc.async = False
    xmlDoc.validateOnParse = False ' 如果XML不规范可以关闭验证
    
    ' 把行数据包装成合法的XML根节点
    xmlDoc.LoadXML "<root>" & Join(LinesB, "") & "</root>"
    
    ' 选择所有包含justification属性的text节点
    Set targetNodes = xmlDoc.SelectNodes("//text[@justification]")
    
    ' 遍历节点删除指定属性
    For Each node In targetNodes
        node.RemoveAttribute "justification"
        node.RemoveAttribute "dimensionsHeight"
        node.RemoveAttribute "dimensionsWidth"
    Next node
    
    ' 输出处理后的XML内容，可按需提取每行节点
    Debug.Print xmlDoc.XML
    
    Set xmlDoc = Nothing
End Sub

这个方法会直接解析XML结构，不管属性顺序、换行还是格式变化，都能准确删除指定属性，是处理XML的标准做法。

内容的提问来源于stack exchange，提问作者1986G1988