Visual Basicのデータのソート読むとアレイは、テキストファイル

Question

からで、私はこれで問題を抱えている：

btnDisplay_Click手順は五にそれぞれ格納し、states.txtファイルに含まれている5人の名前をお読みください要素1次元配列。プロシージャは、降順で配列をソートし、リストボックスに配列の内容を表示する必要があります。

私のコードでは、5つの州名をリストボックスに表示することができますが、ソートされていません。 （旧）CODE OF

最初の反復：

Public Class frmMain 

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click 

    'Declare an array for 5 states 
    Dim strStates(4) As String 

    Dim strStateName As String 

    'Sort the array in descending order 
    Array.Sort(strStates) 
    Array.Reverse(strStates) 

    'Declare variable to hold stream reader object 
    Dim inFile As IO.StreamReader 

    'Check if txt file exists before opening to avoid run time error/crash 
    If IO.File.Exists("states.txt") Then 
     'Open the file 
     inFile = IO.File.OpenText("states.txt") 
     'Loop instructions until end of file is reached 
     Do Until inFile.Peek = -1 
      'Read a line 
      strStateName = inFile.ReadLine 
      'Add line (state) to list box 
      lstNames.Items.Add(strStateName) 
     Loop 
     'Close the file 
     inFile.Close() 
    Else 
     'Show a message box telling user file can't be found 
     MessageBox.Show("File does not exist or cannot be found.", "States", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    End If 
End Sub 

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click 
    Me.Close() 
End Sub 
End Class 

私は同様に、ループ内のソート行を配置しようとしました。リストボックスにソートされた配列を表示するにはどうすればよいですか？

CODE OF 2回目の繰り返し（最新）：

Public Class frmMain 

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click 

    'Declare an array to hold all 5 states 
    Dim strStates(4) As String 

    'Declare variable to hold loop counts 
    Dim i As Integer = 0 

    'Declare variable to hold stream reader object 
    Dim inFile As IO.StreamReader 

    'Check if txt file exists before opening to avoid run time error/crash 
    If IO.File.Exists("states.txt") Then 
     'Open the file 
     inFile = IO.File.OpenText("states.txt") 
     'Loop instructions until end of file is reached 
     Do Until inFile.Peek = -1 
      'Read a line and store in array 
      strStates(i) = inFile.ReadLine 

      'Message box to confirm array loop is working correctly 
      MessageBox.Show(strStates(i)) 

      'Manually increment array counter 
      i = i + 1 
     Loop 

     'Close the file 
     inFile.Close() 

     'Sort the array in descending order 
     Array.Sort(strStates) 
     Array.Reverse(strStates) 

     'Output to list box 
     lstNames.Items.Add(strStates(i)) 'error thrown here 

    Else 
     'Show a message box telling user file can't be found 
     MessageBox.Show("File does not exist or cannot be found.", "States", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    End If 
End Sub 

Answer 1

更新If文：

If IO.File.Exists("states.txt") Then 
    'Open the file 
    inFile = IO.File.OpenText("states.txt") 
    'Loop instructions until end of file is reached 
    Do Until inFile.Peek = -1 
     'Read a line and store in array 
     strStates(i) = inFile.ReadLine 

     'Manually increment array counter 
     i = i + 1 
    Loop 

    'Close the file 
    inFile.Close() 

    'Sort the array in descending order (Next 2 lines don't work) 
    Array.Sort(strStates) 
    Array.Reverse(strStates) 

    'Output to list box 
    lstNames.Items.Add(strStates(i)) 

Else 
    'Show a message box telling user file can't be found 
    MessageBox.Show("File does not exist or cannot be found.", "States", MessageBoxButtons.OK, MessageBoxIcon.Information) 
End If 

Answer 2

私は、2つのあなたの助けのおかげでそれを得ました！私の最後の問題のために、私はちょうど追加：

Public Class frmMain 

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click 

    'Declare an array to hold all 5 states 
    Dim strStates(4) As String 

    'Declare variable to hold loop counts 
    Dim i As Integer = 0 

    'Declare variable to hold stream reader object 
    Dim inFile As IO.StreamReader 

    'Check if txt file exists before opening to avoid run time error/crash 
    If IO.File.Exists("states.txt") Then 
     'Open the file 
     inFile = IO.File.OpenText("states.txt") 
     'Loop instructions until end of file is reached 
     Do Until inFile.Peek = -1 
      'Read a line and store in array 
      strStates(i) = inFile.ReadLine 

      'Message box to confirm array loop is working correctly 
      'MessageBox.Show(strStates(i)) 

      'Manually increment array counter 
      i = i + 1 
     Loop 

     'Close the file 
     inFile.Close() 

     'Sort the array in descending order 
     Array.Sort(strStates) 
     Array.Reverse(strStates) 

     'Output to list box 
     For i = 0 To strStates.Length - 1 
      lstNames.Items.Add(strStates(i)) 
     Next i 

    Else 
     'Show a message box telling user file can't be found 
     MessageBox.Show("File does not exist or cannot be found.", "States", 
     MessageBoxButtons.OK, MessageBoxIcon.Information) 
    End If 
End Sub 

みんなありがとう：

 For i = 0 To strStates.Length - 1 
      lstNames.Items.Add(strStates(i)) 
     Next i 

ので、最終的な作業コードは次のようになります！