Código de Power Builder - Sustituir una cadena o caracter dentro de otra cadena string

Sustituir una cadena o caracter dentro de otra cadena string

Power Builder

(1)

Publicado el 16 de Enero del 2003 por Victor Arreola (5 códigos)

30.437 visualizaciones desde el 16 de Enero del 2003

Al menos hasta la versión 6.5, no existe una función de String de búsqueda y sustitución de subcadenas.
Simpre que importo información de DBF de FoxPro a MS-SQL Server corrijo los caracteres "%" por las "ñ" con esta función dentro de una DW y actualizo.

Versión 1
(1)

Publicado el 16 de Enero del 2003

gráfica de visualizaciones de la versión: Versión 1

30.438 visualizaciones desde el 16 de Enero del 2003

/************************* 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. */

Comentarios sobre la versión: Versión 1 (1)

miguel villacorta

13 de Enero del 2007

no seria mejor crear una tabla con los codigos ASCII para correjir los caracrteres extraños?

Responder

Comentar la versión: Versión 1

http://lwp-l.com/s482

Número de serie de una unidad

Corrector Ortográfico

Código de Power Builder - Sustituir una cadena o caracter dentro de otra cadena string

Versión 1(1)

Comentarios sobre la versión: Versión 1 (1)

Comentar la versión: Versión 1

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Versión 1
(1)