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 IntegerDim closePos As IntegerDim midBit As StringLet openPos = InStr(str, "(")Let closePos = InStr(str, ")")Let midBit = Mid(str, openPos + 1, closePos - openPos - 1)Let ExtraiOValorEntreParenteses = 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