Views

Histats

Vitrine

DONUT PROJECT 2015 - Função - Extraindo Quaisquer Elementos de uma String a Partir do Limitador

DONUT PROJECT 2015 - Função - Extraindo Quaisquer Elementos de uma String a Partir do Limitador























Outra função utilíssima para extrair infomarções num processo de higienização ou processamento.

Function ExtractElement (Txt, n, Separator) As String    '    Author: André Luiz Bernardes - andredinizbernardes@gmail.com    '      Date: 06.04.15 - 12:10    ' Descrição: Retorna qualquer número de ocorrências, onde estiver separado pelo limitador indicado.    '   Exemplo: ExtractElement ("ACUPUNTURA, ACUPUNTURA, ANESTESIOLOGIA",2,",") - Retorna: ACUPUNTURA

    Dim Txt1 As String, TempElement As String    Dim ElementCount As Integer, i As Integer        Let Txt1 = Txt    ' Remove o excesso de espaços.    If Separator = Chr(32) Then Txt1 = Application.Trim(Txt1)        ' Adiciona um separador no final da string se for necessário.    If Right(Txt1, 1) <> Separator Then Txt1 = Txt1 & Separator        ' Inicia    Let ElementCount = 0    Let TempElement = ""        ' Extrai cada elemento    For i = 1 To Len(Txt1)        If Mid(Txt1, i, 1) = Separator Then            Let ElementCount = ElementCount + 1            If ElementCount = n Then                                Let ExtractElement = TempElement                Exit Function            Else                Let TempElement = ""            End If        Else            Let TempElement = TempElement & Mid(Txt1, i, 1)        End If    Next i        Let ExtractElement = ""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