slet i tekst fil

En måde at gøre det på kunne være at lave en

Replace(strLinje, "dsget succeeded", "")
og
Replace(StrLinje, vbCrLf, "")

//>Rune

Dim objFSO,objTextStream,strFile,regEx,match,matches
const fsoForReading = 1
const fsoForWriting = 2
const strFileName = "test.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
strFile = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing

Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "CN=[^\n]+"

Set matches = regEx.Execute(strFile)

Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForWriting)

For Each match in matches
  objTextStream.WriteLine Match.Value
Next

objTextStream.Close
Set objTextStream = Nothing

set matches = nothing
set regExp = nothing
Set objFSO = Nothing

Tak Begge 2. :-)