MUMPS eliminar blancos consecutivos
29.Jan.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