Recorrer el contenido - II

La estructura de control utilizada para recorrer el array, puede ser indistintamente un bucle For...Next, For Each...Next, o la novedosa técnica de los objetos enumeradores proporcionados por el objeto array. 

Como muestra de estas funcionalidades, el Código fuente 342 que vemos a continuación, contiene algunos ejemplos de cómo realizar una iteración sobre los elementos de un array.

Sub Main()

' recorrer un array

' =================

Dim sNombres() As String = {"Ana", "Luis", "Pablo"}

Dim iContador As Integer

Dim sUnNombre As String

' modo tradicional

' ----------------

Console.WriteLine("Recorrido del array con LBound() y UBound()")

For iContador = LBound(sNombres) To UBound(sNombres)

Console.WriteLine("Posicion: {0} - Valor: {1}", _

iContador, sNombres(iContador))

Next

Console.WriteLine()

' con bucle For Each

Console.WriteLine("Recorrido del array con bucle For Each")

For Each sUnNombre In sNombres

Console.WriteLine("Nombre actual: {0}", sUnNombre)

Next

Console.WriteLine()

' modo orientado a objeto

' ----------------

' usando la propiedad Length

Console.WriteLine("Recorrido del array con propiedad Length")

For iContador = 0 To (sNombres.Length - 1)

Console.WriteLine("Posicion: {0} - Valor: {1}", _

iContador, sNombres(iContador))

Next

Console.WriteLine()

' usando los métodos GetLowerBound() y GetUpperBound()

Console.WriteLine("Recorrido del array con métodos GetLowerBound() y

GetUpperBound()")

For iContador = sNombres.GetLowerBound(0) To sNombres.GetUpperBound(0)

Console.WriteLine("Posicion: {0} - Valor: {1}", _

iContador, sNombres(iContador))

Next

Console.WriteLine()

' recorrer con un enumerador

Console.WriteLine("Recorrido del array con un enumerador")

Dim sLetras() As String = {"a", "b", "c", "d"}

Dim oEnumerador As System.Collections.IEnumerator

' obtener el enumerador del array

oEnumerador = sLetras.GetEnumerator()

' con un enumerador no es necesario posicionarse

' en el primer elemento ni calcular la cantidad

' de elementos del array, sólo hemos de avanzar

' posiciones con MoveNext() y obtener el valor

' actual con Current

While oEnumerador.MoveNext()

Console.WriteLine("Valor actual: {0}", oEnumerador.Current)

End While

Console.ReadLine()

End Sub

Código fuente 342