Problema con array

[misancer]

Tengo el siguiente codigo VB.NET 2008

Código vb:

Public ContenidoHtml() As String
    Public Bibliografia() As String
 
Private Sub Crear_Cabecera()
        Dim HtmlTag As Integer = 0
        Dim Linea As String
 
        Linea = ContenidoHtml(HtmlTag)
        While Linea <> "<ol>"
            Linea = ContenidoHtml(HtmlTag)
            ReDim Preserve Bibliografia(Bibliografia.Length + 1)
            Bibliografia(Linea) = Linea
            HtmlTag = HtmlTag + 1
        End While
 
End Sub
 

En teoria deberia de añadir al array Bibliografia las lineas de ContenidoHtml hasta que se encuentre con un tag especifico. Sin embargo me da una nullReferenceException, y no se como arreglarlo. Cualquier idea es bienvenida. Gracias de antemano.

[chechu84]

Iniciado por misancer

Tengo el siguiente codigo VB.NET 2008

Código vb:

Public ContenidoHtml() As String
    Public Bibliografia() As String
 
Private Sub Crear_Cabecera()
        Dim HtmlTag As Integer = 0
        Dim Linea As String
 
        Linea = ContenidoHtml(HtmlTag)
        While Linea <> "<ol>"
            Linea = ContenidoHtml(HtmlTag)
            ReDim Preserve Bibliografia(Bibliografia.Length + 1)
            Bibliografia(Linea) = Linea
            HtmlTag = HtmlTag + 1
        End While
 
End Sub
 

En teoria deberia de añadir al array Bibliografia las lineas de ContenidoHtml hasta que se encuentre con un tag especifico. Sin embargo me da una nullReferenceException, y no se como arreglarlo. Cualquier idea es bienvenida. Gracias de antemano.

Buenas :)

Intenta una cosa, que es lo que yo no veo del todo claro.

Cuando decides guardar el contenido de ContenidoHtml, utilizas la misma variable para indicarla la posicion del Array al valor que lo guardas, quizas esté ahi el problema.

Prueba de cambiar esto:

Código vb:

While Linea <> "<ol>"
            Linea = ContenidoHtml(HtmlTag)
            ReDim Preserve Bibliografia(Bibliografia.Length + 1)
            Bibliografia(HtmlTag) = Linea
            HtmlTag += 1
        End While
 

Salu2,


Chechu.

[misancer]

Eso no me vale, me sigue dando nullReferenceException. Lo he solucionado cambiando el que sea una matriz por una lista de cadenas:

Código vb:

Public ContenidoHtml() As String
Public Bibliografia As New List(Of String)
 
Private Sub Crear_Cabecera()
        Dim HtmlTag As Integer = 0
        Dim Linea As String
 
        Linea = ContenidoHtml(HtmlTag)
        While Linea <> "<ol>"
            Linea = ContenidoHtml(HtmlTag)
            Bibliografia.Add(Linea)
            HtmlTag += 1
        End While
        Bibliografia.TrimExcess()
End Sub
 

De todas formas, gracias por tu ayuda y tiempo.