[vb6.0/vba] HTML 테그를 한방에 정리(함수)

Public Function HTMLDEL(ByRef T As String) As String
    Dim regEx As Object
'    Set regEx = New RegExp
    Set regEx = CreateObject("vbscript.regexp")
 
    regEx.Pattern = "<[^>]+>"  '--- html tag match를 위한 정규식
    regEx.IgnoreCase = True
    regEx.Global = True
    HTMLDEL = regEx.Replace$(T, "")
End Function