| |
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
|
|