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

Funciones del lenguaje (J-L).-

* Join( lista [, delimitador] )

Función de cadenas. Precisa como argumento obligado lista, que es una matriz que contiene como elementos una serie de cadenas de texto, y retorna dichos elementos combinados en una sóla cadena (string).

Posée un argumento opcional, delimitador, que especifica el caracter de cadena usado para separar los elementos de la matriz en la cadena de retorno. Si no se especifica este argumento, las subcadenas vendrán separadas por un espacio vacío, " ". Si usamos como valor de delimitador una cadena de longitud cero, "", las subcadenas de la matriz estarán unidas sin delimitador en la cadena de retorno.

Ejemplo:

<%

    Dim MiCadena
    Dim MiLista(2)

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

    MiCadena = Join(MiLista)

%>

cuyo resultado es MiCadena = "Hola Mundo".

* LBound( matriz [, dimension] )

Función de matrices. Recibe como argumento obligado el nombre de una matriz, retornando el índice menor disponible para la dimensión indicada de dicha matriz. También posée un argumento opcional, dimension, número entero que indica qué enlace menor de la dimensión se devuelve. Utilice 1 para la primera dimensión, 2 para la segunda y así sucesivamente. Si se omite, se le supone le valor 1.

Esta función se suele usar conjuntamente con UBound para determinar el tamaño de una matriz.

* LCase( cadena )

Función de cadenas. Recibe como argumento una cadena o expresión de cadena válida, retornando dicha cadena pasada a minúsculas. Si la cadena contiene Null, se devuelve Null. Los caracteres que no son letras permanecen sin cambio.

Ejemplo:

<script language="VBScript">
    Function Cadena()
        Dim MiCadena0, MiCadena1

        MiCadena1=InputBox("Introduce una cadena", "Ejemplo funcion LCase")
        MiCadena2=LCase(MiCadena1)

        MsgBox ("Cadena en minusculas: " & MiCadena2)
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="Cadena()">
</form>

que nos da:

* Left( cadena, longitud )

Función de cadenas. Recibe como argumentos una cadena o expresión de cadena válida y un número entero, longitud, retornando una subcadena de la que recibe como argumento, desde el inicio de la misma (por la izquierda) hasta el número de caracteres fijado por el argumento longitud.

Si cadena contiene Null, retorna Null. Si longitud es 0, se devuleve una cadena de longitud cero, "". Si longitud es mayor que el número de caracteres que forman la cadena recibida, retorna ésta en su totalidad. OJO: Los espacios en blanco se consideran un caracter más.

Para controlar el número de caracteres de la cadena podemos usar la función Len.

Ejemplo:

<script language="VBScript">
    Function SubCadena()
        Dim MiCadena, MiSubcadena, MiLongitud
        MiCadena=InputBox("Introduce una cadena", "Ejemplo función Left")
        MiLongitud=InputBox("Introduce una longitud", "Ejemplo función Left")
        MiSubcadena=Left(MiCadena, MiLongitud)
        MsgBox ("Subcadena: " & MiSubcadena)
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="SubCadena()">
</form>

que nos da:

Esta función posée una variante, la función LeftB, que se utiliza con datos de tipo byte contenidos en una cadena. En lugar de especificar el número de caracteres que se van a devolver, longitud especifica el número de bytes.

* Len( cadena )

Función de cadenas. Recibe como argumento una cadena o expresión de cadena válida, retornando el número de caracteres que la forman. Los espacios en blanco se cuentan como caracteres.

Ejemplo:

<script language="VBScript">
    Function CuentaCadena()
        Dim MiCadena, MiLongitud
        MiCadena=InputBox("Introduce una cadena", "Ejemplo función Len")
        MiLongitud=Len(MiCadena)
        MsgBox ("La cadena tiene: " & MiLongitud & " caracteres")
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="CuentaCadena()">
</form>

que nos da:

* Se puede usar también esta funcion con otro fin. Si Len recibe como argumento una variable, retornará el número de bytes necesario para almacenar dicha variable.

En ambos casos, si el argumento contiene Null, se retorna Null.

* Existe una variante de Len, la función LenB, que se utiliza con datos de tipo byte contenidos en una cadena. En lugar de devolver el número de caracteres de una cadena, LenB devuelve el número de bytes utilizados para representar dicha cadena.

* LoadPicture( imagen )

Función disponible sólo en plataformas de 32 bits. Recibe como argumento una expresión de cadena válida, retornando un objeto de imagen. El argumento imagen representa en nombre de la imagen a cargar.

Entre los formatos de gráficos reconocidos por LoadPicture se incluyen archivos de mapa de bits (.bmp), archivos de icono (.ico), archivos de codificacisn por longitud de línea (.rle), metarchivos (.wmf), metarchivo mejorado (.emf), archivos GIF (.gif) y archivos JPEG (.jpg).

* Log( 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 el logaritmo en base e de dicho número (logaritmo natural). La constante e es aproximadamente 2,718282.

Ejemplo:

<%

    Dim MiLogaritmo

    MiLogaritno = Log(25)

%>

con lo que MiLogaritmo valdrá 3.21887

Mediante una simple fórmula matemática podemos calcular el logaritmo de un número en una base cualquiera:

Logn(x) = Log(x) / Log(n)

Vamos a calcular el logaritmo decimal (en base 10) de un número cualquiera usando la función Log:

<script language="VBScript">
    Function Log10()
        Dim MiNumero, MiLogaritmo
       
        MiNumero=InputBox("Introduce un numero", "Ejemplo función Log")
        MiLogaritmo=Log(MiNumero)/Log(10)
   
        MsgBox ("El logaritmo decimal es: " & MiLogaritmo)
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="Log10()">
</form>

que nos da:

* LTrim( cadena )

Función de cadenas. Recibe como argumento una cadena, variable que la contenga o expresión de cadena válida, retornando la cadena sin los espacios en blanco que hay a la izquierda de la misma. Si la cadena contiene Null se retorna Null.

Ejemplo:

<%

    Dim MiCadena = "      Hola Mundo"
    Dim MiResultado

    MiResultado = LTrim(MiCadena)

%>

con lo que MiResultado = "Hola Mundo".

Esta función puede trabaja conjuntamente con RTrim y Trim.