中国DOS联盟

在网上看都这样的东西：

看看你的姓名代表什么武器
　　把自己的名字，例如：“王二小”=“WEX”=“九天丧门锤”
　　附：
　　1、从姓氏开始找，再往下找名。若是只有两个字的，便从“姓氏”与“结字”中各找一个。
　　2、若是三个字的，便先从“姓氏”找起，再往下找两个名；姓名后两个字是重复的就在“结字”中取一。
　　3、复姓者在姓氏中取2字。
　　
　　姓氏：
　　A：奇门 B：玄天 C：日月 D：毒龙 E：夜叉 F：葵花 G：纯阳 H：玉女
　　J：六合 K：天罡 L：天羽 M：八卦 N：太乙 O：落英 P：鹰蛇 Q：太极
　　R：回风 S：混沌 T：乾坤 W：九天 X：神门 Y：百变 Z：逍遥
　　
　　中字：
　　A：拂穴 B：降魔 C：霹雳 D：阴阳 E：丧门 F：真气 G：修罗 H：碎石
　　J：九九 K：绵 L：无痕 M：两仪 N：五神 O：穿云 P：破玉 Q：奇
　　R：迅雷 S：伏魔 T：游身 W：连环 X：无形 Y：神 Z：无双
　　
　　结字：
　　A：钉 B：棒 C：掌 D：刀 E：拳 F：掌 G：爪 H：指
　　J：斧 K：钩 L：棍 M：杖 N：鞭 O：剑 P：镖 Q：索
　　R：刀 S：拳 T：手 W：功 X：锤 Y：枪 Z：剑

随便写了下代码，本来可以优化一下，提高效率的，不过是随意写的，也就不再费劲修改了。没有什么实际应用价值，但是可以帮助新手理解一下for、if的嵌套应用。

@echo off&setlocal ENABLEDELAYEDEXPANSION echo 请输入你名字的拼音字头缩写，例如：张三 —— ZS set/p xingming= set "var1=%xingming:~0,1%" set "var2=%xingming:~1,1%" set "var3=%xingming:~2,1%" 2>nul for /f %%i in ('findstr /i /c:"姓氏%var1%" "%~f0"') do ( set str1=%%i set str1=!str1:~-2! for /l %%a in (0,1,2) do ( if "!xingming:~%%a,1!"=="" set strlen=%%a if "!strlen!"=="2" ( for /f %%j in ('findstr /i /c:"结字%var2%" "%~f0"') do ( set str2=%%j&set str2=!str2:~-1!&cls&echo.&echo 你的姓名“%xingming%”所代表的武功为——!str1!!str2!&pause&exit ) ) else ( for /f %%j in ('findstr /i /c:"中字%var2%" "%~f0"') do ( set str2=%%j&if not "!str2:~-2,1!"=="|" (set str2=!str2:~-2! ) else ( set str2=!str2:~-1! ) for /f %%k in ('findstr /i /c:"结字%var3%" "%~f0"') do ( set str3=%%k&set str3=!str3:~-1! ) ) ) ) ) cls&echo.&echo 你的姓名“%xingming%”所代表的武功为——!str1!!str2!!str3!&pause&exit 姓氏A|奇门 姓氏B|玄天 姓氏C|日月 姓氏D|毒龙 姓氏E|夜叉 姓氏F|葵花 姓氏G|纯阳 姓氏H|玉女 姓氏J|六合 姓氏K|天罡 姓氏L|天羽 姓氏M|八卦 姓氏N|太乙 姓氏O|落英 姓氏P|鹰蛇 姓氏Q|太极 姓氏R|回风 姓氏S|混沌 姓氏T|乾坤 姓氏W|九天 姓氏X|神门 姓氏Y|百变 姓氏Z|逍遥 　　　　 中字A|拂穴 中字B|降魔 中字C|霹雳 中字D|阴阳 中字E|丧门 中字F|真气 中字G|修罗 中字H|碎石 中字J|九九 中字K|绵 中字L|无痕 中字M|两仪 中字N|五神 中字O|穿云 中字P|破玉 中字Q|奇 中字R|迅雷 中字S|伏魔 中字T|游身 中字W|连环 中字X|无形 中字Y|神 中字Z|无双 　　　　 结字A|钉 结字B|棒 结字C|掌 结字D|刀 结字E|拳 结字F|掌 结字G|爪 结字H|指 结字J|斧 结字K|钩 结字L|棍 结字M|杖 结字N|鞭 结字O|剑 结字P|镖 结字Q|索 结字R|刀 结字S|拳 结字T|手 结字W|功 结字X|锤 结字Y|枪 结字Z|剑

