Views

Histats

Vitrine

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

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



Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.


✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias