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

    Inverter sequência de caracteres

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3212
    Registrado : 21/04/2011

    Inverter sequência de caracteres Empty Inverter sequência de caracteres

    Mensagem  Marcelo David em 13/2/2012, 22:17

    Uma maneira simples para inverter uma sequência de caracteres, por exemplo:

    Marcelo = olecraM

    Ou ainda:

    1234567890 = 0987654321

    Espero que gostem!
    Anexos
    Inverter sequência de caracteres AttachmentInverteCaracteres.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (14 Kb) Baixado 95 vez(es)


    .................................................................................
    Marcelo David | Inverter sequência de caracteres LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    Inverter sequência de caracteres Empty Re: Inverter sequência de caracteres

    Mensagem  criquio em 13/2/2012, 23:42

    O strReverse é bem simples mesmo de usar. Vou deixar uma outra forma de se inverter um texto um pouco mais complexa tambem apenas como estudo para outras possibilidades:

    Código:
    Dim T As String, N As Integer

    N = Len(Me.txtNormal) - 1
    T = Right(Me.txtNormal, 1)

    Do While N > 0
        T = T & Mid(Me.txtNormal, N, 1)
        N = N - 1
    Loop

    Me.txtInvertido = T


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3212
    Registrado : 21/04/2011

    Inverter sequência de caracteres Empty Re: Inverter sequência de caracteres

    Mensagem  Marcelo David em 14/2/2012, 00:17

    Perfeito!
    Obrigado pela contribuição!


    .................................................................................
    Marcelo David | Inverter sequência de caracteres LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    Inverter sequência de caracteres Empty Re: Inverter sequência de caracteres

    Mensagem  JPaulo em 14/2/2012, 09:16

    Excelentes contribuíções, parabens ao dois.

    Eu uso este codigo à alguns anos;



    Public Function InverterTexto(strPalavras As String) As String
    Dim strPal As String
    Dim strConta As Long
    strConta = Len(strPalavras)
    Do Until strConta = 0
    strPal = strPal & Mid(strPalavras, strConta, 1)
    strConta = strConta - 1
    Loop
    InverterTexto = strPal
    End Function



    Me.SeuCampo.Value = InverterTexto(Me.SeuCampo.Value)

    Como diz o amigo WSenna, existem mil maneiras de fazer nestum.





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Inverter sequência de caracteres Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Inverter sequência de caracteres Folder_announce_new 102 Códigos VBA Gratuitos...
    Inverter sequência de caracteres Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 4/12/2020, 14:12