有意思，什么时候自己能写出这样的批处理,羡慕...

jmz573515兄的进步是大家有目共睹的，多多练习写代码，你就可以的。
其实我的代码没有完全依照它所附的要求做，因为那样要增加很多判断，例如是否复姓等。
所以我的代码中，你输入三位中文名字，无论是复姓还是名字中两个字一样，都当作是一（姓氏）、二（中字）、三（结字）来处理的。
不过感觉还好，例如：
南宫灵——太乙修罗棍
苏蓉蓉——混沌迅雷刀
......

哈哈，六合连环功~ ^_^

最好再加个输入判断

@echo off&setlocal ENABLEDELAYEDEXPANSION echo 请输入你名字的拼音字头缩写，例如：张三 —— ZS set n=0&set/p xingming= for %%a in (姓氏 中字 结字) do ( call set s=%%xingming:~!n!,1%% if not defined s set str1=&&set s=%xingming:~1,1% call :find %%a!s! set/a n+=1) cls&echo.&echo 你的姓名“%xingming%”所代表的武功为——!str0!!str1!!str2!&pause&exit :find for /f "tokens=2 delims=^| " %%a in ('find/i "%1" %~s0') do set str%n%=%%a goto :eof 姓氏A|奇门 姓氏B|玄天 姓氏C|日月 姓氏D|毒龙 姓氏E|夜叉 姓氏F|葵花 姓氏G|纯阳 姓氏H|玉女 姓氏J|六合 姓氏K|天罡 姓氏L|天羽 姓氏M|八卦 姓氏N|太乙 姓氏O|落英 姓氏P|鹰蛇 姓氏Q|太极 姓氏R|回风 姓氏S|混沌 姓氏T|乾坤 姓氏W|九天 姓氏X|神门 姓氏Y|百变 姓氏Z|逍遥 　　　　 中字A|拂穴 中字B|降魔 中字C|霹雳 中字D|阴阳 中字E|丧门 中字F|真气 中字G|修罗 中字H|碎石 中字J|九九 中字K|绵 中字L|无痕 中字M|两仪 中字N|五神 中字O|穿云 中字P|破玉 中字Q|奇 中字R|迅雷 中字S|伏魔 中字T|游身 中字W|连环 中字X|无形 中字Y|神 中字Z|无双 　　　　 结字A|钉 结字B|棒 结字C|掌 结字D|刀 结字E|拳 结字F|掌 结字G|爪 结字H|指 结字J|斧 结字K|钩 结字L|棍 结字M|杖 结字N|鞭 结字O|剑 结字P|镖 结字Q|索 结字R|刀 结字S|拳 结字T|手 结字W|功 结字X|锤 结字Y|枪 结字Z|剑

妙极！兄的代码确实精彩，比我强的多了。

VBS的
XX="A奇门 B玄天 C日月 D毒龙 E夜叉 F葵花 G纯阳 H玉女 J六合 K天罡 L天羽 M八卦 N太乙 O落英 P鹰蛇 Q太极 R回风 S混沌 T乾坤 W九天 X神门 Y百变 Z逍遥" ZZ="A拂穴 B降魔 C霹雳 D阴阳 E丧门 F真气 G修罗 H碎石 J九九 K绵 L无痕 M两仪 N五神 O穿云 P破玉 Q奇 R迅雷 S伏魔 T游身 W连环 X无形 Y神 Z无双" JZ="A钉 B棒 C掌 D刀 E拳 F掌 G爪 H指 J斧 K钩 L棍 M杖 N鞭 O剑 P镖 Q索 R刀 S拳 T手 W功 X锤 Y枪 Z剑" do n=inputbox ("请输入你名字的拼音字头缩写，例如：" & vbcrlf & "张三 — ZS","看看你的名字代表什么武器（武功）") if n=false then wscript.quit if len(n)=2 then JG="你的姓名“" & n & "”所代表的武功为—【" & find(XX,ucase(left(n,1))) & find(JZ,ucase(right(n,1))) & "】" elseif len(n)=3 then JG="你的姓名“" & n & "”所代表的武功为—【" & find(XX,ucase(left(n,1))) & find(ZZ,ucase(mid(n,2,1))) & find(JZ,ucase(right(n,1))) & "】" else JG="输入错误！" end if loop until msgbox(JG & VBCRLF & "是否继续查看？",32+vbyesno+4096,"结果")=vbno function find(a,b) on error resume next s=split(a):h=filter(s,b):find=mid(h(0),2) if err then err.clear:find="":exit function end function

