30 de abril de 2004

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

No hay comentarios. :

Publicar un comentario