DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses

DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses


​
A função abaixo é muito útil por permitir retornar apenas o conteúdo que estiver entre parênteses.


Public Function ExtraiOValorEntreParenteses (str As String) As String
'Author: André Luiz Bernardes - andredinizbernardes@gmail.com
' Date: 06.04.15 - 10:00
' Descrição: Retorna somente o conteúdo de uma frase 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, ")")
    Let midBit = Mid(str, openPos + 1, closePos - openPos - 1)
    Let ExtraiOValorEntreParenteses = midBit
End Function
Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.