Como Cambiar Caracter ¥ por Ñ????

[AGAG4]

Tengo el siguiente problema, hice una importación de datos de un sistema en clipper a mi aplicación en windows, usó Firebird 1.52, pero me he percatado que los nombres de los CLIENTES en vez de ponerle la Ñ le pone el signo ¥ al principio tuve problemas con las consultas de los clientes pero lo solucione con la siguiente función:

Código Delphi [-]
function AnSi2Ascii(AText:string):string;
const MaxLength = 255;
var PText : PChar;
begin
  PText:=StrAlloc(MaxLength);
  StrPCopy(PText,AText);
  {$IFDEF WIN32}
  CharToOEM(PText,PText); {32Bit}
  {$ELSE}
  AnsiToOEM(PText,PText); {16Bit}
  {$ENDIF}
  Result:=StrPas(PText);
  StrDispose(PText);
end;

Pero si quiero hacer una asignación para desaparecer ese caracter no me lo cambia, he realizado un ciclo donde reviso caracter por caracter si me encuentro con el signo raro y no me cambia ese signo por la Ñ, pongo ejemplo:

Código Delphi [-]
..
  for x:=1 to length(val) do
    result:=result+ANSI2ASCII(val[x]);
..

Agradezco cualquier sugerencia.

[marcoszorrilla]

Una pregunta:
Has probado a modificarlo a mano?

Te digo esto, porque puede ser que no hayas configurado bien el:
Charset:ISO8859_1
y el Collate:
Es_es

Y lo que esté ocurriendo es que no admita este tipo de caracteres.

Un Saludo.

[AGAG4]

Yo inicialmente cuando hice la Base de datos empece y sigo con ese mismo Collate y Charset, por cada campo VarChar le agrego estas 2 propiedades.

Gracias por su sugerencia.

[roman]

Como los caracteres de los datos que importas también dependen del juego de caracteres que tenías en Clipper, posiblemente te funcione importarlos primero usando UTF y luego ya pasándolo a tus bases con ISO8859_1.

// Saludos

[AGAG4]

Disculpe mi Ignorancía pero como hago eso con UTF????
Gracias Roman....

[marcoszorrilla]

UTF

Un Saludo.

[[Al González]]

¡Hola a todos!

Empezado por AGAG4

...en vez de ponerle la Ñ le pone el signo ¥...
..reviso caracter por caracter si me encuentro con el signo raro y no me cambia ese signo por la Ñ, pongo ejemplo:

Código Delphi [-]
  for x:=1 to length(val) do
    result:=result+ANSI2ASCII(val[x]);

Agradezco cualquier sugerencia.

Que tal Alfredo. El problema es que estás intentando convertir de OEM a ANSI con una función que convierte de ANSI a OEM (CharToOEM). Necesitas usar la función inversa, OEMToChar.

Para mayor facilidad, si tienes Delphi 7, mi sugerencia sería que utilizaras la función ghCadenaANSI de Interfaz GH (Uses IGHCadenas).

Código Delphi [-]
CadenaNueva := ghCadenaANSI (CadenaVieja);

Un abrazo acentuado.

Al González.

[AGAG4]

Muchas Gracias Al Gonzalez y MarcosZorrilla...

Las funciones que me comenta Al Gonzalez son Libres????

Lo solucione de la siguiente forma:

Código Delphi [-]
function LimpiaCharANSI(val:String):String;
var x:integer;
begin
  result:='';
  for x:=1 to length(val) do
    if (IntToStr(ord(val[x])) = '165') or ((IntToStr(ord(val[x])) = '209')) then
      result:=result+'Ñ'
    else
      result:=result+val[x];
end;

Que tengan Buen Día....

[[Al González]]

¡Hola a todos!

Empezado por AGAG4

...Las funciones que me comenta Al Gonzalez son Libres????...

Interfaz GH es una biblioteca de funciones gratuita, totalmente funcional e incluye el código fuente. Su tipo de licencia es freeware.

Un abrazo sin costo.

Al González.

[AGAG4]

Gracias por la información Al Gonzalez....

Saludos....

[AGAG4]

No puedo bajar la libreria que me comenta AL Gonzalez
Asi se llama el archivo que se descarga:
InterfazGH7%
2Ezip&tw=43200&kv=7&ct=1128549310&kpp=1&ver=2.1.0173.1&tpf=c3f3cef47a4d8cfcd3e3bf83dd97c21c

Saludos....

[AGAG4]

Lo que me paso es que tenía un programa para descarga de archivos, lo desinstale y listo ....

Saludos....