[Resolvido]Contar retornar números de uma string

Marcos Pinheiro 18/4/2013, 23:42

Marcos Pinheiro: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 61
Registrado : 14/02/2013

Mensagem nº1

Contar retornar números de uma string

Mensagem Marcos Pinheiro 18/4/2013, 23:42

Boa noite colega!
Preciso de mais uma ajuda:

Tenho uma caixa de texto que contém números e palavras.
Preciso que retorne apenas os númeos da seguinte forma:

Caixa de texto abaixo:

Casa e jardim, 1, 23, 27, janela 17

Preciso que retorne isso:
1, 23, 27, 17

Ou seja, apenas os números.

Isso é possível?

Grato

**Avelino Sampaio** 19/4/2013, 08:25

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº2

Re: [Resolvido]Contar retornar números de uma string

Mensagem Avelino Sampaio 19/4/2013, 08:25

Sim

Segue a função:

Public Function fncExtrairSeq(strSeq As String) As String
Dim j, p, k%, t%
Dim NovaSeq As String

j = Split(strSeq, ",")

For k = 0 To UBound(j)
    If IsNumeric(j(k)) Then
        NovaSeq = NovaSeq & Trim(j(k)) & ","
    Else
        p = Split(j(k), " ")
        For t = 0 To UBound(p)
            If IsNumeric(p(t)) Then NovaSeq = NovaSeq & Trim(p(t)) & ","
        Next
    End If
Next
fncExtrairSeq= Left(NovaSeq, Len(NovaSeq) - 1)
End Function

Na fonte do campo, coloque:

=fncExtrairSeq([NomeCampoSequencia])

Sucesso!

Última edição por Avelino Sampaio em 8/7/2013, 18:53, editado 1 vez(es)

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