[resolvido] Extrair dados de uma String

Moderador: Avelino Sampaio

Assis
Mensagens: 70
Registrado em: 11 Nov 2015, 15:33

[resolvido] Extrair dados de uma String

Mensagempor Assis » 11 Fev 2016, 00:06

Boa noite

Preciso de extrair de uma string sempre a segunda palavra da frase

Exemplo

Maria Graça Carvalho Campos ------------- preciso de extrair " Graça "

Maria Pimenta -------------------------------- preciso extrair " Pimenta "

Carlos Manuel Santos Cardoso ............. preciso extrair " Manuel

Obrigado
Última edição por Assis em 11 Fev 2016, 14:40, editado 1 vez no total.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1875
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Extrair dados de uma String

Mensagempor Avelino Sampaio » 11 Fev 2016, 10:37

Olá, Assis!

Use a função split() para isso. Exemplo de uma função:

Código:
Public Function fncExtrairSegundaPalavra(frase as string) as string
Dim k
k = split(frase," ")
fncExtrairSegundaPalavra = k(1)
End Function

Testando:

me!NomeCampo = fncExtrairSegundaPalavra(me!NomeCampoFrase)

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Assis
Mensagens: 70
Registrado em: 11 Nov 2015, 15:33

Re: [resolvido]Extrair dados de uma String

Mensagempor Assis » 11 Fev 2016, 14:41

Obrigado Mestre Avelino

Assis
Mensagens: 70
Registrado em: 11 Nov 2015, 15:33

Re: [resolvido] Extrair dados de uma String

Mensagempor Assis » 20 Fev 2016, 18:28

Boa tarde Mestre Avelino

Neste tópico que me ajudou e resolveu, queria mais uma coisa.
Exemplo
Maria Graça Carvalho Campos ------------- preciso de extrair " Graça "

Já sei tirar o segundo nome, graças ao amigo.

Queria tirar o Primeiro Nome ---- Só Maria. Mas de maneira que o espaço que existe entre os dois nomes não apareça.

Obrigado

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1875
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: [resolvido] Extrair dados de uma String

Mensagempor Avelino Sampaio » 22 Fev 2016, 21:20

Assis,

Não entendi. Vc quer como resposta MariaGraça.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Assis
Mensagens: 70
Registrado em: 11 Nov 2015, 15:33

Re: [resolvido] Extrair dados de uma String

Mensagempor Assis » 25 Fev 2016, 12:21

Bom dia Avelino

Quero mesmo é só Maria.

Porque a função que eu tenho devolve o Maria + o espaço que tem entre o Maria e Graça.

Avatar do usuário
Avelino Sampaio
Mensagens: 1875
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: [resolvido] Extrair dados de uma String

Mensagempor Avelino Sampaio » 25 Fev 2016, 18:01

Assis,

use a função trim() para excluir os espaços

Vc pode alterar a função para pegar a primeira. Exemplo:

Código:
Public Function fncExtrairSegundaPalavra(frase as string, posição) as string
Dim k
k = split(frase," ")
fncExtrairSegundaPalavra = trim(k(posição))
End Function



Testando:

me!NomeCampo = fncExtrairSegundaPalavra(me!nomeCampoFrase, 0)

Onde 0 extrair a primeira palavra e 1 extrai a segunda palavra

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Assis
Mensagens: 70
Registrado em: 11 Nov 2015, 15:33

Re: [resolvido] Extrair dados de uma String

Mensagempor Assis » 26 Fev 2016, 22:11

Obrigado Mestre Avelino
Bom fim de semana

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Off- Assuntos variados”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante