GET con PICUTRE de 999999 y punto (.)

[FiveWiDi]

Hola a todos,

Como debo especificar un PICTURE para un GET de una variable carácter (no numérica), que acepte sólo cifras y el punto (.)?

No doy con ello.

Muchas gracias,

[cmsoft]

Si el punto siempre tiene que estar en la misma posicion, es posible usar el PICTURE "99999.99" (Esto tambien te dejará poner espacios)

En caso que el punto pueda estar en cualquier lado, puedes validarlo con una expresión regular

Code: Select all  Expand view  RUN

....
@ 2, 2 GET oGet VAR cText OF oDlg VALID(Validar(cText))
...

STATIC FUNCTION Validar(c)
   LOCAL cRegEx := hb_regexComp("^[0-9]+([.][0-9]+)?$")  
   LOCAL aMatch

   aMatch = hb_regex( cRegEx, c )
   if Empty(aMatch)
      MsgInfo('No válido')
   endif

return !Empty(aMatch)
 

[FiveWiDi]

Si el punto siempre tiene que estar en la misma posicion, es posible usar el PICTURE "99999.99" (Esto tambien te dejará poner espacios)

En caso que el punto pueda estar en cualquier lado, puedes validarlo con una expresión regular

Code: Select all  Expand view  RUN

....
@ 2, 2 GET oGet VAR cText OF oDlg VALID(Validar(cText))
...

STATIC FUNCTION Validar(c)
   LOCAL cRegEx := hb_regexComp("^[0-9]+([.][0-9]+)?$")  
   LOCAL aMatch

   aMatch = hb_regex( cRegEx, c )
   if Empty(aMatch)
      MsgInfo('No válido')
   endif

return !Empty(aMatch)
 

De hecho estuve probando un método así utilizando VALID, pero pensé que podía existir un PICTURE para ello.
De momento lo resolveré así.
Gracias César,

[nageswaragunupudi]

Please try:

Code: Select all  Expand view  RUN

function GetDigits()

   local oDlg, oGet, cGet, cPic

   cGet  := Space( 8 )
   cPic  := "99999.99"

   DEFINE DIALOG oDlg SIZE 300,160 PIXEL TRUEPIXEL

   @ 40,40 GET oGet VAR cGet PICTURE cPic SIZE 100,20 PIXEL OF oDlg

   @ 80,40 BUTTON "OK" SIZE 60,40 PIXEL OF oDlg ACTION MsgInfo( cGet )

   ACTIVATE DIALOG oDlg CENTERED

   ? cGet
return nil 

[FiveWiDi]

Please try:

Code: Select all  Expand view  RUN

function GetDigits()

   local oDlg, oGet, cGet, cPic

   cGet  := Space( 8 )
   cPic  := "99999.99"

   DEFINE DIALOG oDlg SIZE 300,160 PIXEL TRUEPIXEL

   @ 40,40 GET oGet VAR cGet PICTURE cPic SIZE 100,20 PIXEL OF oDlg

   @ 80,40 BUTTON "OK" SIZE 60,40 PIXEL OF oDlg ACTION MsgInfo( cGet )

   ACTIVATE DIALOG oDlg CENTERED

   ? cGet
return nil 

Thanks Mr. Rao

But the dot is not allways at the same position.

[karinha]

Code: Select all  Expand view  RUN

   cPic  := "########"
 

Regards, saludos.

[FiveWiDi]

Code: Select all  Expand view  RUN

   cPic  := "########"
 

Regards, saludos.

Thanks Mr. João,

For me is ok, accept "0123456789.-+"