DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres

DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres

​

A função abaixo é totalmente específica pois permite retornar qualquer conteúdo que estiver delimitado pelos caracteres que informarmos.

Public Function ExtraiDelimitedFor(str As String,nOpen as string,nClose as string,) As String

    Dim openPos As Integer

    Dim closePos As Integer

    Dim midBit As String

    Let openPos = InStr(str, nOpen)

    Let closePos = InStr(str, nClose)

    Let midBit = Left(str, openPos - 1) & Right(str, openPos)

    Let ExtraiTudoEntreParenteses = midBit

End Function

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

andredinizbernardes@gmail.com

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.

andredinizbernardes@gmail.com

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.

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 Integer

    Dim closePos As Integer

    Dim midBit As String

    Let openPos = InStr(str, "(")

    Let closePos = InStr(str, ")")

    Let midBit = Left(str, openPos - 1) & Right(str, openPos)

    Let ExtraiTudoEntreParenteses = midBit

End Function

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

andredinizbernardes@gmail.com