45 - Funciones que se aplican a vectores |
El VBScript tiene un conjunto de funciones que nos facilitan trabajar con los vectores. Veamos una aplicación que hace uso de ellos.
<%option explicit%> <html> <head> <title>problema</title> </head> <body> <% dim vector vector=array(10,20,30) dim f response.write("Creación de un vector de 3 elementos con ") response.write("la función array<br>") for f=0 to 2 response.write("Elemento de la posicion " & f & " es " & vector(f)) response.write("<br>") next response.write("Impresión del vector utilizando la función ") response.write("ubound<br>") for f=0 to ubound(vector) response.write("Elemento de la posicion " & f & " es " & vector(f)) response.write("<br>") next redim preserve vector(4) vector(3)=40 vector(4)=50 response.write("Impresión del vector luego de redimensionarlo ") response.write("utilizando ubound<br>") for f=0 to ubound(vector) response.write("Elemento de la posicion " & f & " es " & vector(f)) response.write("<br>") next %> </body> </html>
Hay una función llamada array que le pasamos una lista de valores y nos retorna un vector con dichos elementos:
dim vector vector=array(10,20,30)
Es importante notar que cuando definimos la variable vector no disponemos los paréntesis de apertura y cerrado.
La función array retorna un vector dinámico.
Otra función de gran utilidad cuando trabajamos con vectores es ubound, esta nos retorna el valor del índice final del vector.
Si queremos imprimir un vector luego con la función ubound tenemos:
for f=0 to ubound(vector) response.write("Elemento de la posicion " & f & " es " & vector(f)) response.write("<br>") next
Luego si cambiamos el tamaño del vector no hay que modificar el for, ya que siempre mediante la función ubound obtendremos la posición del último elemento del vector.