dado el siguiente codigo:
- Code: Select all Expand view
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.
