Views

Important:

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

...

15 de maio de 2015

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text





Muito útil para o envio automatizado de e-mails a partir de uma planilha sem higienização apropriada.

Function ExtractEmailAddress (s As String) As String      Dim AtSignLocation As Long      Dim i As Long      Dim TempStr As String      Const CharList As String = "[A-Za-z0-9._-]"            'Get location of the @      AtSignLocation = InStr(s, "@")      If AtSignLocation = 0 Then          ExtractEmailAddress = "" 'not found      Else          TempStr = ""          'Get 1st half of email address          For i = AtSignLocation - 1 To 1 Step -1              If Mid(s, i, 1) Like CharList Then                  TempStr = Mid(s, i, 1) & TempStr              Else                  Exit For              End If          Next i          If TempStr = "" Then Exit Function          'get 2nd half          TempStr = TempStr & "@"          For i = AtSignLocation + 1 To Len(s)              If Mid(s, i, 1) Like CharList Then                  TempStr = TempStr & Mid(s, i, 1)              Else                  Exit For              End If          Next i      End If      'Remove trailing period if it exists      If Right(TempStr, 1) = "." Then TempStr = _         Left(TempStr, Len(TempStr) - 1)      ExtractEmailAddress = TempStr  End Function

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










6 de abril de 2015

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


Public 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 de uma frase que não 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 = 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.

eBooks VBA na AMAZOM.com.br

Vitrine