01.Dim fileinfo As New System.IO.FileStream("D:\CountOutput.txt", IO.FileMode.Open)
02. Dim Reader As New System.IO.StreamReader(fileinfo)
03. Dim List As New List(Of String)
04. Do While Reader.Peek > 0
05. List.Add(Reader.ReadLine)
06. Loop
07.
08. Dim Array1 As String() = List.ToArray
09. fileinfo.Close()
10. Reader.Close()
11.
12. fileinfo = New System.IO.FileStream("D:\CountOutput.txt", IO.FileMode.Open)
13. Reader = New System.IO.StreamReader(fileinfo)
14.
15. Dim sArray As String()
16. Dim Index As Integer
17. Do While Reader.Peek > 0
18. ReDim Preserve sArray(Index)
19. sArray(Index) = Reader.ReadLine
20. Index += 1
21. Loop
22.
23. Dim i As Integer
24. For i = 0 To UBound(sArray)
25. Label20.Visible = True
26. Label20.Text = sArray(i)
27. Next
28.
29. fileinfo.Close()
30. Reader.Close()
31. End Sub
