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]Trocar letra por numero especifico

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Trocar letra por numero especifico Empty [Resolvido]Trocar letra por numero especifico

    Mensagem  Mylton Ter 27 Fev - 13:53



    Se tenho um campo com resultado "BFEBFBFF000706A1-YD06PP4Z" gostaria que cada letra desse sempre "213478".

    Criei essa funcao....



    Function LetrasParaNumeros(texto As String) As String

    ' Substitui cada letra e caracteres especiais pelo conjunto de números '213478' no texto
    LetrasPorNumeros = Replace(texto, "A", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "B", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "C", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "D", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "E", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "F", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "G", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "H", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "I", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "J", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "K", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "L", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "M", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "N", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "O", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "P", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "Q", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "R", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "S", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "T", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "U", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "V", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "W", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "X", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "Y", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "Z", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "!", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "@", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "#", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "$", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "%", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "&", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "*", "213478")
    LetrasPorNumeros = Replace(LetrasPorNumeros, "-", "213478")
    ' Adicione mais caracteres especiais conforme necessário
    End Function


    Qual seria a forma de trocar letra por uma sequencia de numero igual, ou seja, cada letra é trocada por "213478", mantendo os numeros ja existntes num evento d um botao.

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Trocar letra por numero especifico Empty Re: [Resolvido]Trocar letra por numero especifico

    Mensagem  Mylton Ter 27 Fev - 16:15

    Tentando exemplificar
    Número encontrado = “14BM2Z”
    Trocar para “142134782134782213478”.
    Seria isso que estou pensando.
    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]Trocar letra por numero especifico Empty Re: [Resolvido]Trocar letra por numero especifico

    Mensagem  Avelino Sampaio Qua 28 Fev - 5:48

    Olá!

    Segue uma função para o seu caso:

    Public Function fncAjustaTexto(strTexto As String)
    Dim j%
    Dim strNovoTexto As String
    Dim strParte
    For j = 1 To Len(strTexto)
       strParte = Mid(strTexto, j, 1)
       If Eval("""" & strParte & """ IN('0','1','2','3','4','5','6','7','8','9')") Then
           'identificando número
           strNovoTexto = strNovoTexto & strParte
       Else
           'identificando letra
           strNovoTexto = strNovoTexto & "213478"
       End If
    Next
    fncAjustaTexto = strNovoTexto
    End Function


    Exemplo:

    fncAjustaTexto("BFEBFBFF000706A1-YD06PP4Z")
    2134782134782134782134782134782134782134782134780007062134781213478213478213478062134782134784213478

    Sucesso!


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Trocar letra por numero especifico Empty Re: [Resolvido]Trocar letra por numero especifico

    Mensagem  Mylton Qua 28 Fev - 6:58

    Bom dia
    Obrigado Avelino.
    Saudações tricolores.

    Conteúdo patrocinado


    [Resolvido]Trocar letra por numero especifico Empty Re: [Resolvido]Trocar letra por numero especifico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qua 22 maio - 21:56