Page 1 of 1

ayuda urgente, codepage :-(

Posted: Wed Mar 01, 2006 6:16 pm
by carlos vargas
Hola amigos, hoy tengo el siguiente problema.

dado el siguiente codigo:

Code: Select all


REQUEST  HB_LANG_ESWIN, HB_CODEPAGE_ESWIN

PROCEDURE t()
   LOCAL cCadena
   LOCAL cI, cF, nI, nF

    hb_langselect( "ESWIN" )
    hb_setcodepage( "ESWIN" )

   cI="A"
   cF="Z"
   nI=Asc(cI)
   nF=Asc(cF)
   cCadena=""
   FOR x=nI TO nF
      cCadena = cCadena + Chr(x)
   NEXT
   cCadena = cCadena + " - " + STR(LEN(cCadena))
   alert(cCadena)
return
Necesito que me retorne "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ", aca la Ñ es la del problema. (nota: se que Ñ tiene un valor asc de 165), lo que quiero saber es si modificando el codepage por ejemplo con
hb_setcodepage("ESWIN") funciona?

he probado con este codepage y no me funciona :-(, esto me urge (para variar :-) )

estoy usando xharbour.

gracia por la ayuda :-)

salu2
carlos vargas.