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

Sustituir una cadena o caracter dentro de otra cadena stringgráfica de visualizaciones


Power Builder

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 16 de Enero del 2003 por Victor Arreola
23.244 visualizaciones desde el 16 de Enero del 2003. Una media de 35 por semana
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
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 16 de Enero del 2003gráfica de visualizaciones de la versión: Versión 1
23.245 visualizaciones desde el 16 de Enero del 2003. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
/************************* 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
estrellaestrellaestrellaestrellaestrella
no seria mejor crear una tabla con los codigos ASCII para correjir los caracrteres extraños?
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s482