Function
ScriptHtml(Byval ConStr,TagName,FType)
Dim Re
Set Re = new RegExp
Re.IgnoreCase = False
Re.Global = True
Select Case FType
Case 1
Re.Pattern = " < " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
Case 2
Re.Pattern = " < " & TagName & " ([^>])*>.*?</ " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
Case 3
Re.Pattern = " < " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
Re.Pattern = " </ " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
End Select
ScriptHtml = ConStr
Set Re = Nothing
End Function
Dim Re
Set Re = new RegExp
Re.IgnoreCase = False
Re.Global = True
Select Case FType
Case 1
Re.Pattern = " < " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
Case 2
Re.Pattern = " < " & TagName & " ([^>])*>.*?</ " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
Case 3
Re.Pattern = " < " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
Re.Pattern = " </ " & TagName & " ([^>])*> "
ConStr = Re.Replace(ConStr, "" )
End Select
ScriptHtml = ConStr
Set Re = Nothing
End Function