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

[问题求助] 求助VBS对文本第一列进行汇总,然后在一行输出

假设原有 txt 样式,如下:

ad001|购买1000
ad002|卖出2000
ad003|购买1000
ad004|持平1000
ad005|卖出1500
ad001|卖出1000
ad002|暂无数据

请问VBS 能否按照第一列进行汇总,把第一列相同输出在一行?非常感谢各位老师

ad001|购买1000 & 卖出1000
ad002|卖出2000 & 暂无数据
ad003|购买1000
ad004|持平1000
ad005|卖出1500

  1. On Error Resume Next
  2. Dim srcFile, dic, fso, objFile, s, arr
  3. srcFile = "1.txt"    '源文件
  4. Set dic = CreateObject("Scripting.Dictionary")
  5. Set fso = CreateObject("Scripting.FileSystemObject")
  6. Set objFile = fso.OpenTextFile(srcFile, 1)
  7. while Not objFile.AtEndOfStream
  8.     s = objFile.ReadLine
  9.     arr = Split(s, "|", 2)
  10.     If Not dic.Exists(arr(0)) Then
  11.         dic.Item(arr(0)) = s
  12.     Else
  13.         dic.Item(arr(0)) = dic.Item(arr(0)) + "&" + arr(1)
  14.     End If
  15. wend
  16. WSH.Echo Join(dic.Items, vbCrLf)
复制代码

TOP

回复 2# WHY


    感谢,请问用bat 能实现吗.....或者用这个定义成函数,从BAT 里面调用?

TOP

回复 3# filippo009


    bat能实现,纯批、第三方、混编、等等,办法很多。

TOP

本帖最后由 WHY 于 2020-12-17 15:07 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "tokens=1* delims=|" %%i in ('sort 1.txt') do (
  4.     if "!s!" == "%%i" (
  5.         set "out=!out! & %%j"
  6.     ) else (
  7.         if defined out echo;!out!
  8.         set "s=%%i"
  9.         set "out=%%i|%%j"
  10.     )
  11. )
  12. if defined out echo;!out!
  13. pause
复制代码
  1. gawk -F"|" "{ a[$1] = a[$1] ? a[$1]\"^&\"$2 : $0 } END { for(i in a)print a[i] }" 1.txt > 2.txt
复制代码

TOP

实在有点不解,VBS 和bat 把结果 另存为其他文件,怎么加呢,非常感谢

TOP

返回列表