Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Vitrine

+Views

Widgets Mundo Blogger

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.










DONUT PROJECT 2015 - Função - Retorna o número de ocorrências de um caracter numa string

DONUT PROJECT 2015 - Função - Retorna o número de ocorrências de um caracter numa string
























Retorna o número de vezes que um caracter aparece numa String.

Por exemplo:

Exemplo: ReturnOccurs ("ACUPUNTURA, ACUPUNTURA, ANESTESIOLOGIA",",")

Retorna: 2
Function ReturnOccurs(str As String, nOccur As String) As String
    '    Author: André Luiz Bernardes - andredinizbernardes@gmail.com
    '      Date: 06.04.15 - 11:37
    ' Descrição: Retorna o número de ocorrências de um caracter numa string.
    '   Exemplo: ReturnOccurs("ACUPUNTURA, ACUPUNTURA, ANESTESIOLOGIA",",") - Retorna: 2
   
    Let ReturnOccurs = Len(str) - Len(Replace(str, nOccur, "")) + (Len(Trim(A1)) > 0)
End Function




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










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.



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.

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.


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 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, ")")
   
    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
End Function



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


Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias