topic-16385

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Ordenar un Array

Posted: Mon Aug 17, 2009 10:11 AM

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.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Re: Ordenar un Array

Posted: Thu Aug 20, 2009 01:40 PM

Hola,

Yo creo que se ordena bien

Code (fw): Select all Collapse

#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

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Ordenar un Array

Posted: Wed Aug 26, 2009 07:31 AM

OK,

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

Gracias

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

FiveTech Support Forums

Ordenar un Array

Re: Ordenar un Array

Re: Ordenar un Array

Continue the discussion