Suppression with Regular Expression
I have an XML file and I want to delete everything that is between 2 tags including the tags. <M_CODE> <src> ... </ SRC> </ M_CODE> I wanted to use the Replace command ...
Forum Discussion
I found
the solution to my problem :
Set objFSO = CreateObject("Scripting.fileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\TestAdmin\Desktop\Essai.XML", 1)
strText = objFile.ReadAll
objFile.Close
Set RegExM = New RegExp
RegExM.Pattern = "<M_CODE>[\s\S]+</M_CODE>"
RegExM.Global = True
strNewTextM = RegExM.Replace(strText, "")
Set objFile = objFSO.OpenTextFile("C:\Users\TestAdmin\Desktop\Essai.XML", 2)
objFile.WriteLine strNewTextM
objFile.Close
the solution to my problem :
Set objFSO = CreateObject("Scripting.fileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\TestAdmin\Desktop\Essai.XML", 1)
strText = objFile.ReadAll
objFile.Close
Set RegExM = New RegExp
RegExM.Pattern = "<M_CODE>[\s\S]+</M_CODE>"
RegExM.Global = True
strNewTextM = RegExM.Replace(strText, "")
Set objFile = objFSO.OpenTextFile("C:\Users\TestAdmin\Desktop\Essai.XML", 2)
objFile.WriteLine strNewTextM
objFile.Close
