Funciones del lenguaje (VIII)
por Luciano Moreno, del departamento de Diseño Web de BJS Software.

Funciones del lenguaje (I).-

* InputBox( mensaje [titulo, respuesta, xpos, ypos, archivoayuda, contexto] )

Función de componentes. Sólo precisa un argumento obligatorio, "mensaje", que es una cadena de texto de 1024 caracteres como máximo, y la muestra como pregunta en un cuadro de diálogo. Una vez presentada la pregunta, la función espera hasta que el usuario introduce la respuesta en la caja de texto que contiene el cuadro y/o aprieta el botón aceptar del mismo, retornando al código dicha respuesta.

Podemos configurar el cuadro de menjaje mediante los argumentos opcionales siguientes:

-titulo: cadena de texto que será mostrada en la barra de titulo del cuadro. Si no se pasa este argumento, aparecerá como título el nombre de la aplicación.

-respuesta: cadena de texto que presenta en el cuadro una respuesta por defecto, que será el valor retornado al código en caso de que el usuario pulse el botón aceptar sin introducir nada en la caja de texto.

- xpos, ypos: que determinan, en twips, la posición en pantalla del cuadro, tomando como referencias la esquina superior izquierda del mismo y de la ventana del navegador. Si no se especifica alguno de estos argumentos, el cuadro aparecerá centrado en pantalla respecto esa coordenada.

-archivoayuda, contexto : archivoayuda es una expresión de cadena que especifica el fichero de ayuda interactiva que se proporciona al usuario, y contexto es una expresión numérica que identifica el número de contexto de ayuda asignado por el autor de la ayuda para el tema apropiado. Ambos argumentos van unidos, de tal forma que si se especifica uno debe especificarse el otro. Si se usan, aparecerá un botón de ayuda en el cuadro de diálogo.

Ejemplo:

<script language="VBScript">

    Dim miPregunta
   
    Function pregunta()
        miPregunta = InputBox("¿Cuántos anyos tienes?", "Ejemplo función InputBox")
        MsgBox ("Tienes " & miPregunta & " anyos")
    End Function

</script>

cuyo resultado puedes ver si pulsas el botón siguiente:

* InStr( [inicio,] cadena1, cadena2 [,comparar] )

Función de cadenas. Recibe como argumentos obligatorios dos expresiones de cadena, cadena1 y cadena2, retornando la posición de la primera aparición de cadena2 dentro de cadena1.

Posée dos argumentos opcionales, inicio, que establece a partir de qué caracter dentro de cadena1 se empieza a buscar cadena2 (si se omite se empieza la comparación desde el primer caracter), y comparar, valor numérico que indica el tipo de comparación que se utilizará cuando se evalúen subcadenas, y que puede valer 0, con lo que se realizará una comparación binaria (valor por defecto), y 1, con el que se realiza una comparación textual.

Si se establece el argumento comparar es necesario establecer también inicio.

Ejemplo:

<%

    Dim PrimeraCadena, SegundaCadena, Posicion

    PrimeraCadena = "Manbru se fue a la guerra"
    SegundaCadena = "ru"

    Posicion = InStr(1, PrimeraCadena, SegundaCadena, 1)

%>

que retornará Posicion = 5.

* InStrRev( cadena1, cadena2 [inicio, comparar] )

Función de cadenas. Es en todo análoga a la anterior, salvo en la disposición de los argumentos y en que comienza la búsqueda por el final de cadena1.

* Int( numero / variable / expresion )

Función matemática. Recibe como argumento un número, una variable que lo contenga o una expresión numérica válida, devolviendo la parte entera de dicho número, es decir, el menor número entero más próximo al recibido como argumento. Para ello, elimina la parte fracccionaria del mismo.

La diferencia entre las funciones Int y Fix está en el tratamiento de números negativos. Así, Int devuelve el primer número entero negativo menor o igual que número, mientras que Fix devuelve el primer número entero negativo mayor o igual que número.

Ejemplo:

