topic-29503

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Diferencias en un string
Posted: Mon Oct 27, 2014 08:23 PM

Estimadso amigos:

Tengo:
cCuenta := "3258.0"
Si Hago SubStr(Alltrim(cCuenta),-2) Me muestra ".0" (esta bien)
Si comparo:
If SubStr(Alltrim(cCuenta),-2) = ".0" >>>>>> da .F. ERROR
If SubStr(Alltrim(cCuenta),-2) == ".0" ....tambien da .F. ERROR

Si hago SubStr(Alltrim(cCuenta),-2) <> ".0" tambien da .F. ESTA BIEN

Es raro.

Gracias., saludos.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 01:48 AM

Prueba colocando el alltrim dentro de un cValToChar, saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 10:27 AM

Intenta asi

Code (fw): Select all Collapse

If Rigth(Alltrim(cCuenta),2) = ".0"

Saludos,

Adhemar

Saludos,

Adhemar C.

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 11:39 AM

Es raro...
Así lo que tu escribes debería sin dudas funcionar...
La variable cCuenta es tal cual la escribes en tu ejemplo? Es decir caracter...
De no ser caracter, revisa si estás haciendo las conversiones correctas.

En este ejemplo funciona correctamente:

Code (fw): Select all Collapse

Function Probando()
Local cCuenta

cCuenta := "3258.0"

MsgInfo(SubStr(Alltrim(cCuenta),-2),STR(LEN(SubStr(Alltrim(cCuenta),-2)))) // Muestro resultado del substr y su largo en el título.

IF SubStr(Alltrim(cCuenta),-2)=".0"
   MsgInfo("OK") // Entra aquí.
ELSE
   MsgInfo("NO Ok")
ENDIF

Return nil

Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 02:34 PM

Si es tal cual lo muestro.
Lo raro es que si lo hago al reves, en lugar de comprobar "igual", verifico "diferente" lo controla.

Seguire viendo.
Gracias.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 03:01 PM

Probando y aviso.

Es raro, según lo muestran Uds. funciona, pero me faltaria algun registro de la bases de datos.
Algo estoy haciendo mal....

Saludos.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 03:06 PM

Se me ocurre al voleo...
Probar recorrer cCuenta con un for next e ir mostrando caracter a caracter con su correspondiente CHR()...

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 03:18 PM

Amigos esta funcionando como me lo mostraron los dos.

Mi error de un If y un else.

Muchas gracias y disculpen.

Saludos.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Diferencias en un string
Posted: Tue Oct 28, 2014 03:21 PM

Ok!!
Perfecto entonces!!
Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

FiveTech Support Forums

Continue the discussion