[已解决]批处理如何实现批量求和？

aa77dd@163.com

回复 15# serena

有 bug, 当求和结果绝对值 < 0.1 时 或者 负数小数 取符号时, 都会触发

5 楼已更新


如楼下所言, 你的数据文件按 用户号排序, 在 EXCEL 里分类汇总就 OK 了, 很简单的

pcl_test

vbs

1. Set Dict = CreateObject("Scripting.Dictionary")
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Set File1 = fso.OpenTextFile(".\测试.txt", 1)
   
4. Set File2 = fso.CreateTextFile(".\结果.txt", 2)
   
5. Do While File1.AtEndOfStream <> True
   
6.     arr = split(File1.ReadLine,"        ")
   
7.         If Dict.Exists(arr(0)) <> True Then
   
8.             Dict.Add arr(0), arr(1)
   
9.         Else
   
10.             tmp = CDbl(Dict.Item(arr(0)))+CDbl(arr(1))
    
11.             Dict.Item(arr(0))=tmp
    
12.         End If
    
13. Loop
    
14. objKeys = Dict.Keys
    
15. objItems = Dict.Items
    
16. For i = 0 To Dict.Count -1
    
17.     File2.WriteLine objKeys(i)&"="&formatnumber(objItems(i),2,true)
    
18. Next
    
19. File1.Close
    
20. File2.Close
    
21. Dict.RemoveAll
    
22. Set Dict = Nothing
    
23. Msgbox "完成"

复制代码

用Excel也可很方便合并求和

回家路上

学了set，请教了5楼，也没写好。待改进O(∩_∩)O！

1. 
   
2. @echo off & setlocal enabledelayedexpansion
   
3. for /f "tokens=1-3 delims=. " %%i in ('sort a.txt') do (
   
4.         set d=%%j
   
5.         if "%%i"=="!flag!" (
   
6.                 set /a "neg=^!(!d:~1!+!d!),pos=^!neg,int+=%%j,s=^!((int>>31)-(%%j>>31)),n=^!s,dec-=s*(%%k+0),dec+=n*(%%k+0),int+=dec/10,dec=dec%%10"
   
7.         ) else (
   
8.                 if defined flag (
   
9.                         set /a "dec=(1+2*(dec>>31))*dec"
   
10.                         echo;!flag!=!int!.!dec!
    
11.                 )
    
12.                 set flag=%%i&set int=%%j&set dec=%%k
    
13.         )
    
14. )
    
15. set /a "dec=(1+2*(dec>>31))*dec"
    
16. echo;!flag!=!int!.!dec!
    
17. pause & exit /b
    

复制代码

1. 
   
2. set dec=!dec!00000&set dec=!dec:~,5!&set ndec=%%k00000&set ndec=!ndec:~,5!&set int=!int:*0=!&set nint=%%j&set nint=!nint:*0=!
   
3. set /a rst=!nint!!ndec!+!int!!dec!&set int=!rst:~,-5!&set dec=!rst:~-5!
   

复制代码

回家路上

再开个bat、JS混编的

1. 
   
2. @if(0)==(0) echo off&sort "a.txt"|cscript -nologo -e:jscript "%~f0"&pause&exit /b&@end
   
3. 
   
4. var content = WScript.StdIn.ReadAll();
   
5. var re = {};
   
6. content.replace(/([^\s]+)\s+(.*)/g,function($0,$1,$2){
   
7.         re[$1] = re[$1]?parseFloat(re[$1])+parseFloat($2):$2;
   
8. });
   
9. for(var i in re) WSH.Echo(i+"="+re[i]);
   

复制代码