How to enter additional data entered in text files in vb.net? - vb.net

Question

I'm currently working on a project where new orders are added to text files and the details of these orders must be displayed in text boxes.
I managed to get the application for 'Order 1' but I am unsure as to how to display details for orders that have not yet been added to the text files e.g. Order 20.
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
Dim query = IO.File.ReadAllLines("Order1.txt")
Dim name = query(0).Split(","c)(0)
Dim address = query(0).Split(","c)(1)
Dim phonenum = query(0).Split(","c)(2)
Dim method = query(0).Split(","c)(3)
txtName.Text = name
txtAddress.Text = address
txtPhoneNum.Text = phonenum
txtMethod.Text = method
End Sub

Answer 1

I do not know if I understand correctly what you want.
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
Dim yourModelLists As New List(yourModel)
Do
Dim query = IO.File.ReadLine("Order1.txt")
Dim yourModelItem As yourModel
If Not (String.IsNullOrEmpty(query) Or String.IsNullOrWhiteSpace(query) Then
Dim column As Integer = 0
Dim items As String() = query.Split(";")
For Each item In items
If Not (String.IsNullOrEmpty(item) Or String.IsNullOrWhiteSpace(item)) Then
Select Case column
Case 0
yourModelItem.name = item
Case 1
yourModelItem.address = item
Case 2
yourModelItem.phonenum = item
Case 3
yourModelItem.method = item
Case Else
'Do something
End Select
End If
Next
End If
yourModelLists.Add(yourModelItem)
Loop Until (String.IsNullOrEmpty(query) Or String.IsNullOrWhiteSpace(query))
End Sub
All you need is in yourModelLists.