• Domingo 22 de Diciembre de 2024, 23:53

Autor Tema:  Sentencia Reemplace Al If  (Leído 1154 veces)

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Sentencia Reemplace Al If
« en: Viernes 28 de Mayo de 2004, 18:45 »
0
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.

Blag

  • Moderador
  • ******
  • Mensajes: 697
    • Ver Perfil
    • http://atejada.blogspot.com
Re: Sentencia Reemplace Al If
« Respuesta #1 en: Viernes 28 de Mayo de 2004, 21:13 »
0
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:

Cyclop

  • Miembro MUY activo
  • ***
  • Mensajes: 323
    • Ver Perfil
    • http://www.geocities.com/icotext/spanish/
Re: Sentencia Reemplace Al If
« Respuesta #2 en: Domingo 30 de Mayo de 2004, 20:46 »
0
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
Icotext Evolution v0.5 para los amantes del ASCII Art
http]

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Sentencia Reemplace Al If
« Respuesta #3 en: Lunes 31 de Mayo de 2004, 16:26 »
0
Gracias a ambos, en especial a cyclop.

Voy a probar tu sentencia