[정규식] 일치하는 문자열만 추출(lazy 모드)

Function GetCDATA(temp As String) As String
 
    Dim MySet As Object
    Dim i As Integer
    Dim v() As String
    
    With CreateObject("vbscript.regexp")    '정규식 선언
        .Global = True
        .Pattern = "(\[CDATA.*?\]\])"   '대괄호로 묶인 데이터를 Lazy 모드로 가져옴
        
        If .test(temp) Then '일치하는 패턴이 있을 때
        
            Set MySet = .Execute(temp)  '일치하는 패턴을 그룹으로 묶음
            
            ReDim v(MySet.Count - 1)    '그룹을 담아줄 배열 재선언
            
            For i = 0 To UBound(v)  '일치하는 문자열을 배열에 삽입
                v(i) = MySet.Item(i)
            Next i
            
            GetCDATA = Join(v, ", ")    '배열을 콤마로 연결하여 최종 출력
        
        Else    '패턴과 일치하는 문자열이 없으면 공란 출력
            GetCDATA = ""
            
        End If
        
    End With
    
End Function
 

통합 문서1.xlsm