Reading form a text file

[DN2UK]

I am making a windows form in vb.net that needs to read form a text file and insert the text as objects when the form loads . The textboxes are as follow

TxtJobtitle.Text
TxtSalary.Text
TxtFullname.Text
TxtAdd1.Text
TxtAdd2.Text
TxtTown.Text
TxtCounty.Text
TxtPostcode.Text
TxtPhone.Text
TxtEmail.Text
 

i have this code to save it to the text file (not sure if its correct)

Private Sub CmdSaveall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSaveall.Click
Dim sw As New StreamWriter("Staff.txt")
counter = 0
While counter < collection.Length
sw.WriteLine(collection(counter).Jobtitle)
sw.WriteLine(collection(counter).Salary)
sw.WriteLine(collection(counter).Fullname)
sw.WriteLine(collection(counter).Add1)
sw.WriteLine(collection(counter).Add2)
sw.WriteLine(collection(counter).Town)
sw.WriteLine(collection(counter).County)
sw.WriteLine(collection(counter).Postcode)
sw.WriteLine(collection(counter).Phone)
sw.WriteLine(collection(counter).Email)
 
counter += 1
End While
sw.Close()
 

So what would be the best way to do this been trying to do it for 5 hours now and tryed a load of different ways but nothings worked

[Frinavale]

I am making a windows form in vb.net that needs to read form a text file and insert the text as objects when the form loads . The textboxes are as follow

TxtJobtitle.Text
TxtSalary.Text
TxtFullname.Text
TxtAdd1.Text
TxtAdd2.Text
TxtTown.Text
TxtCounty.Text
TxtPostcode.Text
TxtPhone.Text
TxtEmail.Text
 

i have this code to save it to the text file (not sure if its correct)

Private Sub CmdSaveall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSaveall.Click
Dim sw As New StreamWriter("Staff.txt")
counter = 0
While counter < collection.Length
sw.WriteLine(collection(counter).Jobtitle)
sw.WriteLine(collection(counter).Salary)
sw.WriteLine(collection(counter).Fullname)
sw.WriteLine(collection(counter).Add1)
sw.WriteLine(collection(counter).Add2)
sw.WriteLine(collection(counter).Town)
sw.WriteLine(collection(counter).County)
sw.WriteLine(collection(counter).Postcode)
sw.WriteLine(collection(counter).Phone)
sw.WriteLine(collection(counter).Email)
 
counter += 1
End While
sw.Close()
 

So what would be the best way to do this been trying to do it for 5 hours now and tryed a load of different ways but nothings worked

Seems ok to me...so long as the "collections" array contains an object with all of the properties that you are referring to....

eg:

Private Class CollectionItem
    Public Property Jobtitle As String
         Get 
            return TxtJobtitle.Text
         End Get
    End Property
    Public Property SalaryAs String
         Get 
            return TxtSalary.Text
         End Get
    End Property
.....
End Class
 

If this is the case you should be casting to that type

While counter < collection.Length
sw.WriteLine(CType(collection(counter),CollectionItem).Jobtitle)
sw.WriteLineCType(collection(counter),CollectionItem).Salary)
sw.WriteLine(CType(collection(counter),CollectionItem).Fullname)
sw.WriteLine(CType(collection(counter),CollectionItem).Add1)
sw.WriteLine(CType(collection(counter),CollectionItem).Add2)
sw.WriteLine(CType(collection(counter),CollectionItem).Town)
sw.WriteLine(CType(collection(counter),CollectionItem).County)
sw.WriteLine(CType(collection(counter),CollectionItem).Postcode)
sw.WriteLine(CType(collection(counter),CollectionItem).Phone)
sw.WriteLine(CType(collection(counter),CollectionItem).Email)
 
counter += 1
End While
 

In a better design you could make the CollectionItem Class have function like ToString, or PrintDetails or something that returns a string with all of this information formatted for printing ;)
That way, instead of calling each individual property, you could only make 1 function call.

Are you getting any errors when you run your code?


-Frinny

[DN2UK]

this is part of my class file not sure if its correct

Public Class Staff
    Private m_Jobtitle As String
    Private m_Salary As String
    Private m_Fullname As String
    Private m_Add1 As String
    Private m_Add2 As String
    Private m_Town As String
    Private m_County As String
    Private m_Postcode As String
    Private m_Phone As String
    Private m_Email As String
 
    Public Property Jobtitle() As String
        Get
            Return m_Jobtitle
        End Get
        Set(ByVal value As String)
            m_Jobtitle = value
        End Set
    End Property
 

how would i read them into the program then

[Frinavale]

this is part of my class file not sure if its correct
...
how would i read them into the program then

Have you researched the File Class?

What you're going to have to do is read the text file into your program and then parse it to fill your objects.

So if your text file looks like

Jobtitle 
Salary 
MyFirstName MyLastName
9222 Hypothetical Dive StateOrProvince
2 Hypothetical2 Dive StateOrProvince
CountryName
TownName
County 
Postcode 
Phone
Email
 

You would parse your file by looking for new lines in the text file.
When you come across the first new line, you know that the first string you've gathered is the "job title"...the second "salary"...and so on.


-Frinny