算名字笔划与笔划算关系（BAT版）

@echo off&title DOS资源站 www.cmdos.net&setlocal enabledelayedexpansion&color 1f
if not exist %temp%\fly.fly call :生成
title 算名字笔划与笔划算关系........
mode con cols=80 lines=25
::::::::::::::::::::::::::::::原创：FLY::::::::::::::::::CMD批处理:6702314::::::::::::::::::
:st
cls
echo ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
echo.
set a=
set/p a=         请输入你的名字(全名)：
if not defined a goto st
set a=%a: =%
if not defined a goto st
echo %a%|findstr "^[a-z][A-Z]*$" >nul
if "%errorlevel%"=="0" call :bh st
echo %a%|findstr "^[~@#$%%^&*()_+|]*$">nul
if "%errorlevel%"=="0" call :bh st
echo %a%|findstr "^[0-9]*$">nul
if "%errorlevel%"=="0" call :bh st
:s
cls
echo ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
echo 你的名字：!a!
echo.
set bb=
set/p bb=        请输入(她\他)的名字：
if not defined bb goto s
set bb=%bb: =%
if not defined bb goto s
echo %bb%|findstr "^[a-z][A-Z]*$" >nul
if "%errorlevel%"=="0" call :bh s
echo %bb%|findstr "^[~@#$%%^&*()_+|]*$">nul
if "%errorlevel%"=="0" call :bh s
echo %bb%|findstr "^[0-9]*$">nul
if "%errorlevel%"=="0" call :bh s
:hj
cls
echo ********************************************************************************
echo 你名字是: %a%
echo.
set/p=分解：<nul
call :ok
echo 总共是!n!划
echo.
echo (他\她)名字是: %bb%
echo.
set/p=分解：<nul
call :ok1
echo 总共是!m!划
set /a zb=%n%+%m%
echo.
::::::::::::::::::::::::::::::原创：FLY::::::::::::::::::CMD批处理:6702314::::::::::::::::::
:qz
echo =======================你们名字的总笔划是：%zb%划=================================
echo.
echo.        (A) 减法算法     (B) 加法算法   (C) 返回重输      (X) 退出
echo.
echo.                                                        提示：不区分字母大小
echo ================================================================================
set qz=
set /p qz=请输入选项(A、B、C):
set qz=%qz: =%
if not defined qz goto hj
echo %qz%|findstr "^[a-z][A-Z]*$" >nul
if "%errorlevel%"=="1" goto bd
if /i "%qz%"=="a" goto a
if /i "%qz%"=="b" goto b
if /i "%qz%"=="c" goto st
if /i "%qz%"=="x" goto exit
goto bd
:::::::::能看到这里的字；就说明你以经破解本代码了；老手匆笑；新手不懂之处，欢迎加入我的群：6702314:::::::::::::::::
:a
set jg=
set /a tt=%n%-%m%
set tt=%tt:-=%
for /f "delims=+ tokens=2" %%a in ('findstr /i "+%tt%+" %temp%\fly.fly') do set jg=%%a
if not defined jg echo\&echo             呀！天机不可泄露..... 我不能告诉你......&goto jg
echo.
echo.                             最后结果是：%jg%
:jg
echo.
echo                                                    任意键返回...........
pause>nul
goto hj
::::::::::::::::::::::::::::::原创：FLY::::::::::::::::::CMD批处理:6702314::::::::::::::::::
:b
set jg=
for /f "delims=\ tokens=2" %%a in ('findstr /i "x%zb%x" %temp%\fly.fly') do set jg=%%a
if not defined jg echo\&echo             呀！天机不可泄露..... 我不能告诉你......&goto jg
echo.
echo.                             最后结果是：%jg%
:jg
echo.
echo                                                    任意键返回...........
pause>nul
goto hj
:ok
set n=
set aa=%a%
:o
if not defined aa goto :eof
set g=%aa:~0,1%
set aa=%aa:~1%
for /f "delims=# tokens=1" %%a in ('findstr /i "%g%" %temp%\fly.fly') do set/p=(%g%)字是%%a划  <nul&set/a n+=%%a &goto o
::::::::::::::::::::::::::::::原创：FLY::::::::::::::::::CMD批处理:6702314::::::::::::::::::

