✔ Programação GLOBAL®: 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 = ""