批处理之家 - Powered by Discuz! Board

@ECHO %dbg% OFF
setlocal ENABLEDELAYEDEXPANSION
MODE CON COLS=120 LINES=30
SET BJX=赵钱孙李周吴郑王冯陈诸卫蒋沈韩杨朱秦尤许何吕施张孔曹严华金魏陶姜戚谢邹喻柏水窦章云苏潘葛奚范彭郎鲁韦昌马苗凤花方俞任袁柳酆鲍史唐费廉岑薛雷贺倪汤滕殷罗毕郝邬安常乐于时傅皮卡齐康伍余元卜顾孟平黄和穆萧尹姚邵堪汪祁毛禹狄米贝明臧计伏成戴谈宋茅庞熊纪舒屈项祝董粱杜阮蓝闵席季麻强贾路娄危江童颜郭梅盛林刁钟徐邱骆高夏蔡田樊胡凌霍虞万支柯咎管卢莫经房裘缪干解应宗丁宣贲邓郁单杭洪包诸左石崔吉钮龚程嵇邢滑裴陆荣翁荀羊於惠甄魏家封芮羿储靳汲邴糜松井段富巫乌焦巴弓牧隗山谷车侯宓蓬全郗班仰秋仲伊宫宁仇栾暴甘钭厉戎祖武符刘景詹束龙叶幸司韶郜黎蓟薄印宿白怀蒲台从鄂索咸籍赖卓蔺屠蒙池乔阴郁胥能苍双闻莘党翟谭贡劳逄姬申扶堵冉宰郦雍却璩桑桂濮牛寿通边扈燕冀郏浦尚农温别庄晏柴翟阎充慕连茹习宦艾鱼容向古易慎戈廖庚终暨居衡步都耿满弘匡国文寇广禄阙东殴殳沃利蔚越夔隆师巩厍聂晁勾敖融冷訾辛阚那简饶空曾毋沙乜养鞠须丰巢关蒯相查后荆红游竺权逯盖益桓公万俟司马上官欧阳夏侯诸葛闻人东方赫连皇甫尉迟公羊澹台公冶宗政濮阳淳于单于太叔申屠公孙仲孙轩辕令狐钟离宇文长孙慕容鲜于闾丘司徒司空亓官司寇仉督子车颛孙端木巫马公西漆雕乐正壤驷公良拓拔夹谷宰父谷粱晋楚闫法汝鄢涂钦段干百里东郭南门呼延归海羊舌微生岳帅缑亢况后有琴梁丘左丘东门西门商牟佘佴伯赏南宫墨哈谯笪年爱阳佟
SET J=0
SET W=0
::对姓氏表进行22*22的经纬划分.每一个交叉点代表一个姓氏.
FOR %%i IN (%BJX%) DO (
IF !J! == 0 SET /P=!W!: <NUL
SET /P=%%i <NUL
SET J!J!W!W!=%%i
CALL SET J!J!=%%J!J!%% %%i
IF !J! == 21 (SET /A W+=1 & SET J=-1 & ECHO.)
SET /a J+=1
)
ECHO. & SET /P W=请选择你的姓氏所在标签号: & CLS
FOR /L %%i IN (0,1,21) DO (ECHO %%i: !J%%i!)
ECHO. & SET /P J=请选择你的姓氏所在标签号: & CLS
ECHO 你的姓氏为: !J%J%W%W%!
pause

复制代码

@ECHO %dbg% OFF
setlocal ENABLEDELAYEDEXPANSION
MODE CON COLS=120 LINES=30
SET BJX=赵钱孙李周吴郑王冯陈诸卫蒋沈韩杨朱秦尤许何吕施张孔曹严华金魏陶
姜戚谢邹喻柏水窦章云苏潘葛奚范彭郎鲁韦昌马苗凤花方俞任袁柳酆鲍史唐费
廉岑薛雷贺倪汤滕殷罗毕郝邬安常乐于时傅皮卡齐康伍余元卜顾孟平黄和穆萧
尹姚邵堪汪祁毛禹狄米贝明臧计伏成戴谈宋茅庞熊纪舒屈项祝董粱杜阮蓝闵席
季麻强贾路娄危江童颜郭梅盛林刁钟徐邱骆高夏蔡田樊胡凌霍虞万支柯咎管卢
莫经房裘缪干解应宗丁宣贲邓郁单杭洪包诸左石崔吉钮龚程嵇邢滑裴陆荣翁荀
羊於惠甄魏家封芮羿储靳汲邴糜松井段富巫乌焦巴弓牧隗山谷车侯宓蓬全郗班
仰秋仲伊宫宁仇栾暴甘钭厉戎祖武符刘景詹束龙叶幸司韶郜黎蓟薄印宿白怀蒲
台从鄂索咸籍赖卓蔺屠蒙池乔阴郁胥能苍双闻莘党翟谭贡劳逄姬申扶堵冉宰郦
雍却璩桑桂濮牛寿通边扈燕冀郏浦尚农温别庄晏柴翟阎充慕连茹习宦艾鱼容向
古易慎戈廖庚终暨居衡步都耿满弘匡国文寇广禄阙东殴殳沃利蔚越夔隆师巩厍
聂晁勾敖融冷訾辛阚那简饶空曾毋沙乜养鞠须丰巢关蒯相查后荆红游竺权逯盖
益桓公万俟司马上官欧阳夏侯诸葛闻人东方赫连皇甫尉迟公羊澹台公冶宗政濮阳淳于单于太
叔申屠公孙仲孙轩辕令狐钟离宇文长孙慕容鲜于闾丘司徒司空亓官司寇仉督子车颛孙端木巫
马公西漆雕乐正壤驷公良拓拔夹谷宰父谷粱晋楚闫法汝鄢涂钦段干百里东郭南门呼延归海羊
舌微生岳帅缑亢况后有琴梁丘左丘东门西门商牟佘佴伯赏南宫墨哈谯笪年爱阳佟
for %%i in (%BJX%) do (
set/a num+=1
set str!num!=%%i
)
for /l %%i in (1 1 %num%) do (
set/a num_=!random! %% %num%+1
set var=!str%%i!
call set str%%i=%%str!num_!%%
set str!num_!=!var!
)
for /l %%i in (1 1 %num%) do set /p=!str%%i! <nul
pause

