Excel VBA中Split函数无法拆分含换行字符串，返回空结果求助

原代码使用Split(FileContent, "|Value|")无法得到预期数组，核心问题有两个：

1. Split函数会移除分隔符本身，返回的数组元素不会包含|Value|，和预期不符；
2. 原字符串中存在换行符，导致|Value|前后有换行干扰，分割后会产生大量空元素或带换行的无效内容。

解决方案1：处理换行后重新拼接分隔符 #

先移除字符串中的所有换行符，再执行分割，最后给非空元素重新加上|Value|：

' 移除所有类型的换行符（兼容Windows/Linux换行格式）
FileContent = Replace(Replace(FileContent, vbCrLf, ""), vbLf, "")
FileContent = Replace(FileContent, vbCr, "")
' 执行分割
someArray() = Split(FileContent, "|Value|")
' 过滤空元素并重新拼接分隔符
Dim resultArray()
ReDim resultArray(-1)
Dim i
For i = 1 To UBound(someArray)
    If Trim(someArray(i)) <> "" Then
        ReDim Preserve resultArray(UBound(resultArray)+1)
        resultArray(UBound(resultArray)) = "|Value|" & someArray(i)
    End If
Next

执行后resultArray的内容完全符合预期：

resultArray(0) = |Value|Z^|^X^|^Y^|^
resultArray(1) = |Value|Z^|^X1^|^Y1^|^
resultArray(2) = |Value|Z^|^X2^|^Y2^|^

解决方案2：正则表达式精准匹配 #

直接用正则提取所有以|Value|开头的内容块，无需提前处理整个字符串：

Dim regEx, matches, match
Set regEx = New RegExp
regEx.Pattern = "\|Value\|.*?(?=\|Value\||$)"
regEx.Global = True
regEx.MultiLine = True ' 启用多行模式，兼容跨行内容
Set matches = regEx.Execute(FileContent)
' 将匹配结果存入数组并清理换行符
Dim resultArray()
ReDim resultArray(matches.Count - 1)
For i = 0 To matches.Count - 1
    resultArray(i) = Replace(Replace(matches(i).Value, vbCrLf, ""), vbLf, "")
    resultArray(i) = Replace(resultArray(i), vbCr, "")
Next
Set regEx = Nothing

这种方法能精准定位每个目标块，处理后同样得到预期数组。

内容的提问来源于stack exchange，提问作者Gomathi Gothandan