[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

  1. Set FSO = CreateObject("Scripting.FileSystemObject")
  2. Set File = FSO.OpenTextFile("a.txt",1)
  3. Do Until File.AtEndOfStream
  4.    A = Split(File.ReadLine,":")
  5.    If Trim(A(0)) = "周长" Then L1 = L1 + CSng(A(1))
  6.    If Trim(A(0)) = "长度" Then L2 = L2 + CSng(A(1))
  7. Loop
  8. MsgBox "周长总和:" & L1 & vbCrLf & "长度总和:" & L2
复制代码
保存为vbs,与a.txt放在同一位置,试试

TOP

回复 2# apang


    很好,很强大!非常感谢!

TOP

回复 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

TOP

回复 4# kunty

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

TOP

回复 5# apang


    是放在一起的

TOP

回复 6# kunty


    错误提示就是第2行的文件名有问题
将文档拖拽到vbs上看如何:
  1. Set Arg = WScript.Arguments
  2. If Arg.Count = 0 Then MsgBox "拖拽Txt文档" :Wscript.Quit
  3. Set FSO = CreateObject("Scripting.FileSystemObject")
  4. Set File = FSO.OpenTextFile(Arg(0),1)
  5. Do Until File.AtEndOfStream
  6.    strLine = File.ReadLine
  7.    If Not strLine = "" Then
  8.       A = Split(strLine,":")
  9.       If Trim(A(0)) = "周长" Or Trim(A(0)) = "长度" _
  10.       Or Trim(A(0)) = "弧长" Then L = L + CSng(A(1))
  11.    End If
  12. Loop
  13. MsgBox "长度总和:" & L
复制代码

TOP

返回列表