Ser�a una cosa as�: Eval String = %Subst(String:1:pos-1) + &Subst(String:pos+14:%len(String))
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:27 Para: [EMAIL PROTECTED] Asunto: RE: eliminar blancos dentro de una cadena de caracteres Lo de recorrer la cadena ya me lo temia, pero como harias lo de concatenar si la serie no esta dividida en dos? Saludos Paco Medina Dpto.Informatica Exclusivas Camacho, S.Ltda. -----Mensaje original----- De: Fernando P�rez [mailto:[EMAIL PROTECTED] Enviado el: martes, 11 de marzo de 2003 9:13 Para: '[EMAIL PROTECTED]' Asunto: RE: eliminar blancos dentro de una cadena de caracteres 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] _____________________________________________________ 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]
