用段落标记替换双换行符的功能不起作用

Question

我有一个函数用段落标记替换双换行符，但是唉 - 它不适合我：

'Function to replace double line breaks with paragraph tags

Function fixParas(srcText As String) As String
    fixParas = srcText
    If len(fixParas) > 0 Then
        fixParas = Replace(VbCrLf , "<br />")
        fixParas = Replace("<br>" , "<br />")
        fixParas = Replace("<br/>" , "<br />")
        fixParas = Replace("<br /><br />" , "</p><p>")
        fixParas = Replace("<br /></p>" , "</p>")
        fixParas = Replace("<p><br />" , "<p>")
    End If
End Function

据我所知，语法是正确的，但它并不喜欢。

Answer 1

尝试

fixParas = fixParas.Replace...