vb.net - 如何找到文本文件中所有数字的平均值

Question

我对这个问题感到可笑。下面的代码总结了文本文件 Dailyfile 中的所有数字，并将总计输出到 AverageFile。问题是我不想总结。我希望它找出所有数字的平均值。

我该怎么做？

Dim AverageFile As String = "C:\xxx\zzz\" & System.DateTime.Now.ToString("yyyyMMdd") & ".txt"
Dim DailyFile As String = "C:\xxx\xxx\" & System.DateTime.Now.ToString("yyyyMMdd") & ".txt"  

            Try
                If System.IO.File.Exists(AverageFile) Then
                    Dim total As double = 0
                    For Each line As String In IO.File.ReadAllLines(DailyFile)

                        total += Double.Parse(line)
                    Next
                    Dim objWriter As New System.IO.StreamWriter(AverageFile, false)
                    objWriter.WriteLine(total.ToString) 
                    objWriter.Close()
                Else
                    'Nothing yet
                End If

            Catch ex As Exception
                lbErrors.Items.Add(String.Concat(TimeOfDay & " Error 98: File or folder might not exist. Restart application... ", ex.Message))
            End Try

Dailyfile 看起来就像这样；

我尝试了 total 0= double.parse(line) 的一系列变体，因为我觉得这就是问题所在。我还尝试过将总数调暗为整数 = 0。我是计算新手，所以我不知道事情进展如何。

Answer 1

平均值就是总数除以你总结的事物的数量。 (假设您想使用 arithmetic mean ，这可能就是您正在寻找的。)

Dim total As double = 0
Dim numOfLines As Integer = 0
For Each line As String In IO.File.ReadAllLines(DailyFile)
    numOfLines += 1
    total += Double.Parse(line)
Next
Dim average As Double = total / numOfLines
Dim objWriter As New System.IO.StreamWriter(AverageFile, false)
objWriter.WriteLine(average.ToString) 
objWriter.Close()

您的代码中缺少的只是跟踪行数并将总和除以该数字。

<小时/>

举个例子:我们有3个人。我23岁，你35岁，我们的 friend 40岁。我们的平均年龄是(23 + 35 + 40)/3，即 32.666...