使用VBScript计算文本文件中数字的平均值

Question

我正在尝试计算文本文件中所有数字之间的平均值(每个数字都在不同的行上(，无论有多少数字。(使用VBScript(

下面是一个文本文件的例子，我正试图找到其数字之间的平均值：

1
9
4
4
2

另外，很抱歉，如果我没有把这个词说好，这是我的第一个问题。

Answer 1

你能试试这个脚本吗(我假设数字是整数(：

filename = "myfile.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f   = fso.OpenTextFile(filename)
i   = 0   'Elements number      
sum = 0   'Sum of values
Do Until f.AtEndOfStream
sum = sum + CInt(trim(f.ReadLine))
i = i + 1
Loop
avg = sum / i   'Calculate the average
f.Close

谢谢