excel vba regexp

vba에서도 정규식을 쓸 일이 있어서 찾아보았습니다.

Sub regexp_test()
    str1 = "system(bla/bla2)"
    str2 = "()"
    
    result = getInnerBracketText(str1)
    Debug.Print (getInnerBracketText(str1))
    Debug.Print (getInnerBracketText(str2))
End Sub

Function getInnerBracketText(str) As String
    occurOpenBracket = InStr(str, "(")
    occurCloseBracket = InStr(str, ")")
    
    If occurOpenBracket <= 0 Then
        getInnerBracketText = str
    Else
        getInnerBracketText = Mid(str, occurOpenBracket + 1, occurCloseBracket - occurOpenBracket - 1)
    End If
End Function
​

 

정규식 코드

 

()안에 있는 내용 뽑아내는 코드

 

end.