FoxPro/Visual FoxPro - Suprimir caracteres especiales

 
Vista:

Suprimir caracteres especiales

Publicado por Vicente (61 intervenciones) el 11/07/2007 21:05:57
Hola a todos, acudo de nuevo a su experiencia...si me pueden ayudar con lo siguiente:
Tengo una Tabla de Clientes (Nombre, Direccion, etc) la cual la tengo que exportar a un archivo txt para que la importe un Banco, hasta aqui no hay problema, el detalle es que me estan pidiendo que tal archivo no contenga caracteres especiales (ñ, #, etc)...estaba pensando en elaborar un programita que hiciera tal cambio, o sea que recorriera toda la tabla y campo por campo, palabra por palabra y hacer tal supresion, pregunto habra alguna ptra forma mas sencilla?

Por su aportacion muchas gracias de antemano...
Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Suprimir caracteres especiales

Publicado por Sergio (737 intervenciones) el 12/07/2007 14:50:52
Aca te paso una funcion espero te sirva

=caracteresEspeciales('string a enviar')

procedure caracteresEspeciales
lparameters lstring
for i = 1 to len(lstring)
if !betw(asc(substr(lstring,i,1)),65, 90) and ;
!betw(asc(substr(lstring,i,1)),97,122) and ;
!betw(asc(substr(lstring,i,1)),48, 57) and ;
asc(substr(lstring,i,1))<>32
lstring = stuff(lstring,at(substr(lstring,i,1),lstring),1,'')

endif
endfor
return lString
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Suprimir caracteres especiales

Publicado por Vicente (61 intervenciones) el 12/07/2007 17:56:09
Gracias Sergio, lo voy a poner en practica...
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar