topic-7164

Posts: 6

Joined: Fri Mar 02, 2007 12:39 PM

problemilla con la ñ
Posted: Thu May 31, 2007 11:27 AM

¿Como podriamos capturar la letra ñ en mayúscula?
Con el picture "@!" ingreso todas las letras en mayúscula (independientemente si tengo activado ó no el Bloq-Mayús).
Menos la ñ.
Gracias.

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

problemilla con la ñ
Posted: Thu May 31, 2007 02:19 PM

Holas,,
Luego de la captura (ouede ser en el valid) podrias usar esto:

Function RevisaLetras(cDat)
local nLen, nCont
If VALTYPE(cDat) = "A" // es un array
nLen := LEN(cDat)
FOR nCont := 1 TO nLen
IF VALTYPE(cDat[nCont]) = "C"
cDat[nCont] := STRTRAN(cDat[nCont],"'","´")
cDat[nCont] := STRTRAN(cDat[nCont],"'","´")
cDat[nCont] := STRTRAN(cDat[nCont],"ñ","Ñ")
ENDIF
NEXT nCont
Else
cDat := STRTRAN(cDat,"'","´")
cDat := STRTRAN(cDat,"`","´")
cDat := STRTRAN(cDat,"ñ","Ñ")
EndIF
Return(cDat)

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

problemilla con la ñ
Posted: Thu May 31, 2007 03:13 PM

Uri

modifica la clase tget en la METHOD KeyChar

yo la modifique asi

Code: Select all Collapse

   if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
      nKey = Asc( Upper( Chr( nKey ) ) )
		//patricio
		if nKey = 241 // ñ
			nKey := 209 // Ñ
		endif
		//fin patricio
   endif

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Uri

Posts: 6

Joined: Fri Mar 02, 2007 12:39 PM

problemilla con la ñ
Posted: Fri Jun 01, 2007 09:32 AM

Gracias, voy a intentarlo.

FiveTech Support Forums

Continue the discussion