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