回 帖 发 新 帖 刷新版面

主题:如何逐行读取一个txt文件并相加?

现有一个txt文件,内容为:
1
0
1
1
0
.......
如何逐行读取该txt文件的内容并相加,而且生成一个新的txt文件,内容为刚才算出来的和?
即:新文件的内容是:1+0+1+1+0+.......=和(等号前面的可省略)。

回复列表 (共2个回复)

沙发

Dim a As Long, b As String '如果有小数,a就要声明为单精度
Open FileName1 For Input As #1
  Do Until EOF(1)
    Line Input #1, b
    a = a + Val(b)
  Loop
Close #1

Open FileName2 For Output As #1
  Print #1, a
Close #1

板凳

谢谢前辈,完全正确,学习中!

我来回复

您尚未登录,请登录后再回复。点此登录或注册