Ordenamiento de Acentos en un ASORT

[TOTOVIOTTI]

Hola gente! Cómo están, estoy teniendo un problema de ordenamiento
en un asort por nombres de un listado de alumnos, ejemplo ordena de la siguiente manera:

REARTES, AGOSTINA
REGALO, RAMIRO
RÉBOLA, ANDRÉS // este estaría mal ordenado
RIBOLDI, JULIA

utilizo lo siguiente para definir mi prg:

REQUEST HB_Lang_ES // Para establecer idioma de Mensajes, fechas, etc..
REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..)
HB_LangSelect("ES") // Para mensajes, fechas, etc..
HB_SetCodePage("ESWIN") // Para ordenación (arrays, cadenas, etc..) *Requiere CodePage.lib
Set_MyLang("es_ES")

Aún así el asort lo hace mal, hago: ASORT(tabla,{|| x[1]<y[1]), cuando la visualizo, queda en el orden mostrado arriba.
Que puede ser?

Muchas gracias!
Roberto

[Garbi]

Yo probaria poniendo :


ASORT(tabla,{|| oemtoansi(x[1])<oemtoansi(y[1])) o ASORT(tabla,{|| ansitooem(x[1])<ansitooem(y[1]))

Creo recordar que era la primera opción, pero hace tiempo que no lo uso.

Una vez lo tengas claro, también puedes hacer la opción de al añadir en la tabla usar el comando correcto y quitarlo en el asort. Eso ya dependen de si la función es particular o publica (la usas para otras cosas)

Ya nos dices.

[TOTOVIOTTI]

Gracias por responder, pero creo que no tiene que ver con el ansitooem y oemtoansi,
porque cuando consulto el la tabla mysql lo ordena bien, y la visualización es correcta.
Supongo que es algo que me está faltando incluir para que el ordenamiento sea correcto.
Alguien tendrá otra idea?
Muchas gracias!

[karinha]

https://www.linguagemclipper.com.br/dicas/arrays

Regards, saludos.

[karinha]

En tu caso:

Code: Select all  Expand view  RUN

   ASORT( tabla )
 

Creo yo.

Regards, saludos.

[TOTOVIOTTI]

Hola João, gracias por tu ayuda, si si.. ya sé que se ordena así,
el tema es que no me ordena bien según los caracteres especiales, como "ñ" o
vocales acentuadas... este es mi tema...
Muchas gracias...

Roberto

[karinha]

Intenta asi:

Code: Select all  Expand view  RUN

   ? 'UTF8toSTR OEM : ',hb_utf8tostr( cStr )

   ? 'UTF8toSTR ANSI: ',hb_oemtoansi( hb_utf8tostr( cStr ) )
 

Regards, saludos.

[TOTOVIOTTI]

Perdón mi ignorancia, pero usar esa función dentro del asort?

Como debería armar el ordenamiento?
Muchas gracias y disculpas....

Saludos
Roberto

[karinha]

Tal vez:

Code: Select all  Expand view  RUN

ASORT( OemToAnsi( tabla ) )  // AnsiToOem()
 

Regards, saludos.