MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Extrair CEP de um Campo com texto Irregular

    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Luiz Gustavo M 11/12/2013, 22:49

    Boa noite Amigos.
    Tenho um problema e, confesso, ter minhas dúvidas se há solução!
    Mas, se houver solução, tenho a certeza que é aqui no Forum, com a ajuda dos amigos, que vamos resolvê-lo. É o seguinte:

    Recebo diariamente uma planilha (Excel) com aproximadamente 200 linhas de informação.
    Importo estas informações para dentro de uma tabela (Já Existente) do Access (2003 / XP SP3)
    Um dos campos que importo são informações do endereço de clientes: [CampoEnd].
    Neste campo [CampoEnd] tenho as informações: Rua, n.o., bloco, apto, bairro, CEP, Cidade, etc.)

    O que preciso?
    > Importar para outro campo [CampoCEP] o número do CEP do endereço que está no [CampoEnd]

    Qual o problema?
    > as informações no CampoEnd, importadas do Excel, não tem um critério, ou seja, cada vez vem de um jeito, venham alguns exemplos:

    > Rua Messias, 44 - Lapa - São Paulo -SP - CEP 03916000
    > Rua Messias, 44 - Lapa - São Paulo -SP - CEP 03916-000
    > CEP 03916-000 - Rua Messias, 44 - Lapa - São Paulo -SP
    > CEP 03916000 - Rua Messias, 44 - Lapa - São Paulo -SP
    > 03916000 - Rua Messias, 44 - Lapa - São Paulo -SP
    > São Paulo SP / CEP 03916000 Rua Messias, 44 - Lapa
    > São Paulo-SP Lapa 03916000 Rua Messias, 44


    A única coisa que é segue um padrão é o CEP, que vem: 00000-000 ou 00000000

    Muito obrigado


    .................................................................................
    Luiz Gustavo
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Clebergyn 12/12/2013, 03:03

    Veja a função no banco zipado em anexo, fiz de acordo com os dados que passou
    abra preencha os dados na tabela "endereço" e clique na consulta "puxacep"

    o unico problema é se tiver um numero no endereço do tamanho do cep que nao é cep, ai o pc nao faz milagres
    Anexos
    [Resolvido]Extrair CEP de um Campo com texto Irregular AttachmentPuxaCep.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 42 vez(es)
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Clebergyn 12/12/2013, 14:38

    neste aqui em anexo eu coloquei o hifem(tracinho) em todos os ceps

    veja se responda se ficou bom
    Anexos
    [Resolvido]Extrair CEP de um Campo com texto Irregular AttachmentPuxaCep.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 30 vez(es)
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Luiz Gustavo M 12/12/2013, 16:50

    Cara!
    Simplesmente FantásticoShocked 
    Parabéns e muito obrigado.

    Se me permitir, não vou colocar o resolvido ainda, pois gostaria de entender o que fez e aí então, aplicar em meu BD.

    Seu BD é composto de uma tabela, uma consulta e um módulo.
    Não estou conseguindo ver e/ou entender onde está o "comando" que executa o módulo1. Question 

    Abraços


    .................................................................................
    Luiz Gustavo
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Clebergyn 12/12/2013, 17:15

    está na consulta, cuja função chama cep
    consulta atualizar cep(t) cujo o t é o campo "end" da tabela que vem do excel
    a cada linha da consulta ele vai executar a função cep([end]) que esta na consulta "puxacep"
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Luiz Gustavo M 12/12/2013, 17:52

    Amigão, peço-lhe um pouco de paciência comigo.
    Seus conheciemtnos estão "anos luz" a minha frente. Embarassed 

    Vamos supor que queira da um outro nome a função "cep".
    Por exemplo: ExtrairCEP.
    Lá no módulo ficaria assim: "Function ExtrairCEP(t)". É isto?

    E na consulta, assim:
    Campo: cep
    Tabela: Endereço
    Atualizar para: ExtraiCEP([End])
    É isto?

    E sendo assim, teria que substituir, no módulo, todas as expressões "cep" por "ExtrairCEP" ?

    Desculpe-me pelo abuso Amigão. Embarassed 

    Muito Obrigado.
    Abraços


    .................................................................................
    Luiz Gustavo
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Clebergyn 12/12/2013, 18:06

    isso mesmo
    so que tambem onde no modulo, na funçao está
    atribuindo um valor a "cep" voce troca por "ExtrairCEP"

    Código:

    Function ExtrairCEP(t)
    Dim n, o
    On Error GoTo C1
    n = Len(t)
    If t Like "*########*" Then
    o = "v"
    ElseIf t Like "*#####-###*" Then
    o = "v1"
    End If

     If o = "v" Then
      For i = 1 To (n - 7)
        t1 = Mid(t, i, 8)
        If t1 Like "########" Then
          z1 = z1 + 1
          If z1 = 1 Then
          ExtrairCEP = Mid(t1, 1, 5) & "-" & Mid(t1, 6, 8)
          Else
          ExtrairCEP = ""
          End If

        End If
      Next
     ElseIf o = "v1" Then
      For i = 1 To (n - 8)
        t1 = Mid(t, i, 9)
        If t1 Like "#####-###" Then
          z2 = z2 + 1
          If z2 = 1 Then
          ExtrairCEP= t1
          Else
          ExtrairCEP = ""
          End If
        End If
      Next
     End If
    C1:
    End Function

    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Luiz Gustavo M 12/12/2013, 18:09

    Vou fazer as alterações ("cep" / "ExtrairCEP") e por para rodar.
    Já, já te dou retorno.
    Abs


    .................................................................................
    Luiz Gustavo
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Luiz Gustavo M 12/12/2013, 18:20

    Como dizem nossos amigos Portugueses: "Funfou" perfeitamente.
    Parabéns amigão.
    Parabéns pela paciência e expertise.
    Resolvido.

    Abraços

    Obrigado



    .................................................................................
    Luiz Gustavo

    Conteúdo patrocinado


    [Resolvido]Extrair CEP de um Campo com texto Irregular Empty Re: [Resolvido]Extrair CEP de um Campo com texto Irregular

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:09