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]Separar Textos em Colunas Duas vezes

    avatar
    WS_Lima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 23/01/2018

    [Resolvido]Separar Textos em Colunas Duas vezes Empty [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  WS_Lima 23/9/2020, 03:36

    Olá pessoal!

    Mais uma vez precisando da ajuda de todos. rs

    Li alguns tópicos que tratam deste assunto, inclusive o exemplo do mestre JPaulo no tópico "[Resolvido]Separar texto em duas colunas", e também o "[Resolvido]Separar endereço - pegar somente rua" mas não entendi como faço para aplicar na tabela. E também, preciso que ao separar os textos, já crie um nome para cada um dos registros.

    -Não há uma quantidade definida de separações que serão feitas, pois só será identificado quando o arquivo for importado.

    Atualmente faço o processo manualmente no Excel, e gostaria de saber se há uma forma de realizar tudo automaticamente no Access. Abaixo, segue o passo-a-passo da formatação que realizo:

    1-Arquivo original (*.csv), da forma que é importado;
    2-O arquivo foi separado texto para colunas através da "," (vírgula);
    3-As colunas que não possuem o link de fotos (images/insphere/...) foram excluídas;
    4-Todas as células que possuem o link de fotos, foram unificadas em uma única coluna;
    5-Os dados foram separados texto para colunas novamente, agora através do símbolo "|" (barra vertical);
    6-Foi acrescentada uma coluna após cada uma das separações, abrindo espaço para inserir um nome de identificação;
    7-Foi inserida uma nova descrição para cada uma das imagens, tomando como referência o número do ponto, e a quantidade de imagens naquele ponto;
    8-Todos os dados foram reagrupados para apenas 2 colunas, a primeira (Campo2) com o nome inicial das fotos, e a segunda (NomeCampo2) com a nova descrição de cada foto.

    Seguem arquivos anexos para auxílio. Inseri também o arquivo Access, mas não fui muito longe, apenas contém o código para importação do arquivo original CSV, na tblFotos. Preciso que ao fim esteja no mesmo formato da tblFotosTXT2. A partir deste formato, já possuo outra rotina que irá rodar para renomear as imagens na pasta, mas essa parte já resolvi. rs
    Anexos
    [Resolvido]Separar Textos em Colunas Duas vezes AttachmentTESTE_RENOMEAR_FOTOS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 12 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Separar Textos em Colunas Duas vezes Empty Re: [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  Avelino Sampaio 23/9/2020, 09:22

    Olá!

    Não está incluído o arquivo csv.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    WS_Lima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 23/01/2018

    [Resolvido]Separar Textos em Colunas Duas vezes Empty Re: [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  WS_Lima 24/9/2020, 00:32

    Olá!

    Segue arquivo no formato em que é importado. Obrigado pela ajuda.
    Anexos
    [Resolvido]Separar Textos em Colunas Duas vezes AttachmentIMPORTACAO CSV.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 11 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Separar Textos em Colunas Duas vezes Empty Re: [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  Avelino Sampaio 24/9/2020, 11:17

    Olá!

    eu percebi que os nomes das imagens seguem um padrão: 8-4-4-4-12.jpg

    com esse padrão, facilita muito o senhor utilizar Expressões Regulares no Access. Clique AQUI e veja neste meu artigo como implementar isso, de forma bem fácil. Como sugestão, segue um esboço de código a ser aplicado. O código exemplo está pegando o csv a partir de um campo de uma tabela. Copie o csv para o campo e teste.

    Dim rs As DAO.Recordset
    Dim strCaptura$
    Dim varRes
    Dim x%

    Set rs = CurrentDb.OpenRecordset("tblNomeTabela")
    strCaptura = fncER(rs!NomeCampoCsv, "........\-....\-....\-....\-............\.\j\p\g", False)
    rs.Close
    Set rs = Nothing
    varRes = Split(strCaptura, "|")
    strCaptura = ""
    For x = 0 To UBound(varRes)
    strCaptura = strCaptura & varRes(x) & vbNewLine
    Next
    MsgBox strCaptura, vbInformation, "Resultado"


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    WS_Lima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 23/01/2018

    [Resolvido]Separar Textos em Colunas Duas vezes Empty Re: [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  WS_Lima 25/9/2020, 01:09

    Boa noite!

    Inseri o comando, mas está apresentando Erro de compilação: 'Sub' ou 'Function' não definida onde está digitado fncER.

    Como resolver?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Separar Textos em Colunas Duas vezes Empty Re: [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  Avelino Sampaio 25/9/2020, 02:07

    O senhor tem que ir no artigo indicado e copiar a função fncER para um módulo global.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    WS_Lima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 23/01/2018

    [Resolvido]Separar Textos em Colunas Duas vezes Empty Re: [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  WS_Lima 26/9/2020, 12:55

    Bom dia!

    Desculpe a demora no retorno. Agora deu certo, mas só preciso saber como adequar.

    Ele executa a função dos dados separando por "|" exatamente como preciso, mas queria saber como faço para que sejam lançados individualmente para a tabela. Ou seja, daí que irá partir para o nome individual de cada foto.

    Outra coisa, reparei que o Resultado apresentou a separação dos textos apenas para a primeira linha da tabela. Como fazer para percorrer todas as linhas ou toda a tabela?

    Estou colocando o tópico como Resolvido porque consegui realizar a separação através de uma consulta, mas agradeço se puder dizer como fazer para realizar através de função, pois através da consulta limitei a 5 fotos por cada ponto.

    Segue BD com o resumo do que consegui.

    Desde já, gostaria de prestar meus agradecimentos pela atenção e grande ajuda.
    Anexos
    [Resolvido]Separar Textos em Colunas Duas vezes AttachmentTESTE_SEPARAR_TEXTO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 17 vez(es)

    Conteúdo patrocinado


    [Resolvido]Separar Textos em Colunas Duas vezes Empty Re: [Resolvido]Separar Textos em Colunas Duas vezes

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/5/2024, 08:01