Do Whileループでストリームリーダー？

Question

テキストファイルから顧客情報を読み取ろうとしています。しかし、私は最初のレコードを手に入れることしかできないようです。私の問題がファイルの最初から読んでいるボタンをクリックするたびに来ていると仮定して、しばらくの間何かして、ボタンをクリックして次の顧客情報を読む方法はありますか？

Stockes 
Colton 
855 
134 Street 
Scottsdale 
az 
85260 
9283806778 
200 
11/2/2017 
Brianne 
Riggle 
1234 
16553 
Scottsdale 
az 
8560 
555555 
110 
11/9/2017 
Gillespie 
Delinda 

7268 Goonight ln 
Prescott 
Az 
86314 
6026848036 
10 
11/20/2017 

Answer 1

そこにいくつかの醜いデータだが、それにもかかわらず...私は10で、フォーム（btnLoad、btnPrevious、およびbtnNext）上の3つのボタンを置く：ここ

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click 
    searchFile = File.OpenText("Records.txt") 
    Dim CustomerSearch As CustomerAccounts 

    Using sr As StreamReader = searchFile 
     CustomerSearch.LastName = searchFile.ReadLine() 
     CustomerSearch.FirstName = searchFile.ReadLine() 
     CustomerSearch.CustomerNumber = searchFile.ReadLine() 
     CustomerSearch.Address = searchFile.ReadLine() 
     CustomerSearch.City = searchFile.ReadLine() 
     CustomerSearch.State = searchFile.ReadLine() 
     CustomerSearch.ZIPCode = searchFile.ReadLine() 
     CustomerSearch.TelephoneNumber = searchFile.ReadLine() 
     CustomerSearch.AccountBalance = searchFile.ReadLine() 
     CustomerSearch.DateOfLastPayment = searchFile.ReadLine() 

     txtLast.Text = CustomerSearch.LastName.ToString() 
     txtFirst.Text = CustomerSearch.FirstName.ToString() 
     txtNumber.Text = CustomerSearch.CustomerNumber.ToString() 
     txtAddress.Text = CustomerSearch.Address.ToString() 
     txtCity.Text = CustomerSearch.City.ToString() 
     txtState.Text = CustomerSearch.State.ToString() 
     txtZip.Text = CustomerSearch.ZIPCode.ToString() 
     txtTelephone.Text = CustomerSearch.TelephoneNumber.ToString() 
     txtBalance.Text = CustomerSearch.AccountBalance.ToString() 
     txtPayment.Text = CustomerSearch.DateOfLastPayment.ToString() 
    End Using 
    End Sub 

は私の例のtxtファイルですそうメートルありがとう

Imports System.IO 

Public Class Form1 
    Private CustomerSearch As New List(Of CustomerAccounts) 
    Private CurrentCust As Integer = 0 

    Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click 
     With File.OpenText("Records.txt") 
      While Not .EndOfStream 
       ' This is fragile if the data lines don't match perfectly to fields and line count 
       Dim NewCust As New CustomerAccounts 
       NewCust.LastName = .ReadLine 
       NewCust.FirstName = .ReadLine 
       NewCust.CustomerNumber = .ReadLine 
       NewCust.Address = .ReadLine 
       NewCust.City = .ReadLine 
       NewCust.State = .ReadLine 
       NewCust.ZIPCode = .ReadLine 
       NewCust.TelephoneNumber = .ReadLine 
       NewCust.AccountBalance = .ReadLine 
       NewCust.DateOfLastPayment = .ReadLine 

       CustomerSearch.Add(NewCust) 
      End While 

      .Dispose() 
     End With 

     Debug.Print("Loaded {0} Records.", CustomerSearch.Count) 

     If CustomerSearch.Count > 0 Then ShowData() 
    End Sub 

    Private Sub btnPrevious_Click(sender As Object, e As EventArgs) Handles btnPrevious.Click 
     If CurrentCust > 0 Then 
      CurrentCust -= 1 
      ShowData() 
     Else 
      Debug.Print("Already at first record") 
     End If 
    End Sub 

    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click 
     If CurrentCust < CustomerSearch.Count - 1 Then 
      CurrentCust += 1 
      ShowData() 
     Else 
      Debug.Print("Already at last record") 
     End If 
    End Sub 

    Sub ShowData() 
     Debug.Print("Loading record {0}", CurrentCust.ToString) 

     With CustomerSearch(CurrentCust) 
      txtLast.Text = .LastName.ToString 
      txtFirst.Text = .FirstName.ToString 
      txtNumber.Text = .CustomerNumber.ToString 
      txtAddress.Text = .Address.ToString 
      txtCity.Text = .City.ToString 
      txtState.Text = .State.ToString 
      txtZip.Text = .ZIPCode.ToString 
      txtTelephone.Text = .TelephoneNumber.ToString 
      txtBalance.Text = .AccountBalance.ToString 
      txtPayment.Text = .DateOfLastPayment.ToString 
     End With 
    End Sub 

End Class 

Class CustomerAccounts 
    Property LastName As String 
    Property FirstName As String 
    Property CustomerNumber As String 
    Property Address As String 
    Property City As String 
    Property State As String 
    Property ZIPCode As String 
    Property TelephoneNumber As String 
    Property AccountBalance As String 
    Property DateOfLastPayment As String 
End Class