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

谢谢指导

TOP

回复 15# shniutan
写的有点乱,凑合用吧。bat文件存为ANSI编码:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "tokens=7,12 delims=&= " %%i in (b.txt) do set #%%j=%%i
  4. (for /f "tokens=1* delims==" %%i in (a.txt) do echo,%%j)>Newfile.txt
  5. findstr /g:Newfile.txt c.txt>1.log
  6. (for /f "tokens=1* delims==" %%i in (1.log) do echo,%%j)>Newfile.txt
  7. for /f "tokens=1-5,7 delims=- " %%a in (Newfile.txt) do set /a "_%%a%%b%%c%%d%%e%%f+=1"
  8. (for /f "tokens=1-5,7 delims=- " %%a in (Newfile.txt) do (
  9.     if not defined @%%a%%b%%c%%d%%e%%f (
  10.         echo,%%f !#%%f! %%a-%%b-%%c-%%d-%%e !_%%a%%b%%c%%d%%e%%f!
  11.         set /a Sum+=!_%%a%%b%%c%%d%%e%%f!
  12.     )
  13.     set @%%a%%b%%c%%d%%e%%f=true
  14. ))>1.log
  15. sort 1.log>Newfile.txt
  16. echo,Sum !Sum!>>Newfile.txt
  17. del 1.log
  18. pause
复制代码
1

评分人数

TOP

本帖最后由 xczxczxcz 于 2022-4-24 19:48 编辑

给你一个好玩的,保存为 xxx.ps1, 右键执行
  1. $a='.\a.txt';
  2. $b='.\b.txt';
  3. $c='.\c.txt';
  4. $hash=[Collections.Generic.HashSet[string]]::new();
  5. $infoID = @();
  6. (gc $a -ReadCount 0).foreach{
  7. $id = $_ -replace '^.*?=|\s+\d+$';
  8. if($hash.Add($id)){ $infoID+=$id }
  9. }
  10. $hash.Clear();
  11. $user = @();
  12. (gc $b -ReadCount 0).Foreach{
  13. $s = $_ -replace '^.*?=(.*?)&.*?-\s+((\d+\.){3}\d+).*$','$2,$1' -split ',';
  14. if($hash.Add($s[0]+$s[1])){
  15. $user += @{ $s[0].ToString() = $s[1]}
  16. }
  17. }
  18. $hash.Clear();
  19. $ipCount=@();
  20. (gc $c -ReadCount 0).Foreach{
  21. $s = $_ -replace '^.*?=(.*?)\s.*?-\s+((\d+\.){3}\d+).*$','$1,$2' -split ',';
  22. if($infoID.contains($s[0])){
  23. $ipCount+=[PsCustomObject]@{id=$s[0]; ip=$s[1]; name=$user."$($s[1])"; }
  24. }
  25. }
  26. ($ipcount|group name).Foreach{
  27. $ip =$_.Group[0].ip;
  28. $name = $_.Name;
  29. $_.group|group id|%{$ip + "`t" + $name + "`t`t" + $_.Name + "`t" + $_.Count}
  30. }
  31. &cmd /c set/p=全部完成 退出<nul`&pause>nul;exit
复制代码
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

这是结果:
  1. 192.168.30.20   技术部_龙一a            7717F5D7-A409-4D48-9E87-1A92367C3593  1
  2. 192.168.30.20   技术部_龙一a            C8FC9543-453E-44AB-9188-FC72963689D1  1
  3. 192.168.30.20   技术部_龙一a            AAA31733-09CE-4015-A327-7C4BAC2B25EE  2
  4. 192.168.30.20   技术部_龙一a            A0C8BDE0-6A46-4128-B566-5F40D0B83299  1
  5. 192.168.30.1    技术部_郭肥来a          7717F5D7-A409-4D48-9E87-1A92367C3593  2
  6. 192.168.30.1    技术部_郭肥来a          99D32186-121E-4FF7-AB54-0F816687A0A5  1
  7. 192.168.30.1    技术部_郭肥来a          A0C8BDE0-6A46-4128-B566-5F40D0B83299  1
  8. 192.168.102.11  服务部_李四博a          7717F5D7-A409-4D48-9E87-1A92367C3593  1
  9. 192.168.102.11  服务部_李四博a          99D32186-121E-4FF7-AB54-0F816687A0A5  1
  10. 192.168.102.11  服务部_李四博a          C8FC9543-453E-44AB-9188-FC72963689D1  1
  11. 192.168.102.11  服务部_李四博a          AAA31733-09CE-4015-A327-7C4BAC2B25EE  1
  12. 192.168.29.10   人事部_肖逄文a          99D32186-121E-4FF7-AB54-0F816687A0A5  1
  13. 192.168.29.10   人事部_肖逄文a          A0C8BDE0-6A46-4128-B566-5F40D0B83299  1
  14. 192.168.37.153  工程部_张三a            99D32186-121E-4FF7-AB54-0F816687A0A5  1
  15. 192.168.37.153  工程部_张三a            C8FC9543-453E-44AB-9188-FC72963689D1  2
  16. 192.168.37.153  工程部_张三a            A0C8BDE0-6A46-4128-B566-5F40D0B83299  1
  17. 192.168.81.18   投诉部_王欣零a          AAA31733-09CE-4015-A327-7C4BAC2B25EE  1
复制代码
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

回复 19# xczxczxcz

试了试,好像不行,用楼上的代码可以了,非常感谢

TOP

回复 17# qixiaobin0715

用这个代码没问题,非常感谢

TOP

返回列表