中国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兄果然功力深厚啊。