Views

Histats

Vitrine

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)
    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
    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.



✔ VBA Brazil®

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