Class for remembering the length of data and split them up
Hello everyone,
For an assignment, I load an xml file that lists the people per line.
The intent is to align these lines and split them up by the maximum length of the various data (maximum length of the name, maximum length of the country, etc.).
But I have no idea how i could do this.
Can anyone help me with this?
Form 1
Code:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Public Persons As XElement
Dim myNameLength As New LayoutClass
If Persons Is Nothing Then
TextBox1.Text = "no person was found"
Else
Dim queryData = From Person In Persons.Descendants("Person")
Where (Person.Attribute("Name")).Value <> ""
Select Naam = Person.Attribute("Name").Value,
Country= Person.Attribute("Country").Value
Order By (Name)
TextBox1.Text = " "
TextBox1.Text = "The persons are: " & vbCrLf & myNameLength.PersonNameLength
End sub
Layout Class
Code:
Public Class LayoutClass
Public Property NameLength As Short = 16
Public Property CountryLength As Short = 16
Public Function PersonNameLength(PersonLength As Short) As Short
Return Math.Max(PersonLength, NameLength)
End Function
End Class
Thanks for the effort!