Función para extraer cadena numérica

[VictorCasajuana]

Hola.

Estoy enfrascado en un tema que no le veo la punta y seguro será simplón pero no he trabajado nunca de esta forma.

Tengo un control que activa opciones mediante un número, por ejemplo:
Opción 1 : valor 1
Opción 2 : valor 2
Opción 3 : valor 4
Opción 4 : valor 8

y así sucesivamente.

El control me devuelve un número según las opciones que se hayan activado, por ejemplo si se activa la opción 2 y opción 4, me devuelve 2 + 8 = 10

Con el dato 10 tengo que extraer el 2 y el 8

He probado la función IsBit() pero no acaba de cuadrarme bien.

Al tener un desconocimiento total de este tipo de funciones y antes de reinventar la rueda haciendo una función para ello, pregunto por si alguien me puede dar una pista de si FWH ya lleva algo que procese este tipo de datos.

Gracias de antemano y salud!

[Antonio Linares]

Victor,

Puedes usar las propias funciones de Harbour:

? hb_bitAnd( 10, 2 )
? hb_bitAnd( 10, 8 )

Si escribes 10 en binario obtemos esto (puedes usar la calculadora de Windows en modo programador): "1010"

hb_bitAnd( 10, 2 ) intenta hacer un "and" del bit segundo entre "1010" y "10" (dos en binario). Efectivamente ambos tienen el bit "segundo" encendido y devuelve 2 (que es el valor "10")

hb_bitAnd( 10, 8 ) intenta hacer un "and" del bit cuarto entre "1010" y "1000" (ocho en binario). Efectivamente ambos tienen el bit "cuarto" encendido y devuelve 8 (que es el valor "1000")

También tienes la funcion hb_bitOr() que te permite hacer operaciones "or" en vez de operaciones "and".

Por ejemplo ? hb_bitOr( 10, 5 ) devuelve 15 (que es el valor binario "1111") que seria la "unión" de "1010" y "0101" (5)

[Antonio Linares]

Si prefieres usar las funciones de FWH lo harías asi:

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   MsgInfo( IsBit( 10, 2 ) ) // está encendido el segundo bit del valor 10 ?
   MsgInfo( IsBit( 10, 4 ) ) // está encendido el cuarto bit del valor 10 ? 

return nil

[Carles]

V,

Creo q esta ebtrada del amic Biel te servira...

https://bielsys.blogspot.com/2015/01/ma ... rbour.html

Salut.
C.

[nageswaragunupudi]

Code: Select all | Expand

function ValSplit( nTotal )

   local aResult  := {}
   local n        := 1

   DEFAULT nTotal := 10

   do while n <= nTotal
      if lAnd( nTotal, n )
         AAdd( aResult, n )
      endif
      n  += n
   enddo

return aResult

Usage:

Code: Select all | Expand

? ValSplit( 10 ) // -> { 2,8 }
? ValSplit( 12 ) // --> { 4,8 }

[Carles]

Rao,

very elegant, as usual...

C.

[VictorCasajuana]

wow!
me siento abrumado por la rápida respuesta de 3 masters!!!!

Victor,

Puedes usar las propias funciones de Harbour:

? hb_bitAnd( 10, 2 )
? hb_bitAnd( 10, 8 )

Si escribes 10 en binario obtemos esto (puedes usar la calculadora de Windows en modo programador): "1010"

hb_bitAnd( 10, 2 ) intenta hacer un "and" del bit segundo entre "1010" y "10" (dos en binario). Efectivamente ambos tienen el bit "segundo" encendido y devuelve 2 (que es el valor "10")

hb_bitAnd( 10, 8 ) intenta hacer un "and" del bit cuarto entre "1010" y "1000" (ocho en binario). Efectivamente ambos tienen el bit "cuarto" encendido y devuelve 8 (que es el valor "1000")

También tienes la funcion hb_bitOr() que te permite hacer operaciones "or" en vez de operaciones "and".

Por ejemplo ? hb_bitOr( 10, 5 ) devuelve 15 (que es el valor binario "1111") que seria la "unión" de "1010" y "0101" (5)

Perfecto Antonio, entendido alto y claro, esto es lo que necesitaba!!

V,

Creo q esta ebtrada del amic Biel te servira...

https://bielsys.blogspot.com/2015/01/ma ... rbour.html

Salut.
C.

de lujo, me ha ido bien pegarle un vistazo, además he repasado los artículos, siempre va bien leer un rato.

Code: Select all | Expand

function ValSplit( nTotal )

   local aResult  := {}
   local n        := 1

   DEFAULT nTotal := 10

   do while n <= nTotal
      if lAnd( nTotal, n )
         AAdd( aResult, n )
      endif
      n  += n
   enddo

return aResult

Usage:

Code: Select all | Expand

? ValSplit( 10 ) // -> { 2,8 }
? ValSplit( 12 ) // --> { 4,8 }

Mr. Rao, as always giving explicit examples and saving work. Fantastic.

[cmsoft]

Un placer leer estas respuestas.... Seguimos aprendiendo...

[sysctrl2]

Yo con los GURUS ni me meto
apenas si me sale bien la tabla del 10
y con errores