使用VBA替换含空格/制表符的Python代码匹配失败求助

问题分析 #

• 直接用vbTab或固定空格数匹配Python缩进不可靠：Python脚本的缩进可能是多个空格（如4个、8个）而非制表符，或混合使用空格与制表符，导致字符串精准匹配失败。
• 需删除的目标Python代码片段：

if time == 12:
            Freq = 1
        else:
            Freq = 12

可行解决方案 #

方案1：正则表达式匹配（推荐） #

利用正则忽略缩进的具体空白类型与数量，精准匹配目标代码块：

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.MultiLine = True
' 匹配任意空白开头的目标代码行，兼容空格/制表符混合缩进
regEx.Pattern = "\s*if time == 12:\s*\n\s*Freq = 1\s*\n\s*else:\s*\n\s*Freq = 12"
strContents = regEx.Replace(strContents, "")

• 说明：\s*匹配任意数量的空白字符（空格、制表符均可），\n匹配换行，无需纠结具体缩进长度。

方案2：统一缩进格式后匹配 #

先将脚本内所有制表符转换为固定空格，再按目标代码的空格数进行替换：

' 把所有制表符替换为4个空格（可根据目标代码实际缩进调整）
strContents = Replace(strContents, vbTab, "    ")
' 按目标代码的空格缩进拼接字符串进行替换
strContents = Replace(strContents, _
    "            if time == 12:" & vbNewLine & _
    "                Freq = 1" & vbNewLine & _
    "            else:" & vbNewLine & _
    "                Freq = 12", "")

• 注意：需确保拼接的空格数与目标代码行的实际空格数完全一致。

关键注意事项 #

• 避免依赖固定vbTab或硬编码空格数，Python缩进规则灵活，正则是更通用的解决方式。
• 替换前可输出strContents的片段内容，确认实际的换行、缩进字符，验证匹配逻辑。

内容的提问来源于stack exchange，提问作者aadya bajaj