[已解决]求个批处理，在文本文件中第二行插入二行内容，并删除文中所有空格

pcl_test

回复 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

复制代码

wbkl

回复 31# pcl_test


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