Forum Discussion

ChristopheC's avatar
ChristopheC
Contributor
15 years ago

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 ...
AlexanderM's avatar
AlexanderM
Staff
15 years ago

Hi Christophe,





The variant you offered is incorrect. Here is an example demonstrating how to do this:







Sub Main

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\Test\File.XML", 1)





strText = objFile.ReadAll

objFile.Close

Log.Message(strText)

Set RegExpr1 = HISUtils.RegExpr





' Note that the ^ and $ symbols have been removed

RegExpr1.Expression = "<M_CODE>(.+)</M_CODE>"





strNewText = RegExpr1.Replace(strText, "")

Log.Message(strNewText)

Set objFile = objFSO.OpenTextFile("C:\Test\File.XML", 2)

objFile.WriteLine strNewText

objFile.Close

End Sub







Does it help you?