[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

批处理输入任意字母,计算它们的总和



     a=1,b=2,c=3 . . . z=26,要计算的任意字母由用户输入,计算它们的总和



    如用户输入abcd             那么a+b+c+d=10

[ 本帖最后由 ieutk 于 2008-1-3 22:20 编辑 ]
不大可能的事也许今天实现,根本不可能的事也许明天会实现

  1. @echo off&setlocal enabledelayedexpansion
  2. :main
  3. cls&echo.
  4. set input=
  5. set /p input=  请输入字母:
  6. if not defined input goto main
  7. echo %input%|findstr "^[a-z]*$">nul||goto main
  8. call :ya %input% len
  9. for /l %%a in (0 1 %len%) do call :ie %%a _num
  10. echo.
  11. echo   你输入了 "%input%" ,它们的总和为 "%_num%"
  12. echo.
  13. pause
  14. set _num=0
  15. goto main
  16. :ya
  17. for /f "tokens=1 delims=:" %%a in ('^(echo %1^&echo.^)^|findstr /o ".*"') do set /a %2=%%a-4
  18. goto :eof
  19. :: 在随风发的贴子中看到此方法,现学现用,拿来试下
  20. :ie
  21. for %%b in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
  22. set /a num+=1
  23. if "!input:~%1,1!"=="%%b" set /a %2+=!num!
  24.     )
  25. set num=0
  26. goto :eof
复制代码
不大可能的事也许今天实现,根本不可能的事也许明天会实现

TOP

返回列表