复制代码

'廉' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'尹' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'季' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'莫' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'羊' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'仰' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'台' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'雍' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'古' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'聂' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'益' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'叔' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'马' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'舌' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

复制代码

@ECHO %dbg% OFF
setlocal ENABLEDELAYEDEXPANSION
if not "%1"==":" (
for /f "delims=" %%a in ('"%~0" :^|sort') do (
for /f "tokens=2" %%b in ("%%a") do set bjx=!bjx! %%b
)
goto loop
)
SET var=赵钱孙李周吴郑王冯陈诸卫蒋沈韩杨朱秦尤许何吕 ^
施张孔曹严华金魏陶姜戚谢邹喻柏水窦章云苏潘葛奚范彭 ^
郎鲁韦昌马苗凤花方俞任袁柳酆鲍史唐费廉岑薛雷贺倪汤 ^
滕殷罗毕郝邬安常乐于时傅皮卡齐康伍余元卜顾孟平黄和 ^
穆萧尹姚邵堪汪祁毛禹狄米贝明臧计伏成戴谈宋茅庞熊纪 ^
舒屈项祝董粱杜阮蓝闵席季麻强贾路娄危江童颜郭梅盛林 ^
刁钟徐邱骆高夏蔡田樊胡凌霍虞万支柯咎管卢莫经房裘缪 ^
干解应宗丁宣贲邓郁单杭洪包诸左石崔吉钮龚程嵇邢滑裴 ^
陆荣翁荀羊於惠甄魏家封芮羿储靳汲邴糜松井段富巫乌焦 ^
巴弓牧隗山谷车侯宓蓬全郗班仰秋仲伊宫宁仇栾暴甘钭厉 ^
戎祖武符刘景詹束龙叶幸司韶郜黎蓟薄印宿白怀蒲台从鄂 ^
索咸籍赖卓蔺屠蒙池乔阴郁胥能苍双闻莘党翟谭贡劳逄姬 ^
申扶堵冉宰郦雍却璩桑桂濮牛寿通边扈燕冀郏浦尚农温别 ^
庄晏柴翟阎充慕连茹习宦艾鱼容向古易慎戈廖庚终暨居衡 ^
步都耿满弘匡国文寇广禄阙东殴殳沃利蔚越夔隆师巩厍聂 ^
晁勾敖融冷訾辛阚那简饶空曾毋沙乜养鞠须丰巢关蒯相查 ^
后荆红游竺权逯盖益桓公万俟司马上官欧阳夏侯诸葛闻人东方赫连皇甫 ^
尉迟公羊澹台公冶宗政濮阳淳于单于太叔申屠公孙仲孙轩辕令狐钟离宇文长孙 ^
慕容鲜于闾丘司徒司空亓官司寇仉督子车颛孙端木巫马公西漆雕乐正壤驷公良 ^
拓拔夹谷宰父谷粱晋楚闫法汝鄢涂钦段干百里东郭南门呼延归海羊舌微生岳帅 ^
缑亢况后有琴梁丘左丘东门西门商牟佘佴伯赏南宫墨哈谯笪年爱阳佟
for %%i in (!var!) do echo !random! %%i
goto :eof
:loop
MODE CON COLS=120 LINES=30
SET J=0
SET W=0
for %%i in (!BJX!) do (
IF !J! == 0 SET /P=!W!: <NUL
SET /P=%%i <NUL
SET J!J!W!W!=%%i
CALL SET J!J!=%%J!J!%% %%i
IF !J! == 21 (SET /A W+=1 & SET J=-1 & ECHO.)
SET /a J+=1
)
ECHO. & SET /P W=请选择你的姓氏所在标签号: & CLS
FOR /L %%i IN (0,1,21) DO (ECHO %%i: !J%%i!)
ECHO. & SET /P J=请选择你的姓氏所在标签号: & CLS
ECHO 你的姓氏为: !J%J%W%W%!
pause

复制代码

SET var=赵钱孙李周吴郑王冯陈诸卫蒋沈韩杨朱秦尤许何吕^
施张孔曹严华金魏陶姜戚谢邹喻柏水窦章云苏潘葛奚范彭^

复制代码