Ordenar un Array

[antolin]

Buenas amigos.

Tengo un pequeño problema, cuando ordeno un array, no me sale extamente como quisiera. Tengo un array con apellidos y el problema son los accentos y la Ñ.

Pongo al principio del programa:

REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN
HB_LangSelect("ES")
HB_SetCodePage("ESWIN")

Tengo CodePage.lib en el directorio de LIB del FWH y además, con Verse le indico que la coja como librería de terceros. Pero no se me ordena bien:

Sánchez me sale detras de SOTO, no entre Salazar y Santos, como quisiera que salga.

¿Como lo haceis?

Gracias de antemano.

[Carles]

Hola,

Yo creo que se ordena bien

Code: Select all  Expand view

#include 'Fivewin.ch'

REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN

FUNCTION Main()

   LOCAL a := {  OemToAnsi( 'Sánchez' ), 'SOTO', 'Santos', 'Sevilla', 'Salazar' }
   LOCAL c := ''
   LOCAL i

   HB_LangSelect("ES")
   HB_SetCodePage("ESWIN")

   a := ASort( a )

   FOR i := 1 To len(a)
       c += a[i] + CRLF
   NEXT

   msginfo(c)

RETU NIL

El resultado que aparce es:
SOTO
Salazar
Santos
Sánchez
Sevilla

[antolin]

OK,

por lo que veo la solución está en el OemToAnsi()

Gracias