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

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  brunogor 22/12/2020, 10:14

    Bom dia a todos e Boas Festas,

    Acabei de passar por mais um problema, que resolvi mas de modo grosseiro.

    O que eu pretendo é substituir todos os números de uma "String" pelo digito "0", ou seja, pretendo que este valor "bar21212w" fique assim "bar00000w".

    A minha solução foi:
    Código:
    strValue = fld.Value
    strValue = Replace(strValue, "1", "0")
    strValue = Replace(strValue, "2", "0")
    strValue = Replace(strValue, "3", "0")
    strValue = Replace(strValue, "4", "0")
    strValue = Replace(strValue, "5", "0")
    strValue = Replace(strValue, "6", "0")
    strValue = Replace(strValue, "7", "0")
    strValue = Replace(strValue, "8", "0")
    strValue = Replace(strValue, "9", "0")

    Conseguem me ajudar a tornar isto mais limpo?

    Obrigado a todos

    Bruno Gordino


    Última edição por brunogor em 23/12/2020, 20:32, editado 3 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 878
    Registrado : 11/11/2009

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  scandinavo 22/12/2020, 13:21

    não sei se da certo
    use o select case

    strValue = fld.Value
    select case strValue
    case strValue 1 to 9
    strValue = 0
    end select


    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  brunogor 22/12/2020, 15:22

    Olá meu caro

    Acho que é a 1 vez que nos falamos aqui no forum.

    O código que passou funciona se a "String" for só de 1 digito, certo?

    No entanto, pretendo que este valor "bar21212w" fique assim "bar00000w".

    Obrigado na mesma

    Bruno Gordino
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 878
    Registrado : 11/11/2009

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  scandinavo 22/12/2020, 15:50

    Tentou usar a função format
    De uma pesquisada em seu funcionamento
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  brunogor 22/12/2020, 16:14

    Viva.

    Fui agora ver aqui (espero não estar a infringir nenhuma regra do Forum):
    https://www.excelfunctions.net/vba-format-function.html

    Mas como é que o "Format()" substituiria todos os dígitos para "0"?

    Obrigado
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  FranklinJSP 22/12/2020, 18:01

    Olá Bruno!

    Para um campo com números e letras de qualquer tamanho

    Saludos
    Anexos
    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" AttachmentSubstituir (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 6 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  DamascenoJr. 22/12/2020, 20:32

    brunogor
    Código:
    Dim i as byte

    for i = 0 to 9
        fld.value = replace(fld.value, i, "0")
    next i



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  brunogor 22/12/2020, 20:43

    Olá Franklin e Damasceno

    O código que me facultaram é 5*****.

    Hoje foi um dia de muita sorte, para além de me resolverem o problema, revi o Damasceno (ajuda já recorrente) e conheci Franklin e o scandinavo pela 1ª vez.

    A todos o meu muito, mas mesmo muito obrigado.

    Desejo-vos Boas festas e muita saúde.

    Abraço

    Bruno Gordino
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  brunogor 23/12/2020, 20:35

    Olá Damasceno,

    Resolvi reabrir o tópico, pois parece que alguma coisa está mal no seu código, experimentei e não altera qualquer digito para "0".

    Pode confirmar s.f.f. ou será que estou a fazer algo errado.

    Obrigado

    Bruno Gordino
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Re: [Resolvido] Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  DamascenoJr. 24/12/2020, 00:19

    Veja
    Anexos
    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" AttachmentexTrocarPorZero.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 7 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Substituir todos os números de uma "String" pelo digito "0" Empty Substituir todos os números de uma "String" pelo digito "0"

    Mensagem  brunogor 25/12/2020, 21:18

    Olá Damasceno,

    Mais uma vez eu é que estava errado, o seu Código está simplesmente correto.

    Muito obrigado pela tempo que dispensou comigo, ainda por cima nesta altura natalícia.

    Obrigado e Boas Festas

    Bruno Gordino

      Data/hora atual: 17/6/2021, 18:25