找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 22166|回复: 4

[文本处理] [已解决]批处理怎样把多文本中重复内容分开统计数目?

[复制链接]
发表于 2011-8-24 16:33:47 | 显示全部楼层 |阅读模式
文本  111.txt  内容
  1. aa
  2. bb
  3. cc
  4. dd
  5. ee
  6. ff
  7. aa
  8. bb
复制代码
文本  222.txt  内容
  1. aa
  2. bb
  3. cc
  4. dd
  5. hh
  6. dd
  7. hh
复制代码
本想来统计分别数目却发现不对
  1. @echo off&setlocal enabledelayedexpansion
  2. for %%a in (*.txt) do (
  3.   for /f "delims=" %%b in (%%a) do (
  4.     set "str=%%b"
  5.       for %%i in (!str!) do (
  6.         set/a _%%i+=1
  7.         echo %%i 出现 !_%%i!次
  8.       )
  9.   )
  10. )
  11. pause
复制代码
运行结果为
  1. aa 出现 1次
  2. bb 出现 1次
  3. cc 出现 1次
  4. dd 出现 1次
  5. ee 出现 1次
  6. ff 出现 1次
  7. aa 出现 2次
  8. bb 出现 2次
  9. aa 出现 3次
  10. bb 出现 3次
  11. cc 出现 2次
  12. dd 出现 2次
  13. hh 出现 1次
  14. dd 出现 3次
  15. hh 出现 2次
  16. 请按任意键继续. . .
复制代码
我的目的是想 将
显示成
------------------------------------------------------
aa 出现 2 次
bb 出现 2 次
cc 出现 1 次
dd 出现 1 次
ee 出现 1 次
ff  出现 1 次
-----------------------------------------------------
aa  出现 1 次
bb  出现 1 次
cc  出现 1 次
dd  出现 2 次
hh  出现 2 次
-------------------------------------------------------

就是说,程序读入各个文本的时候,读完一个文本之后可以让计数器归零,重新开始新的统计下一个文本并输出,而不是累加,可以做的到么?谢谢大家。

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2011-8-24 16:50:04 | 显示全部楼层
本帖最后由 ArdentMan 于 2011-8-24 16:56 编辑

  1. @Echo Off&SetLocal EnableDelayedExpansion
  2. For %%i In (*.txt) Do (
  3.   SetLocal
  4.   For /F "delims=" %%j In (%%i) Do Set /A _%%j+=1
  5.   For /F "tokens=1,2 delims==_" %%j In ('Set _') Do Echo %%j出现%%k次
  6.   EndLocal&Echo,
  7. )
  8. Pause>Nul
复制代码

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2011-8-24 18:16:01 | 显示全部楼层
回复 2# ArdentMan


    非常感谢~!!!
 楼主| 发表于 2011-8-24 18:43:11 | 显示全部楼层
回复 2# ArdentMan


     SetLocal
     为什么要 setlocal?
发表于 2011-8-24 20:38:01 | 显示全部楼层
用SetLocal和EndLocal来设置其间的变量区域化
唉,详细说起来比较复杂~~~
楼主还是在论坛搜索SetLocal吧

评分

参与人数 1技术 +1 收起 理由
playinthesky + 1 好的,我会努力学习,谢谢版主。

查看全部评分

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 01:40 , Processed in 0.018350 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表