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

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
复制代码

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
复制代码