[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
那个, 检查重复字的是不是用 那个文字做变量名,然后用if defined ... 来判断是否重复的。

TOP

本帖最后由 523066680 于 2011-6-1 13:09 编辑

第一题关于统计字符个数因为前人做过这么多折腾了,我就不折腾了,绕过。找最简单的,第二条。
以前有做过类似,我的目的是搞得结果人性化一点,代码没有优势
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set line=0
  4. for /f "tokens=*" %%a in (src2.txt) do (
  5. set /a line+=1
  6. call :next "%%a" !line!
  7. )
  8. pause
  9. exit
  10. :next
  11. set str=%~1
  12. set /a x=0,xb=1
  13. :lp
  14. set get=!str:~%x%,1!
  15. if "%get%"==" " (set /a x+=1 &goto :lp)
  16. if defined SPEC_%get% (
  17. echo    !SPEC_%get%:%get%=_%get%_!
  18. echo PK 行!line! !str:%get%=_%get%_!
  19. echo ,
  20. ) else (
  21. set SPEC_!str:~%x%,1!=行!line! !str!
  22. )
  23. set /a x+=1
  24. if not "!str:~%x%!"=="" (goto :lp) else (goto :eof)
复制代码
处理结果
  1.    行5 吊民伐罪 周[发]殷汤 坐朝问道 垂拱平章 爱育黎首 臣伏戎羌
  2. PK 行7 盖此身[发] 四大五常 恭惟鞠养 岂敢毁伤 女慕贞洁 男效才良
  3. ,
  4.    行2 闰馀成岁 律吕调阳 [云]腾致雨 露结为霜 金生丽水 玉出昆冈
  5. PK 行26 宣威沙漠 驰誉丹青 九州禹迹 百郡秦并 岳宗泰岱 禅主[云]亭
  6. ,
  7.    行2 闰馀成岁 律吕调阳 云腾致雨 露结为霜 金生丽水 玉出[昆]冈
  8. PK 行27 雁门紫塞 鸡田赤城 [昆]池碣石 巨野洞庭 旷远绵邈 岩岫杳冥
  9. ,
  10.    行3 剑号[巨]阙 珠称夜光 果珍李柰 菜重芥姜 海咸河淡 鳞潜羽翔
  11. PK 行27 雁门紫塞 鸡田赤城 昆池碣石 [巨]野洞庭 旷远绵邈 岩岫杳冥
  12. ,
  13.    行11 [资]父事君 曰严与敬 孝当竭力 忠则尽命 临深履薄 夙兴温凊
  14. PK 行28 治本于农 务[资]稼穑 俶载南亩 我艺黍稷 税熟贡新 劝赏黜陟
  15. ,
  16.    行32 欣奏累遣 [戚]谢欢招 渠荷的历 园莽抽条 枇杷晚翠 梧桐蚤凋
  17. PK 行35 亲[戚]故旧 老少异粮 妾御绩纺 侍巾帷房 纨扇圆絜 银烛炜煌
  18. ,
复制代码
哟呵,下划线改成方括号比较直观。
1

评分人数

TOP

返回列表