Power Builder - Espacios intermedios

Hola a todos:

Espero esten bien y les amndo saludos...

Resulta que necesito hacer un procedimiento en el cual tengo que quitar los espacios intermedios de mas que existan en una frase.

Por ejemplo:

El texto es el siguiente en el cual hay mas de un espacio intermedio entre Profesiona y "en" ademas hay otro espacio intermedio entre "en" y Sistemas...

Asesoria Profesional en Sistemas de Cómputo

El texto debe quedar asi:

Asesoria Profesional en Sistemas de Cómputo

sin espacios...

¿Alguien sabe como hacer este proceso?.

Gracias por su ayuda y tiempo

Eso lo puedes lograr con algo como esto:

li_pos_espacio=Pos(ls_hilera, ' ')
While li_pos_espacio > 0
ls_hilera=Mid(ls_hilera, li_pos_espacio, 1, 1)
li_pos_espacio=Pos(ls_hilera, ' ')
End Do

No tengo el PB a mano para probarlo, así que esta es la idea general.

Este ciclo debiera quitar todos los espacios, si quieres que deje sólo un espacio, debes buscar los lugares en donde hay dos espacios.

Hola JeinnerH :

Mil gracias por tu respuesta y ayuda... en verdad es muy valiosa.

Mira, con lo que me propones esta bien cuando se trata de uno o dos espacios, pero la cuestion es que los usurios, como bien sabes, a veces dejan uno espcio, o dos o tres o cuatro, dependiendo de la habilidad de cada usuario y la idea es quitar solo los espcios de mas y solo dejar uno en el caso de que exista una separacion entre cada palabra, pero siempre y cuando exista que hay mas de un espacio.

Nevamente te agradezco tu ayuda e intentare ver como puedo resolverlo.


Saludos

El proceso te sirve precisamente para eso, porque se repite siempre que encuentre un espacio, si lo que quieres es que se repita cada vez que encuentre dos espacios es cuestión de buscar dos espacios en cada Pos.

Por tanto se va a repetir siempre que encuentre dos espacios y va a dejar uno al final, entre cada palabra. Es cuestión de buscar donde haya dos espacios y quitar uno.

Revisalo para que veas que funciona.

Saludos.

Aquí está la función ya arreglada:

f_limpiar_hilera('-----ESTO---ES---UNA-----------PRUEBA----------- -', '--', '-')

Sólo hay que tener cuidado de no enviar en la hilera a buscar el mismo valor que la hilera a reemplazar, porque se enciclaría.

$PBExportHeader$f_limpiar_hilera.srf
global type f_limpiar_hilera from function_object
end type

forward prototypes
global function string f_limpiar_hilera (string as_hilera, string as_caracteres_buscar, string as_caracteres_reemplazar)
end prototypes

global function string f_limpiar_hilera (string as_hilera, string as_caracteres_buscar, string as_caracteres_reemplazar);Integer li_Posicion



li_Posicion=Pos(as_hilera, as_caracteres_buscar, 1)
Do While li_Posicion > 0
as_hilera=Replace(as_hilera, li_Posicion, Len(as_caracteres_buscar), as_caracteres_reemplazar)
li_Posicion=Pos(as_hilera, as_caracteres_buscar, 1)
Loop

RETURN as_hilera
end function