Average 28000 requests/month












 

This is a VBScript to remove all CR-LFs. Particularly useful for XML files created using sp_makewebtask 

Const OpenFileForReading = 1
Const OpenFileForWriting = 2 

Dim sFile, FSO, sFilePath, S

set FSO = CreateObject("Scripting.FileSystemObject")
sFilePath = "d:\xml\icisarticles.xml"

Set sFile = fso.OpenTextFile(sFilePath, OpenFileForReading)
S = sFile.ReadAll 
sFile.Close

Dim regEx
Set regEx = New RegExp
regEx.Pattern = vbCRLF
regEx.Global = True
S = regEx.Replace(S, "")

dim filesys, filetxt
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("d:\xml\icisarticlesNew.xml", True)
filetxt.WriteLine(S)
filetxt.Close

 
 

July 2005