SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jose Arriagada en Viernes 28 de Mayo de 2004, 18:45

Título: Sentencia Reemplace Al If
Publicado por: Jose Arriagada en Viernes 28 de Mayo de 2004, 18:45
Estimados,

La situacion es la siguiente:

Muchas veces se desea saber si una variable es alguna de las muchas opciones a comparar, por ejemplo:

IF xVAR=1 or xVAR=3 or xVAR=7 or xVAR=0 then
   <sentencias>
ENDIF

o en su defecto, podria ser
SELECT CASE xVAR
  CASE 1,3,7,0:
         <sentencias>
END SELECT

Pero, igualmente es mucho codigo, para una sentencia tan simple.

Mi pregunta es: ¿EXISTE ALGUNA FUNCION QUE PERMITA SABER SI LA VARIABLE PERTENECE A ALGUNA DE ESTAS OPCIONES?, como por ejemplo

IF COMPARA(xVAR,1,3,7,0)=TRUE THEN
 <sentencias>
ENDIF

Si no, voy a terner que hacer esta funcion.
La lata, es colocar una cantidad n de variables de paso.
Título: Re: Sentencia Reemplace Al If
Publicado por: Blag en Viernes 28 de Mayo de 2004, 21:13
Citar
Mi pregunta es: ¿EXISTE ALGUNA FUNCION QUE PERMITA SABER SI LA VARIABLE PERTENECE A ALGUNA DE ESTAS OPCIONES?, como por ejemplo

IF COMPARA(xVAR,1,3,7,0)=TRUE THEN
<sentencias>
ENDIF

Si no, voy a terner que hacer esta funcion.
La lata, es colocar una cantidad n de variables de paso.

 :blink:  Hasta donde yo sé....no existe ninguna otra manera, a menos que tu la crees. Y para los paramatros podrías utilizar un arreglo dinámico, para que no tengas que estar poniendo tantas variables.  :scream:

Saludos,

Blag  :devil:
Título: Re: Sentencia Reemplace Al If
Publicado por: Cyclop en Domingo 30 de Mayo de 2004, 20:46
esto puede ayudar


Código: Text
  1. If InStr(Str(nVar),&#34;0,1,3,7&#34;) Then
  2.    ... sentencias
  3. Endif
  4.  
  5.  

Salu2
Título: Re: Sentencia Reemplace Al If
Publicado por: Jose Arriagada en Lunes 31 de Mayo de 2004, 16:26
Gracias a ambos, en especial a cyclop.

Voy a probar tu sentencia