MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Remover texto à esquerda do último caracter especifico à direita

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 243
    Registrado : 24/02/2013

    [Resolvido] Remover texto à esquerda do último caracter especifico à direita Empty [Resolvido] Remover texto à esquerda do último caracter especifico à direita

    Mensagem  brunogor em 16/12/2020, 15:24

    Olá a todos

    Mais uma dúvida, mais um tópico.

    Estou com um problema pois não estou a conseguir remover parte do texto à esquerda de um caractere especifico, caso este exista mais de uma vez.

    O que eu pretendo é retornar só o nome da Cidade independentemente do número de caracteres " _ " que existirem, assim:
    antonio_25_Lisboa fique assim: Lisboa
    ana_margarida_28_Faro fique assim: Faro

    O seguinte código só funciona bem caso só exista um único caractere " _ " antes das Cidades
    Código:
       Me.B.Value = Right(Me.A, Len(Me.A) - InStr(Me.A, "_"))

    Deixo em anexo o exemplo para a respetiva ajuda.

    Muito Obrigado
    Anexos
    [Resolvido] Remover texto à esquerda do último caracter especifico à direita AttachmentRemover_Texto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (545 Kb) Baixado 4 vez(es)


    Última edição por brunogor em 22/12/2020, 21:07, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6979
    Registrado : 15/03/2013

    [Resolvido] Remover texto à esquerda do último caracter especifico à direita Empty Re: [Resolvido] Remover texto à esquerda do último caracter especifico à direita

    Mensagem  ahteixeira em 16/12/2020, 16:58

    Olá Bruno,

    Não baixei nem testei o seu exemplo, mas teste assim:

    Código:
      Me.B.Value = Right(Me.A, Len(Me.A) - InStrRev(Me.A, "_"))

    Alterei de InStr para InStrRev

    Abraço
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 243
    Registrado : 24/02/2013

    [Resolvido] Remover texto à esquerda do último caracter especifico à direita Empty Remover texto à esquerda do último caracter especifico à direita

    Mensagem  brunogor em 17/12/2020, 00:07

    Olá Sr. Álvaro

    Já há algum tempo que não nos encontrava-mos aqui no fórum.

    Espero que esteja tudo bem consigo e com os seus.

    Já experimentei e funcionou, bem, vindo de si não era de esperar outra coisa.

    Sr. Álvaro muito obrigado por mais esta ajuda, mesmo.

    Bom Natal e saúde para si e para os seus.

    Cumprimentos

    Bruno Gordino

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6979
    Registrado : 15/03/2013

    [Resolvido] Remover texto à esquerda do último caracter especifico à direita Empty Re: [Resolvido] Remover texto à esquerda do último caracter especifico à direita

    Mensagem  ahteixeira em 17/12/2020, 14:48

    Olá Bruno,

    É verdade, ultimamente não tenho tido muita disponibilidade!
    Obrigado pelo feedback, fico feliz por ajudar.

    Quanto à saúde, obrigado e espero que você, todos os membros e familiares deste fórum que estejam de boa saúde.
    Não baixar a guarda e isto vai passar.

    Por fim retribuo com um Santa Quadra e votos de um Feliz 2021

    Abraço

      Data/hora atual: 22/1/2021, 08:27