Calculate Average by Date from Text File

From: Alex (alex_at_protexionproducts.com)
Date: 11/22/04 

Date: 22 Nov 2004 12:27:44 -0800

I have a comma separated text file in the form:

11/28/2004 12:00:00, 2.78655354
11/28/2004 12:00:10, 1.9978
11/28/2004 12:00:20, 0.978
11/29/2004 12:00:00, 1.98467
11/29/2004 12:00:10, 3.005

I would like to be able to read the file and then write just the date
and the average value to a to an array and then output it to a text
file. I am not having any problems reading in the file. However, I
can't figure out how to summarize the raw data into an array or
structure or collection. The data should look like this:

11/28/2004 1.9207844
11/29/2004 2.494835

I would imagine it requires a for loop of some sort. I have tried for
a while but with no luck. Hopefully, someone can answer this for me.
Here is what I have so far:

Private Sub btnWriteOutputFile_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnWriteOutputFile.Click
        Dim srdCurrent As System.IO.StreamReader
        Dim intInputCount, intOutputCount, intTempCount As Integer
        Dim strLine As String
        Dim strFields() As String
        Dim chrDelimiter() As Char = {ToChar(",")}
        Dim swriCurrent As System.IO.StreamWriter
        ofdInputFile.Title = "What file do you want to summarize"
        ofdInputFile.ShowDialog()
        srdCurrent = New System.IO.StreamReader(ofdInputFile.FileName)
        strLine = srdCurrent.ReadLine

        Do Until strLine = Nothing
            ReDim Preserve OutputRecords(intInputCount)
            strFields = strLine.Split(chrDelimiter)
            OutputRecords(intInputCount).RecordDate =
ToDateTime(strFields(0))
            OutputRecords(intInputCount).Temperature =
ToSingle(strFields(1))
            intInputCount += 1
            strLine = srdCurrent.ReadLine
        Loop
        For intOutputCount = 0 To OutputRecords.GetUpperBound(0)

            Summarizing Code Here ?????

        Next
        sfdOutputFile.Title = "Choose File or Name File to save
summary to"
        sfdOutputFile.ShowDialog()
        swriCurrent = New
System.IO.StreamWriter(sfdOutputFile.FileName)
        For intOutputCount = 0 To OutputRecords.GetUpperBound(0)
          swriCurrent.Write(OutputRecord(intCount).RecordDate.ToShortDateString
          swriCurrent.Write(",")
          swriCurrent.Write(OutputRecord(intCount).Temperature 'This
should be the average
            swriCurrent.WriteLine()
        Next

        srdCurrent.Close()

    End Sub

Relevant Pages

  • Re: Calculate Average by Date from Text File
    ... > and the average value to a to an array and then output it to a text ... > can't figure out how to summarize the raw data into an array or ... > Private Sub btnWriteOutputFile_Click(ByVal sender As System.Object, ...
    (microsoft.public.dotnet.languages.vb)
  • SUMMARY: A1000 and space
    ... Nathan Dietsch ... I am still waiting for new battery which i ordered to make sure caching isn't the issue.(I will summarize if it works) ... The healthck should show battery information. ... On a really large disk array, ...
    (SunManagers)
  • biologist new to matlab
    ... I have a vector of spike times from a physiology experiment. ... way to convert my raw data (a 1x3 array) to a 1x20 array in which ... each element is zero, except for the fourth, tenth, and fifteenth, ... value of an element in my raw data to 1. ...
    (comp.soft-sys.matlab)
  • Re: biologist new to matlab
    ... I have a vector of spike times from a physiology experiment. ... way to convert my raw data (a 1x3 array) to a 1x20 array in which ... each element is zero, except for the fourth, tenth, and fifteenth, ... value of an element in my raw data to 1. ...
    (comp.soft-sys.matlab)
  • How do I save a classs Raw Data (without .NET object data) to a binary file?
    ... I want to save the raw data of a class (without the .NET object ... I want to save the raw characters of the string and the raw integer ... array of Bytes and cast that array as my class, ...
    (microsoft.public.dotnet.languages.vc)
Loading