[文本处理] 批处理如何计算TXT文件下某个数据的总和？

kunty

怎么算出，圆的周长和所有直线的长度的总和，急用麻烦各位大神关注一下
小弟现在这里谢谢了

apang

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("a.txt",1)
Do Until File.AtEndOfStream
   A = Split(File.ReadLine,":")
   If Trim(A(0)) = "周长" Then L1 = L1 + CSng(A(1))
   If Trim(A(0)) = "长度" Then L2 = L2 + CSng(A(1))
Loop
MsgBox "周长总和：" & L1 & vbCrLf & "长度总和：" & L2
复制代码

保存为vbs，与a.txt放在同一位置，试试

kunty

回复 2# apang


    很好，很强大！非常感谢！

kunty

回复 2# apang



   程序很好，不过我自己加了点东西，有时候会报错如图所示，改后代码如下：

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("attribute.txt",1)
Do Until File.AtEndOfStream
   A = Split(File.ReadLine,":")
   If Trim(A(0)) = "周长" Then L1 = L1 + CSng(A(1))
   If Trim(A(0)) = "长度" Then L2 = L2 + CSng(A(1))
   If Trim(A(0)) = "弧长" Then L3 = L3 + CSng(A(1))
   L4=L1+L2+L3
Loop
MsgBox "周长总和：" & L4

apang

回复 4# kunty

代码与txt文档放在一起了吗？如果不在一起，请写绝对路径，象这样：
Set File = FSO.OpenTextFile("D:\abc\a.txt",1)

kunty

回复 5# apang


    是放在一起的

apang

回复 6# kunty


    错误提示就是第2行的文件名有问题
将文档拖拽到vbs上看如何：

Set Arg = WScript.Arguments
If Arg.Count = 0 Then MsgBox "拖拽Txt文档" :Wscript.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile(Arg(0),1)
Do Until File.AtEndOfStream
   strLine = File.ReadLine
   If Not strLine = "" Then 
      A = Split(strLine,":")
      If Trim(A(0)) = "周长" Or Trim(A(0)) = "长度" _
      Or Trim(A(0)) = "弧长" Then L = L + CSng(A(1))
   End If
Loop
MsgBox "长度总和：" & L
复制代码