Power Builder - //:-) Funcion#04 de la Semana

Amigos PowerBuilderos:
Les envio la funcion de la semana, luego la podran ver en CODIGO FUENTE.
/************************* Funcion#04 *****************************
Comentario: Al menos hasta la version 6.5,no existe una funcion de String
de Busqueda y sustitucion de subcadenas.
Simpre que importo informacion de DBF de FoxPro a MS-SQL Server
corrijo los caracteres "%" por las "ñ"
con esta funcion dentro de una DW y actualizo.
Funcion PB: Sustituir una cadena o caracter dentro de otra cadena string.
Retorna : String 'JOSE PEÑUÑURI NUÑEZ'
Ejemplo : ls_corregida = fx_sustituir('JOSE PE%U%URI NU%EZ','%','Ñ')
Autor : Lic. Victor Arreola //:-)
Sintaxis: string fx_sustituir(string {Value} as_cadena,string {ReadOnly} as_anterior,string {ReadOnly} as_sustituto)
******************************************************************/
string fx_sustituir(string {Value} as_cadena,string {ReadOnly} as_anterior,string {ReadOnly} as_sustituto)
/////////////////
DO WHILE POS(as_cadena,as_anterior)<>0
as_cadena=mid(as_cadena,1,POS(as_cadena,as_anterior)-1)+ &
as_sustituto+mid(as_cadena,POS(as_cadena,as_anterior)+ &
len(as_anterior),len(as_cadena))
LOOP
return as_cadena

/*eof F4. */

Saludos a todos //:-)
Victor