Quitar varios caracteres en un String

Todo lo relacionado con REXX en este ambiente.
Responder
Avatar de Usuario
maiz2005
Colaborador
Colaborador
Mensajes: 182
Registrado: 14 Sep 2005, 17:51
País: España
Ciudad: Barcelona
Ocupación: System Programmer
Ubicación: Barcelona, España

Quitar varios caracteres en un String

Mensaje por maiz2005 » 23 Sep 2013, 10:24

Hola.

Yo tengo un String asi:

aaaaa, bbbbbbb, cccccccc,
aaaaa, bbbbbbb, cccccccc
aaaaa, bbbbbbb, cccccccc,
aaaaa, bbbbbbb, cccccccc,
aaaaa, bbbbbbb, cccccccc

Yo busco una palabra en cada linea usando WordPos, lo que pasa es que la palabra que busco no lleva "," y como ven en cada palabra lleva "," al final y no lleva al final de algunas lineas ..

Como le elimino las comas a cada String que lee con el DO WHILE ... ¿?

Yo cargo el archivo que leo asi:

address system "type " Tabla_gruposCICS with output stem output_gruposCICS.,
error stem error_type.

Luego busco la palabra asi:

Lineaa = output_gruposCICS.z

Existe = wordpos(User,Lineaa)
if Existe <> 0 then
do
/* Encontre = word(output_gruposCICS.z,Existe) */
aa = aa + 1
Grupo_bueno.aa = Grupo_encontrado
end

* La variable User puede contener palabras desde 3 a 8 caracteres.


Saludos
Mario Izaguirre
Tecnico de Sistemas
IBM z/Series

Avatar de Usuario
maiz2005
Colaborador
Colaborador
Mensajes: 182
Registrado: 14 Sep 2005, 17:51
País: España
Ciudad: Barcelona
Ocupación: System Programmer
Ubicación: Barcelona, España

Re: Quitar varios caracteres en un String

Mensaje por maiz2005 » 23 Sep 2013, 11:35

Hola.

De momento lo he solucionado asi:

Lineaa = output_gruposCICS.z
parse var Lineaa v1 v2 v3 v4 v5 v6 V7 v8 v9 v10
LineaBB = strip(v1,T,',') strip(v2,T,',') strip(v3,T,',') strip(v4,T,',') strip(v5,T,',') strip(v6,T,',') strip(v7,T,',') strip(v8,T,',') strip(v9,T,',') strip(v10,T,',')
/* say LineaBB */
Existe = wordpos(User,LineaBB)

le quito la coma al final de cada palabra usando STRIP() pero he separado cada linea en 10 variables que recibe del primer STRING() he visto que le pasa maximo 7 palabras, le agregue 3 var mas por si acaso el reporte que recibo llegara aumentar en 3 mas.
Mario Izaguirre
Tecnico de Sistemas
IBM z/Series

Avatar de Usuario
acevedo
Colaborador Senior
Colaborador Senior
Mensajes: 375
Registrado: 01 Abr 2005, 14:36
País: España
Ciudad: Malaga
Ocupación: Analista de desarrollo

Re: Quitar varios caracteres en un String

Mensaje por acevedo » 24 Sep 2013, 04:20

y que tal?

Código: Seleccionar todo

existe=wordpos(USER,TRANSLATE(Lineaa,' ',','))  

Avatar de Usuario
maiz2005
Colaborador
Colaborador
Mensajes: 182
Registrado: 14 Sep 2005, 17:51
País: España
Ciudad: Barcelona
Ocupación: System Programmer
Ubicación: Barcelona, España

Re: Quitar varios caracteres en un String

Mensaje por maiz2005 » 24 Sep 2013, 06:03

Muchas gracias.

Exelente, mas simple y en una linea.


Saludos.
Mario Izaguirre
Tecnico de Sistemas
IBM z/Series

Avatar de Usuario
Horacio Villa
Colaborador
Colaborador
Mensajes: 185
Registrado: 04 Dic 2003, 13:11
País: Argentina
Ciudad: Buenos Aires
Ocupación: DBA

Re: Quitar varios caracteres en un String

Mensaje por Horacio Villa » 28 Sep 2013, 09:05

Hola,

cómo funciona la sentencia:
address system "type " ..... ?
HV

Avatar de Usuario
maiz2005
Colaborador
Colaborador
Mensajes: 182
Registrado: 14 Sep 2005, 17:51
País: España
Ciudad: Barcelona
Ocupación: System Programmer
Ubicación: Barcelona, España

Re: Quitar varios caracteres en un String

Mensaje por maiz2005 » 29 Sep 2013, 06:50

Hola Horacio.

Es REXX para Windows, con eso abro el archivo para leer su contenido y se carga en un STEM.

Aqui hay unas referencias: http://www.ibm.com/developerworks/libra ... index.html


Saludos.
Mario Izaguirre
Tecnico de Sistemas
IBM z/Series

Responder