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.
Public 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 de uma frase que não estiver entre parênteses.Dim openPos As IntegerDim closePos As IntegerDim midBit As StringLet openPos = InStr(str, "(")Let closePos = InStr(str, ")")Let midBit = Left(str, openPos - 1) & Right(str, openPos)Let ExtraiTudoEntreParenteses = midBitEnd Function
Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.
Nenhum comentário:
Postar um comentário