set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
   ("c:\page.txt",  1 )
Set objRegExp = New RegExp
objRegExp.Multiline = True   
objRegExp.Pattern = "<(.*)>.*<\/\1>"
objRegExp.Global = True
content = ""
Do Until objTextFile.AtEndOfStream
	strNextLine = objTextFile.Readline
	res = objRegExp.Replace(strNextLine,"")
	content = content + res
Loop
Wsh.Echo(content)
objTextFile.Close
Set WshShell = Nothing

objRegExp.Pattern = "<[^>].*>"