<%

    Dim MiNumeroUno, MiNumeroDos, MiNumeroTres, MiNumeroCuatro

    MiNumeroUno = Int(12,78)
    MiNumeroDos = Fix(12,78)
    MiNumeroTres = Int(-12,78)
    MiNumeroCuatro = Fix(-12,78)

%>

que retornan MiNumeroUno = 12, MiNumeroDos = 12, MiNumeroTres = -13, MiNumeroCuatro = -12.

La equivalencia entre ambas funciones podemos expresarla como:

Fix (numero) = Sgn(numero) * Int(Abs(numero))

* IsArray( variable )

Función de comprobación. Recibe como argumento una variable, compueba si ésta es una matriz y retorna un valor booleano según el resultado. Si la variable corresponde a una matriz devuelve true; si no, devuelve false.

Ejemplo:

<%

    Dim miMatriz (2)
    Dim MiVariable

    MiMatriz(0) = "Hola"
    MiMatriz(1) = "Mundo"

    MiVariable = IsArray(MiMatriz)

%>

con lo que MiVariable contiene true.

* IsDate( expresion )

Función de comprobación. Recibe como argumento una expresión, compueba si ésta se puede convertir en una fecha válida y retorna un valor booleano según el resultado. Si la expresión corresponde a una fecha o se puede transformar en una fecha devuelve true; si no, devuelve false.

Ejemplo:

<%

    Dim miFecha1 = "Hola Mundo"
    Dim MiVariable

    MiVariable = IsDate(MiMatriz)

%>

con lo que MiVariable contiene false, pués no es posible transformar "Hola Mundo" en una fecha válida.

* IsEmpty( variable )

Función de comprobación. Recibe como argumento una variable, compueba si ésta se ha inicializado y retorna un valor booleano según el resultado. Si la variable no se ha inicializado devuelve true; si se ha inicializado, devuelve false (nota que la pregunta es ¿está vacía?).

Ejemplo:

<%

    Dim MiVariable1, MiVariable2, MiPrueba1, MiPrueba2 

    MiVariable1 = "Hola Mundo"

    MiPrueba1 = IsEmpty(MiVariable1)
    MiPrueba2 = IsEmpty(MiVariable2)

%>

con lo que MiVariable1 contiene false, y MiVariable2 contiene true.

* IsNull( expresion )

Función de comprobación. Recibe como argumento una expresión cualquiera, compueba si ésta tiene datos no válidos y retorna un valor booleano según el resultado. Si la expresión es Null (contiene datos no válidos) devuelve true; si no, devuelve false. Si expresion contiene más de una variable, retornará true en cuanto una de ellas sea Null.

Ejemplo:

<%

    Dim MiVariable, MiPrueba

    MiVariable = Null

    MiPrueba = IsNull(MiVariable)

%>

con lo que MiVariable contiene true.

* IsNumeric( expresion )

Función de comprobación. Recibe como argumento una expresión cualquiera, compueba si ésta se puede evaluar como un número y retorna un valor booleano según el resultado. Si TODA la expresión se puede resolver como un número devuelve true; si no, devuelve false. Si expresion contiene más de una variable, retornará false en cuanto una de ellas sea Null. Si expresion es una expresión de fecha, retorna false.

Ejemplo:

<%

    Dim MiVariable, MiPrueba 

    MiVariable = Null

    MiPrueba = IsNull(MiVariable)

%>

con lo que MiVariable contiene true.

* IsObject( expresion )

Función de comprobación. Recibe como argumento una expresión cualquiera, compueba si ista hace referencia a un objeto de automatización válido y retorna un valor booleano según el resultado. Si expresion es una variable del subtipo Object o un objeto definido por el usuario devuelve true; si no, devuelve false.

Ejemplo:

<%

    Dim MiEntero, MiComprobacion1, MiComprobacion2, MiObjeto

    Set MiObjeto = Me

    MiComprobacion1 = IsObject(MiObjeto)
    MiComprobacion2 = IsObject(MiEntero)

%>

con lo que MiComprobacion1 contiene true, y MiComprobacion2 contiene false.