难道没有len(n)=4的情况了，万一人家是复姓怎么办？

哈哈，这个想过了，太麻烦~没有处理

1.bat:
@echo off for /f "skip=7 usebackq" %%i in ("%~0") do set "%%i" set /p name=输入姓名: call echo %%姓氏%name:~0,1%%%%%中字%name:~-2,1%%%%%结字%name:~-1,1%%% pause goto :eof 姓氏= 中字= 结字= 姓氏A=奇门 姓氏B=玄天 姓氏C=日月 姓氏D=毒龙 姓氏E=夜叉 姓氏F=葵花 姓氏G=纯阳 姓氏H=玉女 姓氏J=六合 姓氏K=天罡 姓氏L=天羽 姓氏M=八卦 姓氏N=太乙 姓氏O=落英 姓氏P=鹰蛇 姓氏Q=太极 姓氏R=回风 姓氏S=混沌 姓氏T=乾坤 姓氏W=九天 姓氏X=神门 姓氏Y=百变 姓氏Z=逍遥 　　　　 中字A=拂穴 中字B=降魔 中字C=霹雳 中字D=阴阳 中字E=丧门 中字F=真气 中字G=修罗 中字H=碎石 中字J=九九 中字K=绵 中字L=无痕 中字M=两仪 中字N=五神 中字O=穿云 中字P=破玉 中字Q=奇 中字R=迅雷 中字S=伏魔 中字T=游身 中字W=连环 中字X=无形 中字Y=神 中字Z=无双 　　　　 结字A=钉 结字B=棒 结字C=掌 结字D=刀 结字E=拳 结字F=掌 结字G=爪 结字H=指 结字J=斧 结字K=钩 结字L=棍 结字M=杖 结字N=鞭 结字O=剑 结字P=镖 结字Q=索 结字R=刀 结字S=拳 结字T=手 结字W=功 结字X=锤 结字Y=枪 结字Z=剑
追求语句的简单，并没有对2字和3字的名字做判断。
2.vbs:
Dim cls1,cls2,cls3 Set cls1 = New Node Set cls2 = New Node Set cls3 = New Node Call Initialize str = Trim(InputBox("请输入你的名字:")) Select Case Len(str) Case 3 Execute "strOut=cls1." & Mid(str,1,1) & _ "&cls2." & Mid(str,2,1) & _ "&cls3." & Mid(str,3,1) Case 2 Execute "strOut=cls1." & Mid(str,1,1) & _ "&cls3." & Mid(str,2,1) Case Else strOut = "你是不是输入的你家小狗的名字啊？" End Select WScript.Echo strOut '************************************************* Class Node Dim a,b,c,d,e,f Dim g,h,i,j,k,l Dim m,n,o,p,q,r Dim s,t,u,v,w,x Dim y,z End Class '************************************************* Sub Initialize cls1.A="奇门" cls1.B="玄天" cls1.C="日月" cls1.D="毒龙" cls1.E="夜叉" cls1.F="葵花" cls1.G="纯阳" cls1.H="玉女" cls1.J="六合" cls1.K="天罡" cls1.L="天羽" cls1.M="八卦" cls1.N="太乙" cls1.O="落英" cls1.P="鹰蛇" cls1.Q="太极" cls1.R="回风" cls1.S="混沌" cls1.T="乾坤" cls1.W="九天" cls1.X="神门" cls1.Y="百变" cls1.Z="逍遥" cls2.A="拂穴" cls2.B="降魔" cls2.C="霹雳" cls2.D="阴阳" cls2.E="丧门" cls2.F="真气" cls2.G="修罗" cls2.H="碎石" cls2.J="九九" cls2.K="绵" cls2.L="无痕" cls2.M="两仪" cls2.N="五神" cls2.O="穿云" cls2.P="破玉" cls2.Q="奇" cls2.R="迅雷" cls2.S="伏魔" cls2.T="游身" cls2.W="连环" cls2.X="无形" cls2.Y="神" cls2.Z="无双" cls3.A="钉" cls3.B="棒" cls3.C="掌" cls3.D="刀" cls3.E="拳" cls3.F="掌" cls3.G="爪" cls3.H="指" cls3.J="斧" cls3.K="钩" cls3.L="棍" cls3.M="杖" cls3.N="鞭" cls3.O="剑" cls3.P="镖" cls3.Q="索" cls3.R="刀" cls3.S="拳" cls3.T="手" cls3.W="功" cls3.X="锤" cls3.Y="枪" cls3.Z="剑" End Sub
咱好歹也用上了“类”，唉~~

3742668兄果然功力深厚啊。