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

TOP

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. ::一类 8888
  4. ::二类 x888 aaaa abcd 补充:888x
  5. ::三类 xx88 xaaa xabc aabb abab 补充:88xx, aaax
  6. ::四类 xxx8 xxaa abba  补充: 8xxx, aaxx
  7. ::五类 其余的号码
  8. :: 思路.
  9. :: 好吧这思路很乱.自己也写乱了.
  10. ::整体的思路是利用set /a 用数除0  然后判断各类的特点分类.
  11. set a_b=123456789
  12. set c_b=987654
  13. set b_a=543210
  14. ::连续的思路是利用set /a,替换字符将其他字符乘以0, 如%%i=123 ,  set /a "1/(!a_b:%%i=1*0*1!)"
  15. ::思路是可以用的..不过没有时间处理了..有时间的朋友帮我补充完整吧.
  16. for /l %%i in (9999, -1, 1) do (
  17. set /a "1 / ( %%i - 8888 )"  2>nul && (
  18. set /a "1/(%%i%%1000-888), 1/(%%i/10-888), 1/(%%i%%1111)" 2>nul && (
  19. set /a "a=%%i/1000, b=%%i%%1000/100, c=%%i%%100/10, d=%%i%%10"
  20. set /a "1/(%%i%%100-88), 1/(%%i/100-88),1/((%%i%%1000)%%111), 1/(%%i/100-%%i%%100), 1/((a-b)|(c-d))" 2>nul && (
  21. set /a "1/(%%i%%10-8), 1/(%%i/1000-8), 1/((%%i%%100)%%11), 1/(a*10+b-(d*10+c))" 2>nul&&(
  22. set /a ClassFive+=1!第五类!
  23. )|| (set /a ClassFour+=1!第四类! )
  24. ) || (set /a ClassThree+=1 & set _ClassThree=%%i !_ClassThree!!第三类!)
  25. ) || (if %%i gtr 1000 set /a ClassTwo+=1 & set _ClassTwo=%%i !_ClassTwo!!第二类!)
  26. ) || (set /a ClassOne+=1 & set _ClassOne=%%i !_ClassOne!!第一类!)
  27. )
  28. echo ClassOne=%ClassOne%, ClassTwo=%ClassTwo%, ClassThree=%ClassThree%, ClassFour=%ClassFour%, ClassFive=%ClassFive%
  29. pause>nul
  30. goto :eof
复制代码

TOP

返回列表