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
Veja outros códigos:
Série VBA Outlook:
Série DONUT PROJECT 2021
Série DONUT PROJECT 2018
Série DONUT PROJECT 2015
Série DONUT PROJECT 2014
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com
