从读和操作.csv文件

我有每个月多个的.csv文件当中去，如：从读和操作.csv文件

01/04/2012,00:00,7.521527,80.90972,4.541667,5.774305,7,281.368 
02/04/2012,00:00,8.809029,84.59028,6.451389,5.797918,7,274.0764 
03/04/2012,00:00,4.882638,77.86806,1.152778,15.13611,33,127.6389 
04/04/2012,00:00,5.600694,50.35417,-3.826389,15.27222,33,40.05556

的格式是：日期形式DD/MM/YY，当前时间，当前温度显示，当前湿度，当前露点，当前风速，电流阵风，当前风轴承

程序需要计算平均为温度湿度风速风向

并将它们显示在文本框上。

有什么想法？

这是我迄今所做的......

Option Strict On 
Option Explicit On 

Imports System.IO 
Imports System 

Public Class Form1 

Private Sub cmb1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb1.SelectedIndexChanged 

End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click 
    Me.Close() 
End Sub 

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndata.Click 
    'This is for August 
    If cmb1.SelectedIndex = 1 Then 
     TextBox1.Clear() 
     Using reader As New StreamReader("c://temp/DailyAug12log.csv") 
      Dim line As String = reader.ReadLine() 
      Dim avgTemp As Integer 
      Dim fields() As String = line.Split(",".ToCharArray()) 
      Dim fileDate = CDate(fields(0)) 
      Dim fileTime = fields(1) 
      Dim fileTemp = fields(2) 
      Dim fileHum = fields(3) 
      Dim fileWindSpeed = fields(4) 
      Dim fileWindGust = fields(5) 
      Dim fileWindBearing = fields(6) 

      While line IsNot Nothing 
       counter = counter + 1 
       line = reader.ReadLine() 
      End While 
      avgTemp = CInt(fields(2)) 
      avgTemp = CInt(CDbl(avgTemp/counter)) 
      TextBox1.Text = TextBox1.Text & "Month = August" & vbCrLf & "Temperature Average: " & avgTemp & vbCrLf 
     End Using 
    End If 
End Sub 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim files() As String 
    files = Directory.GetFiles("C:\Temp", "*.csv", SearchOption.AllDirectories) 
    For Each FileName As String In files 
     cmb1.Items.Add(FileName.Substring(FileName.LastIndexOf("\") + 1, FileName.Length - FileName.LastIndexOf("\") - 1)) 
    Next 
End Sub 
End Class

来源

2013-05-07 yolad

您需要另一个变量来跟踪您读过的行数。每行增加一个。然后用行数除“total”变量并用计算出的值更新文本框。你可以声明其他“总”变量来总结其他测量结果...... – 2013-05-07 02:27:18

感谢我的工作！任何想法如何添加此？谢谢！ – yolad 2013-05-07 03:39:21

严重吗？...以与“总”变量相同的位置/方式声明线的计数器。它将是Integer类型。将该变量在与累积总变量相同的地方增加1。你认为你应该计算while循环内部还是外部的平均值？平均使用哪种数据类型？整数还是双精度？ – 2013-05-07 04:10:20

Private Class Weather 
    Public SampleTimeStamp AS Date 
    Public Temperature AS Double 
    Public Humidity As Double 
    Public WindSpeed AS Double 
    Public WindBearing AS Double 
End Class 

Sub Main 
    Dim samples = ReadFile("c://temp/DailyAug12log.csv") 

    Dim avgTemperature = samples.Average(Function(s) s.Temperature) 
    ... 
End Sub 

Private Function ReadFile(ByVal fileName as String) AS List(Of Weather) 
    Dim samples As New List(Of Weather) 
    Using tfp As new TextFieldParser(filename) 
     tfp.Delimiters = new String() { "," } 
     tfp.TextFieldType = FieldType.Delimited 

     While Not tfp.EndOfData 
      Dim fields = tfp.ReadFields() 
      Dim sample As New Weather() 

      sample.SampleTimeStamp = Date.ParseExact(fields(0) & fields(1), "dd\/MM\/yyyyHH\:mm", CultureInfo.InvariantCulture) 
      sample.Temperature = Double.Parse(fields(2), CultureInfo.InvariantCulture) 
      sample.Humidity = Double.Parse(fields(3), CultureInfo.InvariantCulture) 
      sample.WindSpeed = Double.Parse(fields(4), CultureInfo.InvariantCulture) 
      sample.WindBearing = Double.Parse(fields(5), CultureInfo.InvariantCulture) 
      samples.Add(sample) 
     End While 

     Return samples 
    End Using 
End Function

来源

2013-05-07 06:55:13 adrianm

谢谢！我将如何显示每个文本框的平均值？ :) – yolad 2013-05-07 07:21:41

TextBox.Text = String.Format（CultureInfo.CurrentCulture，“平均温度为{0}”，avgTemperature） – adrianm 2013-05-07 09:27:45

我不会用这个aprroach - 如果的列的顺序，你的程序会显示错误的结果。我会使用一个很好的csv阅读器，如http://kbcsv.codeplex.com/，并将数据读取到数据表。那么你可以很容易和可靠地计算你的结果列，因为你可以像MyDatatable.Cooumns [“Headername”]那样对每列进行处理。

来源

2013-05-07 07:41:48

从读和操作.csv文件

回答

相关问题