imagen

sistemas operativos = on

de momento ...

MUMPS eliminar blancos consecutivos

January 29, 2013 — Julio

Eliminar varios blancos consecutivos de una cadena de texto:

F X=1:1:$L(TEXTO) I $E(TEXTO,X,X+1)=" " S TEXTO=$E(TEXTO,1,X)_$E(TEXTO,X+2,$L(TEXTO)) S X=X-1

Útil cuando queremos unir en una única línea otras varias de otra fuente.

Tags: MUMPS

Comments? Tweet