Søg og erstat

De gange jeg har skulle gøre det, har jeg åbnet filen i word og brugt søg/erstat funktionen.

I søg skriver du <BR> og i erstat skriver du ikke noget. Tryk på erstat alle, og de er væk alle sammen.

<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("test.htm"), ForReading)
ReadAllTextFile = MyTextFile.ReadAll
MyTextFile.Close
Set MyFileObject = Nothing

ReadAllTextFile = replace(ReadAllTextFile , "<BR>", "")



Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("test.htm"), ForWriting)
MyTextFile.Write ReadAllTextFile
MyTextFile.Close
Set MyFileObject = Nothing
%>