본문 바로가기

Excel VBA/VBA 예제

excel vba regexp

728x90

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.

 

 

 

728x90
블로그 주인장입니다. 원하시는 정보는 얻으셨나요? 이 포스트에서 추가로 필요한 정보가 있으시면 여기에 남겨주세요.