Negochile,
¿Leíste la explicación de los tipos de referencia que escribí en el aporte anterior?
Pues la excepción que obtienes es porque intentas acceder a las propiedades de un elemento que es Nothing y lamento no ser preciso pero no adjuntas todo el código necesario para indicarte donde es que cometes el error, no siempre es la misma línea donde
se desencadena la excepción por tanto no vale colocar sólo "la línea".
Es necesario que tengas claro que cuando defines un número de elementos para una dimensión del array todos los elementos se inicializan en Nothing (dado que el array es de tipo String), claro, sólo hasta que establezcas un valor al elemento.
Has la siguiente prueba:
Dim MiArray As String()
'Redimensionar el tamaño de 0 a 2 elementos: 0, 1, 2
ReDim MiArray(2)
'MiArray(0) : Nothing
'MiArray(1) : Nothing
'MiArray(2) : Nothing
'¿Qué sucede si intentas acceder al primer elemento del array -por ejemplo- para conocer la longitud?
Dim Longitud As Integer = MiArray(0).Trim.Length
'Resultado: Excepción: Referencia a objeto no establecida como instancia de un objeto.
Algo que también debes tener claro es que el tamaño de una dimensión viene
de 0 al número establecido, quizá ahí cometes el error, nota que en el ejemplo anterior establecemos el tamaño de la dimensión del array a 2, pero
no refiere a 2 elementos sino a
3 elementos: elemento 0, elemento 1 y elemento 2.
Vamos a poner un ejemplo donde a propósito no asignamos un valor al último elemento.
Dim MiArray As String()
'Redimensionar el tamaño de 0 a 3 elementos
ReDim MiArray(3)
'Agregar elementos al array
MiArray(0) = "Primero"
MiArray(1) = "Segundo"
MiArray(2) = " " 'Espacios en blanco
'MiArray(3) = "Cuarto"::: No asignamos un valor por tanto vale Nothing
'Recorrer el array
For Each Elemento As String In MiArray
If Elemento.Trim = String.Empty Then
MessageBox.Show("Elemento vacío")
Else
MessageBox.Show(Elemento)
End If
Next
¿Qué crees que sucede cuando itere por el último elemento?
Pues nuevamente la excepción de siempre porque estamos intentando acceder a la propiedad
Trim cuando el elemento es Nothing, por tanto, si dejamos "a propósito" algún elemento sin asignar un valor habrá que preguntar si es Nothing antes de intentar acceder a una propiedad
Dim MiArray As String()
'Redimensionar el tamaño de 0 a 3 elementos
ReDim MiArray(3)
'Agregar elementos al array
MiArray(0) = "Primero"
MiArray(1) = "Segundo"
MiArray(2) = " " 'Espacios en blanco
'MiArray(3) = "Cuarto"::: No asignamos un valor por tanto vale Nothing
'Recorrer el array
For Each Elemento As String In MiArray
If Elemento IsNot Nothing Then
If Elemento.Trim = String.Empty Then
MessageBox.Show("Elemento vacío")
Else
MessageBox.Show(Elemento)
End If
Else
MessageBox.Show("Nothing")
End If
Next
Claro que hubiese bastado utilizar el método 'String.IsNullOrWhiteSpace(Elemento)', pero para el ejemplo pasamos la previa validación por Nothing.
Por otro lado, el uso de la instrucción Redim [Preserve] sirve para cuando redimensionas más de una vez el array, pero si sólo lo haces una vez entonces no es necesario, puedes crear primero el array y luego definir la longitud de la dimensión, algo como:
Dim MiArray As String()
'...
Dim Size As Integer = 3
MiArray = New String(Size) {}
Finalmente, recuerdo que mencionaste que vienes de Visual Basic 6 donde se usa mucho los array, el marco de trabajo de .Net implementa la gestión de colecciones y la expone de una manera simple y fácil de usar. El criterio es el siguiente, si el tamaño de
la colección se conoce a priori puedes utilizar un array o -por ejemplo- una lista (List<T>), pero si el número de elementos es dinámico entonces una buena decisión es dejar de lado el array y apostar -por ejemplo- por una lista (List<T>), Clase
List
<t></t>
Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
