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

sin imagen de perfil

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


Power Builder

Publicado el 16 de Enero del 2003 por Victor Arreola (5 códigos)
26.699 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
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 16 de Enero del 2003gráfica de visualizaciones de la versión: Versión 1
26.700 visualizaciones desde el 16 de Enero del 2003
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)

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...
CerrarCerrar
CerrarCerrar
Cerrar

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

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s482