Reducir los espacios entre palabras a solo un espacio

Esta función fue solicitada en el Grupo de Noticias y este es un resumen de los mensajes y las respuestas.

Utilizando la libreria FOXTOOLS: (Mensajes de Fernando Bozzo y Hugo Ranea)

SET LIBRARY TO (HOME() + "FoxTools.fll")
? Reduce("  Reducir   los    espacios entre   palabras    a  solo un espacio")

Función en VFP (Mensaje de Ricardo Passians)

? ReduceAUnEspacio("  Reducir   los    espacios entre   palabras    a  solo un espacio")
FUNCTION ReduceAUnEspacio(tcCadena)
  DO WHILE AT(SPACE(2), tcCadena) > 0
    tcCadena = STRTRAN(tcCadena, SPACE(2), SPACE(1) )
  ENDDO
  RETURN ALLTRIM(tcCadena)
ENDFUNC

Función recursiva en VFP (Mensajes de Ricardo Passians y Luis María Guayán)

? ReduceAUnEspacio("  Reducir   los    espacios entre   palabras    a  solo un espacio")
FUNCTION ReduceAUnEspacio(tcCadena)
  RETURN IIF(AT(SPACE(2), tcCadena)=0, ;
    ALLTRIM(tcCadena), ;
    ReduceAUnEspacio(STRTRAN(tcCadena, SPACE(2), SPACE(1))))
ENDFUNC