O_o

' --------------------------------------------------------
' 정규표현식을 이용한 대치
' --------------------------------------------------------    
Function ereg_replace(pattern, strReplace, text)
 Dim eregObj
  
 ' Create regular expression
 Set eregObj= New RegExp
   
 eregObj.Pattern= pattern ' Set Pattern(패턴 설정)
 eregObj.IgnoreCase = False ' Set Case Insensitivity(대소문자 구분 여부)
 eregObj.Global = True  ' Set All Replace(전체 문서에서 검색)
   
 ereg_replace = eregObj.Replace(text, strReplace) ' Replace String 
End Function

Function eregi_replace(pattern, strReplace, text)
 Dim eregObj
  
 ' Create regular expression
 Set eregObj= New RegExp
   
 eregObj.Pattern= pattern ' Set Pattern(패턴 설정)
 eregObj.IgnoreCase = True ' Set Case Insensitivity(대소문자 구분 여부)
 eregObj.Global = True  ' Set All Replace(전체 문서에서 검색)
   
 eregi_replace = eregObj.Replace(text, strReplace) ' Replace String 
End Function 

Function ereg(patrn, strng)
 Dim regEx, Match, Matches, i, regs()   ' Create variable.
 
 Set regEx = New RegExp   ' Create a regular expression.
 regEx.Pattern = patrn   ' Set pattern.
 regEx.IgnoreCase = False   ' Set case insensitivity.
 regEx.Global = True   ' Set global applicability.
 
 Set Matches = regEx.Execute(strng)   ' Execute search.
 
 regs(0) = strng
 i = 1
 For Each Match in Matches   ' Iterate Matches collection.
  regs(i) = Match.Value
  i = i+1
 Next
 ereg = regs
End Function

Function eregi(patrn, strng)
 Dim regEx, Match, Matches, i, regs()   ' Create variable.
 
 Set regEx = New RegExp   ' Create a regular expression.
 regEx.Pattern = patrn   ' Set pattern.
 regEx.IgnoreCase = True   ' Set case insensitivity.
 regEx.Global = True   ' Set global applicability.
 
 Set Matches = regEx.Execute(strng)   ' Execute search.
 
 i = 1
 regs(0) = strng
 For Each Match in Matches   ' Iterate Matches collection.
  regs(i) = Match.Value
  i = i+1
 Next
 eregi = regs
End Function