FoxPro/Visual FoxPro - eliminar espacios de varias longitudes en una cadena

Hola, tengo cadenas de este tipo: "Jr. Miguel Angel 417 Int 5 Dpto 7 Lte 9" para ser mas claro en los espacios, los representare por "#" :"Jr.#Miguel#Angel#417##Int#5###Dpto#7####Lte#9"
Lo deseo asi: "Jr. Miguel Angel 417 Int 5 Dpto 7 Lte 9" (espaciado normal).

He tratado de usar STRTRAN(), AT(), etc. pero me he bloqueado y no logro perfeccionar la rutina. Favor
alquien puede ayudarme. Gracias

Hola amigos, para aquellos que tengan este tipo de contratiempos, les comento que ya solucione el problema
y la clave es reemplazar los espacios en blanco de 2 en dos con caracteres poco comunes como por ejm. con caracteres
ascii, usando STRTRAN, luego "borrar" con el mismo comando el segundo caracter, despues convertir el primer caracter
en espacio en blanco. Esta rutina se debe repetir tantas veces como el maximo espaciado que hay dentro de la cadena .
Bueno gracias por su atencion.

No se hubiera complicado amigo mío. Era más simple reemplazar el doble espacio con un espacio y listo, utilizando la misma función strtran.

Eduardo

Si es cierto, gracias por tu consejo. Saludos

Buena base de trabajo... a perfilar

Sustituir cada pareja de espacios (STRTRAN) por un sólo espacio deja un sólo espacio obviamente si y solo si los espacios presentes en la cadena origen son 1 ó 2. Por ejemplo si entre dos palabras hay 3 espacios, esta sustitución deja 2 espacios como resultado, haciendose preciso reiterar la operación para dejar uno sólo.

Es fácil comprobar (y obvio), que las reiteraciones dependen del número de espacios (por ejemplo con 9 espacios estre palabra habria que hacer 4 pasos.....) : 9... 5 - 3 - 2 - 1

Lo lógico es hacer una iteración con salida cuando se detecte que no hay más sustituciones a hacer por cualquier método de test, como que en la última sustitución no ha variado la longitud de la cadena o que ya no queden más parejas de espacios (más óptimo).

Usei uma parte da ideia do Baldo