extrair string de um texto palavra esquerda e direita

[lapinhazzz]

Bom dia amigos do forum
Desculpem eu estar ausente.
Mas regressei
tenho um banco de dados com nomes.
Gostaria que me indicassem como faço uma rotina para extrair o primeiro nome e o ultimo e juntar os dois.
Por exemplo

Carlos Miguel da Silva Martins

Quero o Carlos e o Martins

Já andei pesquisando no tutorial e não encontrei
Obrigado
Lapinhazzz

[esgici]

Código: Selecionar todos

/*

  First + Last words in a string
  
*/

PROCEDURE Main()

   CLS
   ?
   ? "First + Last words in a string"
   ?
   
   cUpString := "Carlos Miguel da Silva Martins"
   
   ? "Up String :",  cUpString
   ?
   
   cNewString := LEFT(   cUpString,  AT( " ", cUpString ) )+;
                 SUBSTR( cUpString, RAT( " ", cUpString ) + 1 )
                 
   ? "New String :",  cNewString
   ?
   

   
   @ MAXROW(), 0
   WAIT "EOF FLWs.prg"
   
RETURN // FLWs.Main()

[Clipper]

Prezado Colega

Segue abaixo um exemplo :

Código: Selecionar todos

*** Supondo que o nome do campo ou variável seja CNOME
nome:=LEFT(cnome, AT(" ", cnome) - 1)
sobrenome:=RIGHT(cnome,LEN(cnome)-RAT(" ", cnome) - 1)
ncompleto:=nome+" "+sobrenome

Até logo.

Marcelo