[RESOLVED] file to custom class array, small problem

[arijspieter]

i have made a custom class "lln" (student) and i got a file which contains data which should be read to an lln-array: dblln (student-array)
it works but if the file contains 3 students, then the array will contain 3 students which are all the same: the last student.
i really dont see why the 1st student gets replaced by the second when the second is read.

example file:
keith
13 years
male
sophie
16years
female

the data will be read correctly but array will look like this:
sophie (dblln(0).name)
16years (dblln(0).age)
female (dblln(0).sex)
sophie (dblln(1).name)
16years (dblln(1).age)
female (dblln(1).sex

here is the code i use to read the data in dblln (the student-array)
plln is an integer which indicates the position (you will see)

Dim ifile As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(_dblln)
            While (Not ifile.EndOfStream)
                tlln.hallo(ifile.ReadLine, ifile.ReadLine, ifile.ReadLine, ifile.ReadLine, ifile.ReadLine)
                ReDim Preserve dblln(plln)
                dblln(plln) = tlln
                plln += 1
            End While
            ifile.Close()

i have also tried it reading it into a list(of T) and then converting it to the array but it gave me the same results

[proneal]

I could help if I knew what this was:
"

tlln.hallo(ifile.ReadLine, ifile.ReadLine, ifile.ReadLine, ifile.ReadLine, ifile.ReadLine)

"

What is tlln.hallo?
This is what separates the men from the boys in here. I really should know what this is but it just looks like an expression to me, with no real value.

[arijspieter]

sorry forgot to post, here is the full code for the lln class
names look strange because i need to do it in dutch

Public Class lln
    Private _naam As String
    Private _klas As String
    Private _bedr As String
    Private _docs As Boolean
    Private _eval As String

    Public Sub New()
        _naam = ""
        _klas = ""
        _bedr = ""
        _docs = False
        _eval = ""
    End Sub

    Public Sub hallo(ByVal naam, ByVal klas, ByVal bedr, ByVal docs, ByVal eval)
        _naam = naam
        _klas = klas
        _bedr = bedr
        _docs = docs
        _eval = eval
    End Sub

    Public Property Naam() As String
        Get
            Return _naam
        End Get
        Set(ByVal Value As String)
            _naam = Value
        End Set
    End Property

    Public Property Klas() As String
        Get
            Return _klas
        End Get
        Set(ByVal Value As String)
            _klas = Value
        End Set
    End Property

    Public Property Bedrijf() As String
        Get
            Return _bedr
        End Get
        Set(ByVal Value As String)
            _bedr = Value
        End Set
    End Property

    Public Property Documenten() As Boolean
        Get
            Return _docs
        End Get
        Set(ByVal Value As Boolean)
            _docs = Value
        End Set
    End Property

    Public Property Evaluatie() As String
        Get
            Return _eval
        End Get
        Set(ByVal Value As String)
            _eval = Value
        End Set
    End Property
End Class

[proneal]

Ok so 5 properties line up with all the Readline methods being returned. Gotchya.

Let me think about this a moment first...
I'll BBL

[proneal]

I think what we see in your Writing methods we could better determine why your code is causing this mess.

[proneal]

Should it not be Public Class tlln instead of what you have Public Class lln?
tlln.hallo()

or have you declared tlln As New lln somewhere in code?

[arijspieter]

ooh another thing i forgot. no, its correct like that, here is tlln
Public tlln As lln = New lln

[arijspieter]

you can download full project here if u wish
https://docs.google.com/open?id=0BzM...kxmTmcwX0FoeEk

[proneal]

Just create a New instance of that class and it works fine

If System.IO.File.Exists(_dblln) = True Then
Dim ifile As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(_dblln)
 
            While (Not ifile.EndOfStream)
                tlln = New lln ''--<< right here create new instance tlln --\\
                tlln.hallo(ifile.ReadLine, ifile.ReadLine, ifile.ReadLine, ifile.ReadLine, ifile.ReadLine)
 
                ReDim Preserve dblln(plln)
                dblln(plln) = tlln
 
                plln += 1
            End While
            ifile.Close()
 
        Else
            dblln(0) = tlln
        End If

[arijspieter]

what a stupid thing to miss.
THANKS SO MUCH FOR HELPING ME

[proneal]

what a stupid thing to miss.
THANKS SO MUCH FOR HELPING ME

I don't know how these Ratings work, but could you please rate my post to resolve, and then Enter Resolved for this thread -from your control panel.

It makes me feel good when I can help.
It is a reason I do come in and help when I can.
There are not many people these days that express gratitude, but you will find programmers are among the most gratuitous people on the planet.

So says I

I see you resolved and did what I asked.
Thank you so much too