VBScript-条件替换正则表达式

在文本文件中，我想删除所有回车符（vbCrLf），除了前面有句点（.）的vbCrLf之外。老实说，不需要正则表达式

打开文本文件，将整个文本内容拆分为要保留的内容（以创建数组），然后循环遍历数组并替换文件重写过程中不需要的内容，确保追加要保留的内容

例如：

Dim retain : retain = "." & vbCrLf
Dim toss : toss = vbCrLf

With CreateObject("Scripting.FileSystemObject")
    Dim txtFile
    With .OpenTextFile("C:\TestFile.txt", 1, False)
        txtFile = Split(.ReadAll(), retain)
        .Close
    End With

    With .OpenTextFile("C:\NewTestFile.txt", 2, True)
        Dim row
        For Each row In txtFile
            .Write Replace(row, toss, " ") & retain
        Next
        .Close
    End With
End With

说实话，VBScript的RegExp模式语法可能不够健壮——因为缺少前瞻模式——无法通过一次传递干净地处理条件条件条件