Удаление символов в txt файле

Option Explicit 
 
Const ForReading   = 1
Const ForWriting   = 2
Dim strFile 
Dim strFind
Dim strFindPlus
Dim objRegExp
Dim strContent
 
strFile = "f:\temp\1.txt"
strFind = "№566Dgh.t55:"
strFindPlus = "Chr(10)"
 
    With WScript.CreateObject("Scripting.FileSystemObject")
     If .FileExists(strFile) Then
      Set objRegExp = WScript.CreateObject("VBScript.RegExp")
       With objRegExp
        .IgnoreCase = True
        .Global     = True
        .Pattern    = strFindPlus
       End With
       With .OpenTextFile(strFile, ForReading)
            strContent = .ReadAll()
            .Close
        End With
With .OpenTextFile(strFile, ForWriting)
            If objRegExp.Test(strContent) Then
                .Write objRegExp.Replace(strContent, strFind)
            Else
                objRegExp.Pattern = strFind
                .Write objRegExp.Replace(strContent, Chr(10))
            End If
            .Close
        End With
    Else
        WScript.Echo "File [" & strFile & "] not found"
    End If
End With
 
WScript.Quit 0

ReplaceFile "f:\temp\1.txt", "[ \t]+№|:[ \t]+", vbLf
 
Sub ReplaceFile(File, S, R)
    Set RE = New RegExp : RE.Pattern = S : RE.Global = 1
    With CreateObject("Scripting.FileSystemObject")
        If Not .FileExists(File) Then "Файл " & File " не найден!", 4144 : WSH.Quit
        With .OpenTextFile(File) Text = RE.Replace(.ReadAll, R) : .Close : End With
        With .OpenTextFile(File, 2) .Write Text : .Close : End With
    End With    
End Sub

ReplaceFile "f:\temp\1.txt", "[ \t]+№|:[ \t]+", vbLf
 
Sub ReplaceFile(File, S, R)
    Set RE = New RegExp : RE.Pattern = S : RE.Global = 1
    With CreateObject("Scripting.FileSystemObject")
        If Not .FileExists(File) Then MsgBox "Файл " & File " не найден!", 4144 : WSH.Quit
        With .OpenTextFile(File) Text = RE.Replace(.ReadAll, R) : .Close : End With
        With .OpenTextFile(File, 2) .Write Text : .Close : End With
    End With    
End Sub

ReplaceFile "f:\temp\1.txt", "[ \t]+№|:[ \t]+", vbLf
 
Sub ReplaceFile(File, S, R)
    Set RE = New RegExp : RE.Pattern = S : RE.Global = 1
    With CreateObject("Scripting.FileSystemObject")
        If Not .FileExists(File) Then MsgBox "Файл " & File & " не найден!", 4144 : WSH.Quit
        With .OpenTextFile(File) Text = RE.Replace(.ReadAll, R) : .Close : End With
        With .OpenTextFile(File, 2) .Write Text : .Close : End With
    End With    
End Sub

ReplaceFile "f:\temp\1.txt", "[ \t]*№[^\r\n]+:[ \t]*", vbLf