Quitar Ceros de la derecha. Error al compilar

Quitar Ceros de la derecha. Error al compilar

Postby tsales » Wed Dec 05, 2007 7:40 pm

Antonio

La funcion que te adjunto devuelve la cadena pasada quitando los ceros de la derecha.
Por ejemplo: cQuitaCeros("123.456000"), devuelve "123.456".

Compilada con xHarbour funciona correctamente pero si la compilo con Harbour_CE obtengo el siguiente error de compilación y desconocemos el motivo.
¿Que estoy haciendo mal?
Te agradeceria me lanzaras un cable.

Saludos
Toni Sales
********* ERROR DE COMPILACION *******************
error C2223: left of '->item' must point struct/union

********* LA FUNCION ******************************
#include "hbapi.h"
HB_FUNC ( CQUITACEROS )
{

PHB_ITEM pItem;
char *szText;
int i;
int n;
char * szResult;


pItem = hb_param(1, HB_IT_STRING);

if( pItem )
{
szText = pItem->item.asString.value;
i = (int) pItem->item.asString.length -1 ;
n = 0;

while( i >= 0)
{
if(szText[i] != '0')
{
n = ( n != 0 ? n : i );
}
i--;


}

if( n != 0)
{
szResult = ( char * ) hb_xgrab( n+1 );
memcpy( szResult, szText , n+1);
hb_retclenAdopt( szResult, n+1 );
return;

}


}

hb_ret();
return;

}
Toni Sales
tsales
 
Posts: 186
Joined: Sat Oct 08, 2005 7:32 am

Postby Antonio Linares » Wed Dec 05, 2007 8:10 pm

Toni,

La estructura HB_ITEM está protegida en Harbour, igual que en Windows usamos un handle (puntero) de ventana, pero no el contenido de lo apuntado por ese handle. Eso aumenta la seguridad y la compatibilidad con futuros cambios.

Aún así, puedes superar esa barrera de esta forma:

#define _HB_API_INTERNAL_
#include <hbapi.h>
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42053
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jlcapel » Wed Dec 05, 2007 8:36 pm

Antonio,

La estructura HB_ITEM está protegida en Harbour, igual que en Windows usamos un handle (puntero) de ventana, pero no el contenido de lo apuntado por ese handle. Eso aumenta la seguridad y la compatibilidad con futuros cambios.


Entonces... ¿como debemos tratar los punteros a ITEM de Harbour? ¿Cuales funciones podríamos usar?

Saludos y gracias por tu luz.
José Luis Capel
User avatar
jlcapel
 
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España

Postby Antonio Linares » Wed Dec 05, 2007 8:43 pm

Jose Luis,

> Entonces... ¿como debemos tratar los punteros a ITEM de Harbour?

Como "handles" (no modificables) y no como punteros :-)

> ¿Cuales funciones podríamos usar?

Depende de lo que querais hacer. En vuestra función es suficiente con usar hb_parc() y hb_retc() :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42053
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Wed Dec 05, 2007 9:06 pm

Bueno, tambien han hecho falta hb_parclen() y hb_retclen() :-)

Aqui la teneis funcionando:
Code: Select all  Expand view
function main()

   MsgInfo( cQuitaCeros( "123.4560000" ) )

return nil

#pragma BEGINDUMP

#include <hbapi.h>

HB_FUNC( CQUITACEROS )
{
   char * pszText = hb_parc( 1 );
   char * psz = pszText;

   while( * psz != '.' && * psz != 0 )
      psz++;

   if( * psz != 0 )
   {
      psz = pszText + hb_parclen( 1 ) - 1;

      while( * psz == '0' )
         psz--;

      hb_retclen( pszText, psz - pszText + 1 );
   }
   else
      hb_retc( pszText );
}

#pragma ENDDUMP                 
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42053
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jlcapel » Wed Dec 05, 2007 9:22 pm

Antonio,

Eres un crack!! Muchas gracias!

Saludos,
José Luis Capel

PD: una pregunta de novatillo en esto del c...

Code: Select all  Expand view
while( * psz != '.' && * psz != 0 )
      psz++;


Va de izquierda a derecha... ¿verdad?
User avatar
jlcapel
 
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España

Postby Antonio Linares » Wed Dec 05, 2007 10:33 pm

José Luis,

> Va de izquierda a derecha... ¿verdad?

Si, igual que en lenguaje Clipper :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42053
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby tsales » Thu Dec 06, 2007 8:49 am

Antonio, Jose Luis
Gracias a ambos. Funciona perfecto.
Toni Sales
tsales
 
Posts: 186
Joined: Sat Oct 08, 2005 7:32 am

Postby jlcapel » Thu Dec 06, 2007 4:26 pm

Antonio,

A ver que te parece ésta. Va de derecha a izquierda :lol: :lol: :lol: .

Code: Select all  Expand view
FUNCTION MAIN()

MsgInfo( cQuitaCeros("29384.234200000"))

RETURN NIL

#pragma BEGINDUMP

#include "hbapi.h"

HB_FUNC( CQUITACEROS )
{

   char * s = hb_parc(1);
   char * p = s ;
   p       += hb_parclen(1) -1;

   while ( *p == '0' || *p == '.')
   {
      if( *p == '.')
      {
         p--;
         break;
      }
      p-- ;
   }

   hb_retclen(s, p - s +1 );

}

#pragma ENDDUMP
User avatar
jlcapel
 
Posts: 229
Joined: Wed Oct 12, 2005 5:32 pm
Location: Valencia - España

Postby Antonio Linares » Thu Dec 06, 2007 5:16 pm

Jose Luis,

Está muy bien! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42053
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 1 guest