problemas con la Ñ lower ( SOLUCIONADO )

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

problemas con la Ñ lower ( SOLUCIONADO )
Posted: Fri Oct 28, 2011 10:32 PM

Estimados

Tengo problemas con la letra Ñ, la funcion lower() no funciona con esta Letra

existe la funcion CHARUPPER que hace lo Contrario, revice dicha funcion para cambiarla a lower pero me arroja error al compilar

Code (fw): Select all Collapse

Warning W8065 .\\SalidaAR.PRG 1598: Call to function 'HB_ISNUM' with no prototyp
e in function HB_FUN_CHARLOWER
        c:\borland\bcc582\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_ISNUM' referenced from D:\APL\PRGS\BENAVENTE\ARR
IENDO\OBJ\SALIDAAR.OBJ

existira la funcion CHARLOWER ??

trate de hacer esto pero no me compila, es sacada de la funcion CHARUPPER

Code (fw): Select all Collapse

#pragma BEGINDUMP
#include <Windows.h>

HB_FUNC( CHARLOWER )
{
   unsigned char uc[ 2 ];

   if( HB_ISNUM( 1 ) )
   {
      uc[ 0 ] = hb_parnl( 1 );
      uc[ 1 ] = 0;

      hb_retc( CharLower( ( LPSTR ) uc ) );
   }
   else
      hb_retc( CharLower( ( char * ) hb_parc( 1 ) ) );
}
#pragma ENDDUMP

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

jll-fwh

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: problemas con la Ñ lower
Posted: Sat Oct 29, 2011 02:14 AM

Patricio:

No funcionan ni lower() y upper()

Un saludo
JLL

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: problemas con la Ñ lower
Posted: Sat Oct 29, 2011 02:21 AM

Patricio prueba asi..

Code (fw): Select all Collapse

#include "fivewin.ch"

function main()
  Local cChar:= "Ñ"
  
  ? cChar
  cChar:= CharLower( cChar )
  ? cChar
return nil

#pragma BEGINDUMP

#include <Windows.h>

HB_FUNC( CHARLOWER )
{
   LPSTR cChar;
   
   cChar = CharLower( (LPSTR) hb_parc(1) );
   hb_retc( cChar );
}

#pragma ENDDUMP

Saludos,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: problemas con la Ñ lower
Posted: Sat Oct 29, 2011 01:19 PM

Excelente

Muchas Gracias Albeiro.

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

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: problemas con la Ñ lower ( SOLUCIONADO )
Posted: Sat Nov 05, 2011 03:53 PM

Estimados

Solo un detalle, que modifica la variable con si se pasara por referencia
alguna forma que no modifique dicha variable

Code (fw): Select all Collapse

ejemplo
local p := "HOLA ÑOÑO"
? CharLower( p )  // hola ñoño
? p // hola ñoño, no deberia modificar la variable !no me gusta!!!

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

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: problemas con la Ñ lower ( SOLUCIONADO )
Posted: Mon Nov 07, 2011 12:55 PM

Hola Patricio,

Prueba asi :

Code (fw): Select all Collapse

#include "fivewin.ch"

function main()
  Local cChar:= "ÑOÑO"
  
  ? cChar
  ? CharLower( cChar )
  ? cChar
return nil

#pragma BEGINDUMP

#include <Windows.h>

#define MAX_CHAR 300

HB_FUNC( CHARLOWER )
{
   CHAR cChar[MAX_CHAR];
      
   strcpy( cChar, (LPSTR)hb_parc(1) );
   CharLower( cChar );
   hb_retc( cChar );
}

#pragma ENDDUMP

Saludos,

Albeiro,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: problemas con la Ñ lower ( SOLUCIONADO )
Posted: Mon Nov 07, 2011 01:04 PM

Excelente

ahora si, queda solucionado.. jeje

Muchas gracias Albeiro..

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

FiveTech Support Forums

Continue the discussion