DONUT PROJECT 2015 - Função - Extrai Conteúdo entre Parênteses

Esta função pode auxiliar muito alguém que está num processo de higienização de dados.

Imagine poder retornar apenas aquilo que não está entre parênteses.

Por exemplo, da expressão Dr. Roberto Matsuo (Clínico Geral), retornar apenas: Dr. Roberto Matsuo

A função abaixo faz exatamente isso.

Function ExtraiTudoEntreParenteses(str As String) As String

'Author: André Luiz Bernardes - andredinizbernardes@gmail.com' Date: 06.04.15 - 10:00' Descrição: Retorna todo o conteúdo que estiver entre parênteses. 

    Dim openPos As Integer
    Dim closePos As Integer
    Dim midBit As String

    Let openPos = InStr(str, "(")
    Let closePos = InStr(str, ")")
   
    If (openPos + closePos) <= 2 Then
        Let ExtraiTudoEntreParenteses = str
    Else
        Let midBit = Left(str, openPos - 1) & Right(str, Len(str) - closePos)
        Let ExtraiTudoEntreParenteses = midBit
    End If
End Function

 Série de Livros nut Project 

  

Veja outros códigos:

  

 

 

 

 Série VBA Outlook: 

  

  

  

 Série DONUT PROJECT 2024 

  

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com