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

回复 29# wbkl
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "skip=2 tokens=1,2* delims=~" %%a in ('type "测试A.txt"') do (
  4. set s=
  5. set t=
  6. set "name=%%b"
  7. set str=%%bfedcba9876543210
  8. set/a len=0x!str:~15,1! &set/a len-=1
  9. for /l %%x in (0 1 !len!) do (
  10. for /f "skip=2 tokens=1* delims=: " %%i in ('find "!name:~%%x,1!" %0') do (
  11. set "sm=%%j"
  12. if "!sm:~,2!" == "zh" (
  13. set sm=!sm:zh=Zh! &set "s=!s!!sm:~,2!"
  14. ) else if "!sm:~,2!" == "ch" (
  15. set sm=!sm:ch=Ch! &set "s=!s!!sm:~,2!"
  16. ) else if "!sm:~,2!" == "sh" (
  17. set sm=!sm:sh=Sh! &set "s=!s!!sm:~,2!"
  18. ) else (
  19. for %%t in (bB pP mM fF dD tT nN lL gG kK hH jJ qQ xX rR zZ cC sS yY wW) do (
  20. set "t=%%t"
  21. if "!t:~,1!" == "!sm:~,1!" set "sm=!t:~1,1!" &set "s=!s!!sm:~,1!"
  22. ))))
  23. echo,%%a~~%%b~~!s!~~%%c
  24. )
  25. pause
  26. ::张 zhang
  27. ::三 san
  28. ::李 li
  29. ::四 si
  30. ::王 wang
  31. ::五 wu
  32. ::马 ma
  33. ::六 liu
  34. ::赵 zhao
  35. ::七 qi
  36. ::杨 yang
  37. ::八 ba
  38. ::孙 sun
  39. ::九 jiu
  40. ::吴 wu
  41. ::十 shi
复制代码

TOP

回复 31# pcl_test


    我懂了,非常 感谢 。。。看来我还是用EXCEL吧,不过EXCEL本身也没有这样的函数,我也是网上找的别人自定义的函数。

TOP

返回列表