Me temo que en este caso vas a tener que recurrir a recorrer la cadena y
dejar en otra el texto sin blancos.

Lo que puedes hacer en tu caso , en lugar de dejarle 14 blancos a la cadena,
es concatenar la parte anterior a la ocurrencia que est�s buscando con la
parte posterior, con lo que evitas dejar blancos enmedio.

Saludos.

Fernando P�rez.
Cer�mica Saloni. Dpto. Sistemas
<mailto:[EMAIL PROTECTED]>


-----Mensaje original-----
De: medina [mailto:[EMAIL PROTECTED]
Enviado el: martes, 11 de marzo de 2003 9:04
Para: [EMAIL PROTECTED]
Asunto: RE: eliminar blancos dentro de una cadena de caracteres


Lo he probado y me sigue saliendo igual debe ser de otra manera.

Pues los blancos a eliminar no son de derecha ni de izquierda, son en medio,
y en diferentes posiciones.
este es parte del programa que ejecuto:

D CAMBIO          S                  14  INZ( '<TIPO>A</TIPO>' )

C     CAMBIO:14            SCAN            STRING:1             POS
4 0
C                          IF                   POS < > 0
C                          EVAL           %SUBST(STRING:POS:14) =  '14
blancos'
C                          ENDIF
    14 = Longitud del cambio 
    STRING = 1500  posiciones  segun archivo.
    1  =   Desde el principio de la serie
    POS = 0     si no encuentra la b�squeda
          Algo  si ha encontrado la serie , se queda con la posici�n inicial
donde aparace
                digamos la mas a la izquierda.
  Ejemplo:

1� La cadena esta asi:
<NVA_MAR_FAM_SUB>
<CODMAR>00</CODMAR><CODFAM></CODFAM><CODSUB></CODSUB><DESCRIP>MENAJE Y
MESA</DESCRIP> <TIPO>A</TIPO>  </NVA_MAR_FAM_SUB>

2� Despues del eval queda asi.
<NVA_MAR_FAM_SUB>
<CODMAR>00</CODMAR><CODFAM></CODFAM><CODSUB></CODSUB><DESCRIP>MENAJE Y
MESA</DESCRIP>                 </NVA_MAR_FAM_SUB>


Saludos

Paco Medina
Dpto.Informatica
Exclusivas Camacho, S.Ltda.


_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]

_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]

Responder a