' // 패턴으로 치환하여 태그 제거하는 함수
Function replaceRegExp(str, patrn, replStr) '정규식 제거
 ' //pattern0 = "[^가-힣]"      '## 한글만 제거
 ' //pattern1 = "[^-0-9 ]"      '## 숫자만 제거
 ' //pattern2 = "[^-a-zA-Z]"     '## 영어만 제거
 ' //pattern3 = "[^-가-힣a-zA-Z0-9/ ]"    '## 숫자와 영어 한글만 제거
 ' //pattern4 = "<[^>]*>"     '## 태그만 제거
 ' //pattern5 = "[^-a-zA-Z0-9/ ]"   '## 영어 숫자만 제거

 Dim regEx

 Set regEx = New RegExp
  with regEx
   .Pattern   = patrn  ' // 패턴 설정 
   .IgnoreCase = True  ' // 대 소문자 구분하지 않음
   .Global   = True  ' // 전체 문자열 검색
  end with 

 replaceRegExp = regEx.Replace(str, replStr)

 Set regEx = Nothing
  
End Function

 

' // 정의한 태그만 제거 함수
Sub checkDisabledTags(ByRef data)

 

 Dim regExps 
 ' // Const BBS_DISABLED_TAGS = "script,iframe"  '글 작성시 허용하지 않을 태그정의.

 

 regExps = Split(BBS_DISABLED_TAGS, ",")

 

 For i = 0 To UBound(regExps)

  data =  replaceRegExp(data, "<( )*" & regExps(i) & "([^>])*?>", "<" & regExps(i) & ">")   ' //허용하지 않을 태그 제거
  data =  replaceRegExp(data, "(<( )*(/)( )*?" & regExps(i) & "()*>)", "</" & regExps(i) & ">")
  data =  replaceRegExp(data, "(<" & regExps(i) & ">)([^(<" & regExps(i) & ">\.</" & regExps(i) & ">)])*?(</" & regExps(i) & ">)", "")
  data =  replaceRegExp(data, "(<" & regExps(i) & ">)[\s\S]*?(</" & regExps(i) & ">)", "")

 Next