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


3 participantes

    Separar Texto de número

    avatar
    anisioestevao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 28/11/2016

    Separar Texto de número  Empty Separar Texto de número

    Mensagem  anisioestevao 2/12/2016, 17:06


    Prezados,

    Boa tarde!

    Preciso de uma formula para o Access que separe o número do texto, sendo que
    o número não segue um ordem dentro do texto, por exemplo:

    Assunto: Verificar o documento 9456789456 urgente cod 630 - preciso separar o número 945678456
    ou

    Assunto: Proposta 565879321 cidade de São Paulo Cod 60 - preciso separar o número 565879321


    O objetivo é separar do texto os número que contém 9 caracteres, isso é possível ?


    Obrigado


    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Separar Texto de número  Empty Re: Separar Texto de número

    Mensagem  FabioPaes 2/12/2016, 19:01

    Parte do que precisa:
    Extrai somente os Números!

    Porem, como vc postou, pode ocorrer de vir vários Números desnecessários nesse texto. Então fica complicado amigo... muito mesmo pois não ha padrão algum...

    Crie um Modulo Com esse Conteúdo:
    Código:
    Public Function SoNumero(Text As String) As String
        Dim i As Integer, j As String
        For i = 1 To Len(Text)
            If Asc(Mid(Text, i, 1)) < 48 Or _
              Asc(Mid(Text, i, 1)) > 57 Then
            Else
                j = j & Mid(Text, i, 1)
            End If
            SoNumero = j
        Next
    End Function

    Agora chame a função em uma consulta por Exemplo assim:
    Em um Campo Novo da consulta coloque:
    SoNumero([NomeCampoComTexto])


    Lhe retornará nesse Campo somente o que for Numero.
    945678456630

    56587932160




    Fonte:vbweb.com.br/forum_resp.asp?Forum=VB&Codigo=221385


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Separar Texto de número  Empty Re: Separar Texto de número

    Mensagem  Avelino Sampaio 3/12/2016, 07:32

    Olá!

    Utilizando Expressões Regulares a tarefa fica bem simples. Acompanhe este meu artigo:

    Nota: Copie e cole o link abaixo no seu navegador.

    usandoaccess.com.br/tutoriais/expressoes-regulares-microsoft-access.asp?id=1#inicio

    Sucesso!


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 28/11/2016

    Separar Texto de número  Empty Re: Separar Texto de número

    Mensagem  anisioestevao 5/12/2016, 19:40

    Amigos,

    Agradeço ajuda, sou iniciante nesta parte de programação.


    Para as 2 respostas aparece a seguinte mensagem:

    Função 'xxxxxxx' indefinida na expressão.

    Poderiam me enviar o arquivo ? anisioestevao@terra.com.br


    Conteúdo patrocinado


    Separar Texto de número  Empty Re: Separar Texto de número

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:31