17 de marzo de 2008

Separar las letras de una palabra

En ciertas ocasiones se nos presenta la necesidad de crear funciones para lograr objetivos simples , como el de separar el espacio entre las letras de una palabra ...

Ejemplo de uso:

? EspacioLetras("800234657-9",2)

FUNCTION EspacioLetras(_QueLetras,_NumeroEspacios)
  IF EMPTY(_QueLetras)
    RETURN ""
  ENDIF
  LOCAL ln, lc
  lc = ""
  FOR ln = 1 TO LEN(ALLTRIM(_QueLetras))
    lc = lc + SUBSTR(_QueLetras, ln, 1) + SPACE(_NumeroEspacios)
  ENDFOR
  RETURN lc
ENDFUNC
mgx

No hay comentarios. :

Publicar un comentario