PRIMEIRO NOME

CARINHENA 21/03/2005 17:54:18
#74136
Pessoal, alguem sabe uma forma de simplesmente saber como pegar apenas um primeiro nome ??

exemplo:
Text1.text = "João ferreira augusto"
text2.text = "João"

ou seja, que o Text2 sempre de apenas o primeiro nome do text1?

qualquer ajuda é valido...
WEBMASTER 21/03/2005 17:56:41
#74137 Resposta escolhida 

Text1.Text = "João da Silva"
Text2.Text = iif(instr(1,Text1.text, " ") > 0, Trim(split(Text1.Text, " ")(0)), "")
USUARIO.EXCLUIDOS 21/03/2005 17:59:47
#74141
Pode ser assim também

Dim valores As Variant
valores = Split(" " & Text1)  'note que para pegar o primeiro se adiciona um
                                             'breve espaço " '
Text2 = valores(1)


Fui
WEBMASTER 21/03/2005 18:05:04
#74143
Germanir,

Cuidado, com a dúvida que ele tem vemos que o nível de conhecimento é básico, por isto é bom sempre demonstrar regras de validação para não dar problemas no código.


Private Sub Form_Load()
 Text2.Text = IIf(InStr(1, Text1.Text, " ") > 0, Trim(Split(Text1.Text, " ")(0)), "")
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar