본문으로 바로가기

excel vba regexp

category Excel VBA/VBA 예제 2018.06.02 15:19


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
cs


정규식 코드


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


end.





댓글을 달아 주세요