中国DOS联盟

:: 猜姓氏的延伸——表的编码与解码
:: qzwqzw @ http://bbs.cn-dos.net
:: 2007-01-06 1:16 Revision 1
@echo off
setlocal

for /f %%f in (table.txt) do (
    set /a i+=1
    set rdx=1
    call :encode %%i%% %%f
)
set rdx=1
call :decode
cls
echo.
echo 你的选中项为:
echo.
find "" /v /n < table.txt | find "[%idx%]"
del *.tbl
pause
goto :eof

:encode
set /a val=%1 ^& rdx
if %val% neq 0 set/p=%2  <nul>>%rdx%.tbl
set /a rdx*=2
if %rdx% leq %1 goto encode
goto :eof

:decode
cls
type %rdx%.tbl
echo.
echo.
set ch=
set /p ch=上表中是否有选中项（y为有,否则为无）:
if /i "%ch%"=="y" set /a idx+=rdx
set /a rdx*=2
if %rdx% leq %i% goto decode
goto :eof

:: tghksj @ http://bbs.cn-dos.net
:: tghksj @ http://w.vicp.net
@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%!