:ok1
set m=
set b=%bb%
:o1
if not defined b goto :eof
set v=%b:~0,1%
set b=%b:~1%
for /f "delims=# tokens=1" %%i in ('findstr /i "%v%" %temp%\fly.fly') do set/p=(%v%)字是%%i划  <nul&set/a m+=%%i &goto o1
:::::::::能看到这里的字；就说明你以经破解本代码了；老手匆笑；新手不懂之处，欢迎加入我的群：6702314:::::::::::::::::
:bh
echo 对不起！只能查询中文字笔划；其它不给予受理.....
ping/n 2 127.1 >nul
cls
goto %1
::::::::::::::::::::::::::::::原创：FLY::::::::::::::::::CMD批处理:6702314::::::::::::::::::
:bd
cls
echo 对不起！只能选择（A、B、C、D）选项；其它无效.....
ping/n 2 127.1 >nul
goto hj
:::::::::能看到这里的字；就说明你以经破解本代码了；老手匆笑；新手不懂之处，欢迎加入我的群：6702314:::::::::::::::::

:生成
(
echo #1#*一乙
echo #2#*丁七乃乜九了二人亻儿入八冂几凵刀刁力勹匕十厂厶又
echo #3#*万丈三上下丌个丫丸久乇么义乞也习乡亍于亏亡亿兀凡刃勺千卫叉口囗土士夕大女子孑孓寸小尢尸山巛川工己已巳巾干幺广廾弋弓才门飞马
echo #4#*不与丐丑专中丰丹为之乌书予云互亓五井亢什仁仂仃仄仅仆仇仉今介仍从仑仓允元公六兮内冈冗凤凶分切刈劝办勾勿匀化匹区卅升午卞厄厅历及友双反壬天太夫夭孔少尤尹尺屯巴币幻廿开引心忆戈户手扎支攴攵文斗斤方无日曰月木欠止歹殳毋比毛氏气水火爪父爻爿片牙牛犬王瓦肀艺见计订讣认讥贝车邓长闩队韦风乏
....................此处省略若干................
echo #21#*鳟黥黧黩黪鼍鼯夔曩灏爝癫礴禳羼蠡蠢赣躏醺鐾露霸霹颦髓
echo #22#*鳢麝黯鼙囊懿氍瓤穰耱蘸蘼躐躔镶
echo #23#*霾饔饕髑鬻鹳麟攥攫癯罐趱躜颧
echo #24#*鬟鼷鼹齄灞矗蠲蠹衢襻躞鑫
echo #25#*鬣馕囔戆攮纛
echo #26#*蠼爨
echo +0+亲密无间
echo +1+永远和你在一起
echo +2+水火不相容
echo +3+知心朋友
echo +4+心上人
echo +5+帮你做事的人
echo +6+帮你的人
echo +7+面和心不合
echo +8+男女关系不正常
echo +9+情投意合
echo +10+关系马虎
echo +11+尊敬你的人
echo +12+爱你的人
echo +13+适合你的
echo +14+说你坏话的人
echo +15+克星
echo +16+救星
echo +17+忠心的人
echo +18+狼心狗肺的人
echo +19+单相思
echo +20+山盟海誓
echo +21+情敌
echo +22+服从你的人
echo +23+永远在一起
echo +24+伴终生
echo +25+恨你又爱你
echo x1x16x61x85x\两人有默契
echo x2x17x57x86x\他非常关心你
echo x3x18x62x87x\你和他只能做朋友
echo x4x19x58x88x\兴趣不合
echo x5x35x63x89x\男生主动
echo x6x41x59x90x\第三者介入
echo x7x33x64x91x\他非常讨厌你
echo x8x43x60x92x\早点分手比较好
echo x9x47x66x93x\他有一堆女朋友
echo x10x34x65x94x\两情相悦
echo x11x46x73x95x\他对你献真情
echo x12x42x74x96x\他已有心上人
echo x13x36x69x97x\此情不渝
echo x14x48x71x98x\他时常暗中注意你
echo x15x37x72x99x\他有企图要小心
echo x20x39x67x100x\他会爱你
echo x21x38x75x\他非常在乎你
echo x22x49x76x\女方主动
echo x24x51x77x\也有人暗中注意你
echo x25x40x78x\女方单恋
echo x26x44x80x\不能长相厮守
echo x27x50x81x\他会喜欢你
echo x28x54x68x\要长期交往
echo x29x52x82x\他早就爱上你
echo x30x53x83x\他会抛弃你
echo x31x56x70x\要互相沟通
)>%temp%\fly.fly
goto :eof
:exit
del /s /q /a %temp%\*.bat >nul 2>nul
exit