i have to open a text file from an OpenFileDialog as an Array into a listbox. The data in the text file are dates and a number in this format, "01/06/2010,106". what i need to do then is get the the 5 highest dates and the 5 lowest dates and display them in label, ie lblHigh and lblLow. Please help

6 Years
Discussion Span
Last Post by Reverend Jim

You have a CSV file, or a Comma Seperated Value file. To get the highest and lowest dates form the file, after opening and reading it into an arra, of course, is to simply use sort:

' Sort the array

Dim HighestValue = Array(0)               ' First value is the highest.
Dim LowestValue = Array(Array.Length-1)   ' Last value is the lowest.
Imports System.IO

Public Class Form1
    Dim dts(10) As Date
    Dim Qtys(10) As Integer

    Private Sub OpenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem1.Click

        Dim i As Integer = 0
        Dim sr As StreamReader = Nothing
        openFD.Filter = "Text Files (*.txt)|*.txt"
        If openFD.ShowDialog() = DialogResult.OK Then
                sr = New StreamReader(My.Computer.FileSystem.ReadAllText(openFD.FileName))
                lblCourse.Text = sr.ReadLine 'get the course outside the loop

                While sr.Peek > 0
                    Dim arr() As String = sr.ReadLine.Split(","c)
                    dts(i) = CDate(arr(0))
                    Qtys(i) = CInt(arr(1))

                    'resize arrays in blocks of 10
                    If i Mod 10 = 0 Then
                        ReDim Preserve dts(i + 10)
                        ReDim Preserve Qtys(i + 10)
                    End If
                    i += 1

                End While
                'When all read resize arrays to final size
                ReDim Preserve dts(i - 1)
                ReDim Preserve Qtys(i - 1)
            Catch ex As Exception
                MsgBox("An Error Occured." & vbCrLf & ex.Message)

            End Try
        End If
    End Sub

    Private Sub LoadListbox()
        Dim i As Integer
        For i = 0 To dts.Length - 1
            ListBox1.Items.Add(dts(i).ToShortDateString + " - " + Qtys(i).ToString)

        'sort by values
        Array.Sort(Qtys, dts)

        'display high and low
        lblLow.Text = dts(0).ToShortDateString + " - " + Qtys(0).ToString
        lblHigh.Text = dts(dts.Length - 1).ToShortDateString + " - " + Qtys(Qtys.Length - 1).ToString
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
    End Sub

End Class

That is the code i have, where am i going wrong?


Array is the reference to the actual array.

' sort the arrays

' Results
Dim LowestDate As Date = dts(0)
Dim HighestDate as Integer = dts(dts.Length - 1)

Dim LowestQuantity as Integer = Qtys(0)
Dim HighestQuantity as Integer = Qts(Qts.Length - 1)

' You can build the array another way as well
Dim HighestDates() As Date = {dts(0), dts(1), dts(2), dts(3), dts(4)}
Dim HighestQuantities() As Date = {Qtys(0), Qtys(1), Qtys(2), Qtys(3), Qtys(4)}

To everyone who has posted code so far: We generally do not post solutions unless the OP has gone to some effort to solve the problem on his/her own. In this case, the OP has posted what is quite likely a homework assignment and provided no proof that any attempt was made to solve the problem. If we post the solution then the OP has learned nothing from the assignment. We have effectively robbed the OP of part of his/her education.

Furthermore, if the marker does a google search that leads to this site then the OP will be labeled as a plagerizer. At some educational institutions this can lead to expulsion.


i didn't realise this, i truely am sorry. if you know of a place where i can find the information i need to learn how to do this then please tell me and i'll be more than happy to go there and learn.
Thank you


Is this an assignment for a programming course?

Just about any beginning VB book will tell you how to program the OpenFileDialog, how to do simple text input, and how to use the ListBox control. What books do you have available, and have you actually read them and tried to use any of the components that you'll need? If you don't have a book then try the Intro VB Series available online here

Edited by Reverend Jim

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.