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

Rank: 12Rank: 12Rank: 12

帖子
14787 
积分
45963 
技术
847  
捐助
745  
注册时间
2008-6-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2013-7-19 10:39 | 只看该作者

[其他] 2013年度批处理之家BAT编程比赛

用户ID排名奖励发奖
apang1赠送价值200元的礼品2013-09-15 已经发奖
terse2赠送价值100元的礼品2013-09-15 已经发奖
wankoilz3赠送价值100元的礼品2013-09-15 已经发奖
xxpinqz4赠送价值50元的礼品　
5230666805赠送价值50元的礼品　
ShadowFiend6赠送价值50元的礼品2013-09-17 已经发奖

本次比赛只允许使用BAT和XP系统自带的命令行工具，不允许调用 mshta、VBS、PowerShell、JS 等其它脚本和第三方命令行工具（特别注明的个别题目除外）。

参赛时间：
2013-07-19 ~ 2013-08-19

奖项设置：
一等奖：1名，赠送价值200元的礼品
二等奖：2名，赠送价值100元的礼品
三等奖：3名，赠送价值50元的礼品

评分规则：
每个题目30分，其中功能性能占20分，代码规范占10分。
对于总得分相同的用户，以提交答案的时间先后顺序排名。

比赛题目：

1、删除文件夹 D:\BatHome
注意：
（1）该文件夹下面包含文件和子文件夹
（2）可以使用 rd 或 rmdir 命令，但是不允许使用它们的 /s 选项
（3）需要在程序中模拟 rd /s 的递归删除功能

2、检查系统里面是否有非法增加和减少的用户账号
注意：
（1）假设文件 D:\BatHome_User_List.txt 里面保存着所有的合法用户的列表
（2）需要分别找出当前系统里面非法增加的账号和减少的账号

3、批量创建100个系统账号 BatHome001 ~ BatHome100
注意：
（1）每个密码都是一个8位随机字符串，只要包含一个大写字母、一个小写字母、一个数字、一个特殊字符
（2）特殊字符是指除了数字和大小写字母之外的其它字符
（3）不能有重复的密码

4、把系统目前运行的情况记录到文件 D:\BatHome_OS.txt
包括：
（1）物理内存总量是多少（以GB为单位）？目前使用率是多少？
（2）硬盘每个分区的总容量和使用率分别是多少（以GB为单位）？
（3）最近一次开机之后系统已连续运行多长时间（以秒为单位）？

5、把文件夹 D:\www.bathome 下面的文件和子文件夹备份到 D:\bbs.bathome 下面
注意：
（1）备份的时候跳过以下子文件夹：
    logs
    img
（2）备份的时候跳过以下文件：
    *.zip
    *.bak
（3）周一到周六执行增量备份，周日执行完整备份。

6、计算任意两数值的商，要求精确到小数点后100位（没有100位的补足100位）。

7、批量下载壁纸
注意：
（1）下载桌酷网站（http://www.zhuoku.com/）的壁纸，输入一个系列图片的网址，然后自动把这个系列的图片全部下载下来。
（2）能使用常用的几个第三方下载工具

8、将大写的中文数字金额排序
注意：
（1）数值小于一千万元，最小单位为分
（2）中文数字与阿拉伯数字的对应规则参考：http://baike.baidu.com/view/1624026.htm
（3）大写的中文数字金额可以用下表做测试：

陆拾叁万贰仟伍佰肆拾叁圆叁角整
伍万圆整
捌万零肆佰圆伍角叁分
壹佰圆整
贰佰万叁仟贰佰陆拾陆圆零叁分
柒佰柒拾万零捌拾叁圆整
叁万圆肆角肆分
壹圆整

9、把F盘中存在重复情况的目录列举出来
注意：
（1）只要文件夹中的文件列表相同，就认为是重复的文件夹，不需要判断大小、日期、md5等。例如：
F:\PIC\SELECT\ANDROID
    001.jpg
    002.jpg
    003.jpg
    004.jpg
    005.jpg
    LOGO.jpg

F:\Backup\picture\2013-03-03\ANDROID
    001.jpg
    002.jpg
    003.jpg
    004.jpg
    005.jpg
    LOGO.jpg

F:\Rogar\Userfiles\temp\picture
    001.jpg
    002.jpg
    003.jpg
    004.jpg
    005.jpg
    LOGO.jpg

10、将网上下载的txt文本转成html文件以便阅读
注意：
（1）保留txt中的换行格式（在html中加入</br>单标签来实现）
（2）因txt文本中每行前没有空格，请在转化时在行前加入四个半角空格（在html中 为一个半角空格）
（3）遇文本中形如“第一章　我们的宇宙图像”的单行即为段落分隔处，请在前面加入一空行（请考虑尽可能多的章节的书写情况）
（4）抛弃文本中形如“图1.2”的单行（请考虑.前后数值不仅仅为个位的情况）
（5）因为文本可能会含有特殊字符，代码应做特殊字符处理
（6）提示：请注意html文件的基本元素<html><body>标签的加入
（7）附件中的文件仅供测试
附件: 您需要登录才可以下载或查看附件。没有帐号？注册
1

评分人数

收藏 分享
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
0  
注册时间
2008-2-25 
2楼
发表于 2013-7-19 12:05 | 只看该作者
本帖最后由 terse 于 2013-9-18 19:03 编辑

第一题 不知道符合不
  1. @echo off

  2. del /f /s /q "D:\BatHome" >nul

  3. for /f "delims=" %%i in ('dir /ad /b /s "D:\BatHome" ^|sort /r') do rd "%%i"

  4. rd "D:\BatHome"

  5. pause
复制代码
第二题 比较一下 wmic   wmic 虽然取名方便 对比效率还是不行  所以还是这样处理了
  1. @echo off&setlocal enabledelayedexpansion

  2. for /f "tokens=*" %%a in (D:\BatHome_User_List.txt) do set "$%%a=a"

  3. (for /f "skip=4 delims=" %%i in ('net user') do (

  4.     if defined str (

  5.        for /l %%j in (0 25 50) do (

  6.            for /f "tokens=*" %%a in ("!str:~%%j,25!") do (  

  7.                if not defined $%%~nxa echo %%~nxa

  8.                set #%%~nxa=a

  9.            )

  10.        )

  11.    )

  12.    set "str=%%i"

  13. ))>增加的用户.txt

  14. (for /f "tokens=*" %%a in (D:\BatHome_User_List.txt) do if not defined #%%~nxa echo %%~nxa)>减少的用户.txt

  15. pause
复制代码
上面账户名不含空格和特殊字符的 可以简化下
  1. @echo off&setlocal enabledelayedexpansion

  2. for /f "tokens=*" %%a in (D:\BatHome_User_List.txt) do set "$%%a=a"

  3. (for /f "skip=4 delims=" %%i in ('net user') do (

  4.      for %%j in (!str!) do (  

  5.            if not defined $%%~nxj echo %%~nxj

  6.            set #%%~nxj=a

  7.      )

  8.      set "str=%%i"

  9. ))>增加的用户.txt

  10. (for /f "tokens=*" %%a in (D:\BatHome_User_List.txt) do if not defined #%%~nxa echo %%~nxa)>减少的用户.txt

  11. pause
复制代码
第三题 偷点懒了 写着写着 代码怎么这么长 总想着在一个FOR里完成  不过效率还好 还应该算随机了
发现还是有重复 现在还没时间修改
换个随机性强点
  1. @echo off

  2. set "code1=0123456789"

  3. set "code2=abcdefghijklmnopqrstuvwxyz"

  4. set "code3=ABCDEFGHIJKLMNOPQRSTUVWXYZ"

  5. set "code4=`~!@$^&*()-\+|{}[];'<>,.?/"

  6. set /a num=1000

  7. setlocal enabledelayedexpansion

  8. for /L %%i in (0,1,9) do set #%%i=!code1:~%%i,1!&set #####%%i#=1&set "arr=!arr!#####%%i#"

  9. for /L %%i in (2,1,5) do (

  10. 	set s%%i=

  11. 	for /L %%j in (1,1,%%i) do set s%%i=1!s%%i!

  12. 	for /L %%j in (%%i,1,9) do set s%%i=!s%%i!0

  13. 	set s%%i=!s%%i!

  14. 	set /a n=10,i=j=1

  15. 	for /L %%j in (1,1,%%i) do set /a i*=n,j*=%%j,n-=1

  16. 	set /a lena_%%i=i/j,lenb_%%i=lena_%%i-22

  17. )

  18. for /L %%i in (2,1,5) do (

  19. 	set var=

  20. 	for /L %%a in (1,1,!lena_%%i!) do (

  21.         	set "s=#####"

  22.         	for /l %%b in (0 1 9) do if "!s%%i:~%%b,1!" == "1" set "s=!s!!#%%b!"

  23.         	for /f %%b in ("0!s%%i:10= !") do set "t=%%b"

  24.        		set "s%%i=!t:0=!!t:1=!1!s%%i:*10=!"

  25. 		set var=!var!!s:~-6!#

  26. 	)

  27. 

  28. 	for /L %%a in (!lena_%%i!,-1,!lenb_%%i!) do (

  29. 		set /a "n=!random!%%%%a*7"

  30. 		for %%b in (!n!) do set "s=!var:~%%b,7!"

  31. 		for %%b in (!s!) do set var=!var:%%b=!

  32. 		set "arr=!arr!!s!"

  33. 		set "!s!=%%i"

  34. 	)

  35. )

  36. for /L %%i in (102,-1,3) do (

  37. 	set /a "n=!random!%%%%i*7,num+=1"

  38. 	for %%j in (!n!) do set "s=!arr:~%%j,7!"

  39. 	for %%j in (!s!) do set arr=!arr:%%j=!&set n1=!%%j!

  40.         set /a "n2=!random!%%(6-n1)+1,n3=!random!%%(7-n1-n2)+1,n4=8-n1-n2-n3"

  41. 	set s=!s:#=!

  42. 	for /L %%a in (2,1,4) do (

  43. 		for /L %%b in (1,1,!n%%a!) do (

  44. 			set /a m=!random!%%26,r=!random!%%n1,n1+=1

  45. 			for /f "tokens=1,2" %%c in ("!m! !r!") do set s=!s:~%%d!!code%%a:~%%c,1!!s:~,%%d!

  46. 		)

  47.    	)

  48.         net user BatHome!num:~1! !s! /add 2>nul

  49. )

  50. pause
复制代码
第四题 这里处理成百分比吗
  1. @echo off&setlocal enabledelayedexpansion

  2. set "wmi=LastBootUpTime,LocalDateTime,TotalVisibleMemorySize,FreePhysicalMemory"

  3. for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"

  4. (

  5. for /f "skip=1 tokens=1-4" %%i in ('"wmic os get %wmi%"') do for %%j in (%%j) do (

  6. 	set "ymd=%%j"

  7. 	set /a "m=(1!ymd:~4,2!+5)%%12+4,y=!ymd:~,4!-m/14,d=1!ymd:~6,2!-100,h=1!ymd:~8,2!-100"

  8. 	set /a "s=1461*y/4+153*m/5+d"

  9. 	set /a "s1=h*3600+(1!ymd:~10,2!-100)*60+1!ymd:~12,2!-100"

  10. 	set "ymd=%%k"

  11. 	set /a "m=(1!ymd:~4,2!+5)%%12+4,y=!ymd:~,4!-m/14,d=1!ymd:~6,2!-100,h=1!ymd:~8,2!-100"

  12. 	set /a "s=(1461*y/4+153*m/5+d-s)*86400-s1,s+=h*3600+(1!ymd:~10,2!-100)*60+1!ymd:~12,2!-100"

  13. 	set size=%%l

  14. 	set /a "useb=%%l-%%i,usebp=useb*100/%%l"

  15. 	for %%a in (size useb) do (

  16. 		set mod=!%%a!

  17. 		for /l %%b in (1 1 3) do (

  18. 			set/a "Qent=mod/1048576,mod=mod%%1048576*10"

  19. 			set "%%a_g=!%%a_g!!Qent!"

  20. 		)

  21. 	)

  22. 	echo 物理内存: !size_g:~,-2!.!size_g:~-2! [GB]

  23. 	echo 已使用  : !useb_g:~,-2!.!useb_g:~-2! [GB]

  24. 	echo 使用率  : !usebp!%%

  25. 	echo 系统运行时间 : !s! 秒

  26. )

  27. echo 盘符%tab%总容量    %tab%已用空间%tab%可用空间%tab%使用率

  28. set "get=get DeviceID^,FreeSpace^,Size"

  29. for /f "skip=1 tokens=1-3" %%a in ('wmic logicaldisk where "drivetype='3'" !get!') do (

  30. 	for %%b in (%%b) do (

  31. 		set $Free=%%b&set "$size=%%c"

  32. 		for %%i in (size Free) do (

  33. 			set Qent=&set/a "mod=!$%%i:~,9!%%1048576,%%i=!$%%i:~,9!/1048576"

  34. 			if "!$%%i:~9!" neq "" (

  35. 				set "len=!$%%i:~9!876543210"

  36. 				set /a "len=!len:~8,1!,Qent=!mod!!$%%i:~9!/1048576"

  37. 				set Qent=00000000!Qent!

  38. 				for %%j in (!len!) do set Qent=!Qent:~-%%j!

  39. 			)

  40. 			set "%%i=!%%i!!Qent!"

  41. 		)

  42. 		set /a "Tree=Size-Free,Treep=Tree*100/Size"

  43. 		for %%i in (Size Tree Free) do (

  44. 			set $%%i=&set mod=!%%i!

  45. 			for /l %%j in (1 1 3) do (

  46. 				set/a "Qent=mod/1024,mod%%=1024"

  47. 				set mod=!mod!0

  48. 				set "$%%i=!$%%i!!Qent!"

  49. 			)

  50. 		)

  51. 		echo %%a%tab%!$size:~,-2!.!$size:~-2! [GB]%tab%!$Tree:~,-2!.!$Tree:~-2! [GB]%tab%!$Free:~,-2!.!$Free:~-2! [GB]%tab%!Treep! %%

  52. 	) 

  53. )

  54. )>D:\BatHome_OS.txt

  55. pause
复制代码
第五题 : 此类问题不熟悉 胡凑一个了
今天网友一问题 提醒了我 可能这题遗漏了一个计划任务
  1. @echo off

  2. for /f "skip=1" %%i in ('"wmic path Win32_LocalTime get DayOfWeek"') do for %%j in (%%i) do set "w=%%i"

  3. set /a "m=(w+6)%%7"

  4. set "bak1=D:\bbs.bathome\Week-Bak_%w%"

  5. for /L %%i in (0,1,%m%) do if exist "D:\bbs.bathome\Week-Bak_%%i\" set "bak2=D:\bbs.bathome\Week-Bak_%%i"

  6. if not defined bak2 set w=0

  7. (for %%i in (.zip .bak \logs\ \img\) do echo %%i)>EXCLUDE

  8. setlocal enabledelayedexpansion

  9. if %w% equ 0 (

  10.    rd /s /q "!bak1!" 2>NUL

  11.    xcopy "D:\www.bathome" "!bak1!" /E /H /R /I /Y /EXCLUDE:EXCLUDE >nul

  12. ) else (

  13. 	RD /S /Q "!bak1!" 2>NUL

  14. 	xcopy "!bak2!" "!bak1!" /E /H /R /I /Y >NUL

  15. 	(xcopy "D:\www.bathome" "!bak1!" /E /H /R /Y /I /D /EXCLUDE:EXCLUDE)>"!bak1!.log"

  16. )

  17. del EXCLUDE 2>NUL

  18. pause
复制代码
第六题
正好原来有个处理大数的 但不处理小数和负数
修改一下 一般测试过
第7行的 set "d=" 应该为 set "d=0" 唉 初始代码就这样 不知怎的改成空值了
修正
  1.  @echo off&setlocal enabledelayedexpansion

  2. REM 被除数 和 除数

  3. set str1=123.01

  4. set str2=-33.47

  5. rem 小数点后位数

  6. set u=100

  7. set "d=0"

  8. for %%i in (str1 str2) do if "!%%i:~,1!" == "-" set /a d+=1

  9. if %d% equ 1 (set "d=-") else set "d="

  10. set l=00000000&for /l %%i in (1 1 7) do set "l=!l!!l!"

  11. set "var=4096 2048 1024 512 256 128 64 32 16 8 4 2 1"

  12. for /l %%i in (1 1 2) do (

  13. 	set "s%%i=!str%%i:-=!"

  14. 	set "len%%i=0"

  15. 	for /F "tokens=2 delims=." %%a in ("!s%%i!") do (

  16. 		set s=%%a&set len%%i=1

  17. 		for %%b in (%var%) do if "!S:~%%b!" neq "" set/a len%%i+=%%b&set "S=!S:~%%b!"

  18. 	)

  19. 	set s%%i=!s%%i:.=!

  20. )

  21. set /a len=len1-len2

  22. if !len1! gtr !len2! (set "s2=!s2!!l:~,%len:-=%!") else set "s1=!s1!!l:~,%len:-=%!"

  23. for /l %%a in (1 1 2) do (

  24. 	for /f "tokens=* delims=0" %%i in ("!s%%a!") do set s=%%i&set "s%%a=0%%i"

  25. 	set len%%a=1

  26. 	for %%j in (%var%) do if "!S:~%%j!" neq "" set/a len%%a+=%%j&set "S=!S:~%%j!"

  27. )

  28. set sun=!l:~-%len2%,-%len1%!

  29. set /a len=len2+1

  30. if "!s1!" Lss "!s2!" (

  31. 	set s1=!s1:~1!

  32. 	if !len1! leq !len2! set sun=!sun!0

  33. 	set /a Len1-=1

  34. )

  35. set "s1=!s1!!l:~,%u%!"

  36. set "s=!s1:~,%len2%!"

  37. set "i=!l:~,7!!s2!"

  38. set /a Len_i=Len2+7,len1+=u

  39. if %u% leq 0 set "u="

  40. if !len1! geq !len2! (

  41. 	for /l %%i in (1 1 9) do (

  42. 		set "T=0"

  43. 		for /l %%j in (8 8 !Len_i!) do (

  44. 			set /a "T=1!i:~-%%j,8!*%%i+T"

  45. 			set Num%%i=!T:~-8!!Num%%i!&set /a "T=!T:~,-8!-%%i"

  46. 		)

  47. 		set "Num%%i=!T!!Num%%i!"

  48. 		set "Num%%i=!l:~,7!!Num%%i:~-%Len%!"

  49. 	)

  50. 	for /L %%a in (!len2! 1 !Len1!) do (

  51. 		set "s=!L!!s!!s1:~%%a,1!"

  52. 		set "s=!s:~-%Len%!"

  53. 		if "!s!" geq "!s2!" (

  54. 			set M=5&set "i=!l:~,7!!s!"

  55. 			if "!i!" geq "!Num5!"  (

  56. 				for /l %%i in (6 1 9) do if "!i!" geq "!Num%%i!" set "M=%%i"

  57. 			) else 	for /l %%i in (1 1 4) do if "!i!" geq "!Num%%i!" set "M=%%i"

  58. 			set sun=!sun!!M!&set s=&set T=0

  59. 			for %%i in (!M!) do (

  60. 				for /l %%j in (8 8 !Len_i!) do (

  61. 					set /a "T=3!i:~-%%j,8!-1!Num%%i:~-%%j,8!-!T:~,1!%%2"

  62. 					set "s=!T:~1!!s!"

  63. 				)

  64. 			)

  65. 		) else set sun=!sun!0

  66. 	)

  67. 	if defined u (set "sun=%d%!sun:~,-%u%!.!sun:~-%u%!")else set sun=%d%!sun!

  68. ) else if defined u (set "sun=%d%0.!l:~,%u%!") else set sun=%d%0

  69. echo !str1! / !str2!  =  !sun!

  70. pause>nul
复制代码
第七题
不确定总系列 还是分类系列 增加个判断吧
  1. @echo off

  2. Rem set /p "url=请输入地址："

  3. Rem 测试地址1 风景壁纸 

  4. Rem set "url=http://www.zhuoku.com/zhuomianbizhi/show/index-1.htm"

  5. Rem 测试地址2 风景壁纸之一  托斯卡纳草原 风光风景宽屏壁纸 

  6. set "url=http://www.zhuoku.com/zhuomianbizhi/show-fengjingou/20130731145032.htm"

  7. 

  8. set "seda=/value=index-/s/.* value=index-([0-9]+).*/\1/p"

  9. set "sedb=s#href=\x22| *class=#\nhttp://www.zhuoku.com#gp"

  10. set "sedc=/\"yema\"/s/.*>\[*([0-9]+)\]*<.*/\1/gp"

  11. set "sedd=/thunder_url/s#.*= *\"(http://.*\.jpg)\";.*#\1#p"

  12. set "wu=http://www.zhuoku.com"

  13. setlocal enabledelayedexpansion

  14. if "!url:/index-=!" neq "!url!" (

  15. 	for %%i in ("!url!") do set "wurl=!url:%%~nxi=!"

  16. 	for /f %%j in ('wget -q -O- !url! ^| sed -nr  "!seda!"') do (

  17. 		(for /l %%j in (1 1 %%j) do echo !wurl:\=/!index-%%j.htm)>url.x

  18. 		wget -q -O- -i url.x | sed -nr "!sedb!" |sed -nr "s/\.htm\x22$//p" >url.y

  19. 	)

  20. 	) else echo !url!|sed -nr "s/\.htm//p" >url.y

  21. 

  22. (for /f "tokens=*" %%i in (url.y) do (

  23. 	for /f %%j in ('wget -q -O- "%%i(1).htm" ^| sed -nr "!sedc!"') do (

  24. 		for /l %%k in (1 1 %%j) do echo %%i(%%k^).htm

  25. 	)

  26. ))>url.x

  27. 

  28. wget -q -O- -i url.x |sed -nr "!sedd!" >url.y

  29. wget -m -q -nH -np --referer="http://www.zhuoku.com" -i url.y

  30. del url.x url.y

  31. pause
复制代码
第八题 修改下  还是去掉临时文件了 效率相差不大
  1. @echo off&setlocal enabledelayedexpansion

  2. %1(for /f "tokens=2" %%i in ('%~s0 Rem ^|sort') do echo %%i)&pause&exit

  3. set "t=零壹贰叁肆伍陆柒捌玖"

  4. set 仟=10&for %%i in (拾 佰) do set %%i=!仟!&set "仟=!仟!0"

  5. set 分=1&set "角=10"

  6. for /f %%a in (a.txt) do (

  7.         set str=%%a

  8.         for /l %%i in (1 1 9) do (

  9.                 for %%j in (!t:~%%i^,1!) do set "str=!str:%%j=%%i!"

  10.         )

  11.         for /f "tokens=1* delims=圆" %%i in ("!str:零=!") do (

  12. 		if "%%j" neq "" (

  13. 			set $a=%%i&set "$b=%%j"

  14. 		) else set $a=0&set "$b=%%i"

  15. 	)

  16.         for %%j in (角 分) do set "$b=!$b:%%j=*%%j+!"

  17.         set /a $b=!$b!+100,$=0

  18.         if "!$a!" == "!$a:万=!" (set i=1) else set i=10000

  19. 	for %%i in (!$a:万^= !) do (

  20.               	set "$a=%%i"

  21. 		for %%j in (拾 佰 仟) do set "$a=!$a:%%j=*%%j+!+0"

  22. 		set /a "$+=(!$a!)*i"

  23. 		set i=1

  24.         )

  25.         set $=00000000!$!.!$b:~-2!

  26.         echo !$:~-11! %%a

  27. )

  28.  
复制代码
第九题
最终用了 FC 比较 方案
这里取一个文件比较    多几个文件做比较 也许效率看提升点
  1. @echo off

  2. SET PH=f:

  3. dir /s /a-d /o:n %PH% >dir_a.t

  4. (for /f "skip=2 tokens=*" %%i in (dir_a.t) do (

  5.         set "str=%%i"

  6.         setlocal enabledelayedexpansion

  7.         if exist "!str:~,-4!\" (

  8.                 for /f "tokens=*" %%j in ("!str:~,-4!") do endlocal&set "files=%%j"

  9.         ) else  endlocal&for /f "tokens=1-3*" %%a in ("%%i") do if "%%b%%d" == "个文件字节" (

  10.                 setlocal enabledelayedexpansion

  11.                 for /f "tokens=1-3*" %%a in ("%%i") do echo !file!:%%a:!files!

  12.                 endlocal

  13.         ) else set "file=%%d"

  14. ))>dir_b.t

  15. findstr /ibv ":" dir_b.t|sort >dir_a.t

  16. set /a i=n=1

  17. for /f "tokens=1-2* delims=:" %%a in (dir_a.t) do (

  18.         set "str=%%a:%%b"

  19.         setlocal enabledelayedexpansion

  20.         if /i "!s!" neq "!str!" (

  21.                 if !i! gtr 1 set /a n+=1

  22.                 set i=1

  23.         ) else set /a "i+=1"

  24.         for /f "tokens=1,2" %%i in ("!n! !i!") do endlocal&set n=%%i&set i=%%j&set _%%i=%%j&set "%%i_%%j=%%c"

  25.         set "s=%%a:%%b"

  26. )

  27. setlocal enabledelayedexpansion

  28. (for /l %%i in (1 1 %N%) do (

  29.         for /l %%a in (1 1 !_%%i!) do (

  30.                 for /f "tokens=*" %%m in ("!%%i_%%a!") do (

  31.                         set /a i=%%a+1

  32.                         dir /b /a-d /on "!%%i_%%a!" >dir_a.t

  33.                         for /l %%b in (!i! 1 !_%%i!) do (

  34.                                 for /f "tokens=*" %%n in ("!%%i_%%b!") do (

  35.                                         dir /b /a-d /on "!%%i_%%b!" >dir_b.t

  36. 					fc /c dir_a.t dir_b.t>nul&&(

  37. 						for /f "tokens=*" %%o in ("!%%i_%%a!") do (

  38.                                                         echo !%%i_%%a!&type dir_a.t&echo;

  39.                                                         set %%i_%%a=

  40.                                                 )

  41.                                                 echo !%%i_%%b!&type dir_b.t&echo;

  42.                                                 set %%i_%%b=

  43. 					)

  44.                                 )

  45.                         )

  46.                 )

  47.         )

  48. ))>dir_list.txt

  49. del dir_a.t dir_b.t

  50. start "" dir_list.txt

  51. pause
复制代码
findstr 搜索 方案
相对FCf方案来说  FINDSTR 搜索字符有限制外  还有FINDSTR还有字符串搜索问题
用FIND 替换 FINDSTR 可以解决 但效率
  1. @echo off

  2. SET PH=f:

  3. dir /s /a-d /o:n %PH% >dir_a.t

  4. (for /f "skip=2 tokens=*" %%i in (dir_a.t) do (

  5. 	set "str=%%i"

  6. 	setlocal enabledelayedexpansion

  7. 	if exist "!str:~,-4!\" (

  8. 		for /f "tokens=*" %%j in ("!str:~,-4!") do endlocal&set "files=%%j"

  9. 	) else  endlocal&for /f "tokens=1-3*" %%a in ("%%i") do if "%%b%%d" == "个文件字节" (

  10. 		setlocal enabledelayedexpansion

  11. 		for /f "tokens=1-3*" %%a in ("%%i") do echo !file!:%%a:!files!

  12. 		endlocal

  13. 	) else set "file=%%d"

  14. ))>dir_b.t

  15. findstr /ibv ":" dir_b.t|sort >dir_a.t

  16. set /a i=n=1

  17. for /f "tokens=1-2* delims=:" %%a in (dir_a.t) do (

  18. 	set "str=%%a:%%b"

  19. 	setlocal enabledelayedexpansion

  20. 	if /i "!s!" neq "!str!" (

  21. 		if !i! gtr 1 set /a n+=1

  22. 		set i=1

  23. 	) else set /a "i+=1"

  24. 	for /f "tokens=1,2" %%i in ("!n! !i!") do endlocal&set n=%%i&set i=%%j&set _%%i=%%j&set "%%i_%%j=%%c"

  25. 	set "s=%%a:%%b"

  26. )

  27. setlocal enabledelayedexpansion

  28. (for /l %%i in (1 1 %N%) do (

  29. 	for /l %%a in (1 1 !_%%i!) do (

  30. 		for /f "tokens=*" %%m in ("!%%i_%%a!") do (

  31. 			set /a i=%%a+1

  32. 			dir /b /a-d "!%%i_%%a!" >dir_a.t

  33. 			for /l %%b in (!i! 1 !_%%i!) do (

  34. 				for /f "tokens=*" %%n in ("!%%i_%%b!") do (

  35. 					dir /b /a-d "!%%i_%%b!" >dir_b.t

  36. 					findstr /ivxg:dir_a.t dir_b.t>dir_c.t>nul||findstr /ivxg:dir_b.t dir_a.t>nul||(

  37. 						for /f "tokens=*" %%o in ("!%%i_%%a!") do (

  38.                                                 	echo !%%i_%%a!&type dir_a.t&echo;

  39. 							set %%i_%%a=

  40. 						)

  41. 						echo !%%i_%%b!&type dir_b.t&echo;

  42. 						set %%i_%%b=

  43. 					)

  44. 				)

  45. 			)

  46. 		)

  47. 	)

  48. ))>dir_list.txt

  49. del dir_a.t dir_b.t

  50. start "" dir_list.txt

  51. pause
复制代码
第九题 增加一个临时文件方案3 如文件夹数量大的情况 增加个临时文件
  1. @echo off

  2. SET PH=f:

  3. dir /s /a-d /o:n %PH% >dir_a.t

  4. (for /f "skip=2 tokens=*" %%i in (dir_a.t) do (

  5.         set "str=%%i"

  6.         setlocal enabledelayedexpansion

  7.         if exist "!str:~,-4!\" (

  8.                 for /f "tokens=*" %%j in ("!str:~,-4!") do endlocal&set "files=%%j"

  9.         ) else  endlocal&for /f "tokens=1-3*" %%a in ("%%i") do if "%%b%%d" == "个文件字节" (

  10.                 setlocal enabledelayedexpansion

  11.                 for /f "tokens=1-3*" %%a in ("%%i") do echo !file!:%%a:!files!

  12.                 endlocal

  13.         ) else set "file=%%d"

  14. ))>dir_b.t

  15. findstr /inbv ":" dir_b.t >dir_a.t

  16. (for /f "tokens=1-3* delims=:" %%a in (dir_a.t) do (

  17. 	if not defined $%%a (

  18. 		dir /b /a-d /on "%%d" >dir_b.t

  19. 		set flag=a

  20. 		findstr /ic:":%%b:%%c:" dir_a.t>$

  21. 		for /f "tokens=1-3* delims=:" %%A in ($) do (

  22. 			if %%A gtr %%a (

  23. 				if not defined $%%A (

  24. 					dir /b /a-d /on "%%D" >dir_c.t

  25. 					fc /c /L dir_b.t dir_c.t>nul&&(

  26. 						if defined flag set flag=&echo %%d&type dir_b.t&echo;

  27. 						echo %%D&type dir_c.t&echo;

  28. 						set $%%A=a

  29. 					)

  30. 				)

  31. 			)

  32. 		)

  33. 	)

  34. ))>dir_list.txt

  35. del $ dir_a.t dir_b.t dir_c.t 2>nul

  36. start "" dir_list.txt

  37. pause
复制代码
第十题
  1. @echo off

  2. findstr /ivx "图[0-9]*\.[0-9]*" a.txt>_temp.t

  3. findstr /ivx "图[0-9]*\.[0-9]*、.*图[0-9]*\.[0-9]*" _temp.t>html.txt

  4. set "sp=&nbsp;&nbsp;&nbsp;&nbsp;"

  5. set "br=<br />"

  6. set "ims=一二三四五六七八九十百　 "

  7. (findstr /ib "<[^/]" %~s0

  8. for /f "delims=" %%i in ('findstr /in .* html.txt') do (

  9. 	set "str=%%i"

  10. 	setlocal enabledelayedexpansion

  11.         set "str=!str:*:=!"

  12. 	if defined str (

  13. 		for /f "tokens=1,2 delims=%ims%" %%a in ("!str!") do (

  14. 			if "%%a%%b" == "第章"  (

  15. 				if "!str:~,2!" == "第章" (

  16. 					echo;!br!!sp!!str!!br!

  17. 				) else echo;!sp!!str!!br!

  18. 			) else echo;!sp!!str!!br!

  19. 		)

  20. 	) else echo !br!

  21. 		endlocal

  22. 

  23. )

  24. 	findstr /ib "</" %~s0

  25. )>a.html

  26. del html.txt _temp.t

  27. exit

  28. <html>

  29. <body>

  30. </body>

  31. </html> 
复制代码

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
3楼
发表于 2013-7-19 15:15 | 只看该作者
本帖最后由 523066680 于 2013-8-19 19:30 编辑

第一题：
（没有考虑特殊文件夹或者权限限制的情况）

修改时间：2013-08-08
改善问题：1、遇到含有%、! 的符号出错
             2、for /f + 'dir'效率低，改为了for /D
  1. @echo off

  2. set target=x:\bathome

  3. if exist %target% (

  4.     cd /d %target%\

  5.     call :subfolder

  6.     cd ..

  7.     rd %target%

  8. ) else (

  9.     echo %target% 目录不存在

  10. )

  11. pause

  12. exit

  13. 

  14. 

  15. :subfolder

  16.   echo %cd%

  17.   del *.* /a /f /q

  18.   for /D %%i in (*.*) do (

  19.       cd "%%~fi"

  20.       call :subfolder

  21.       cd ..

  22.       rd "%%~fi"

  23.   )

  24.   goto :eof

  25.   
复制代码
第三题，
修改时间：2013-07-27
改善问题：1、支持%、! 等字符
             2、减少call，提速
             3、net user 在遇到 " 时需要用\"转义。

每一组出现的次数是随机的（在至少出现一次的基础上），每一组出现的位置是随机的。
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. set t=%time%

  4. set S1=ABCDEFGHIJKLMNOPQRSTUVWXYZ

  5. set S2=abcdefghijklmnopqrstuvwxyz

  6. set S3=0123456789

  7. rem       V    V V V              V    V V

  8. set "S4=~`^!@#$%%^^^&*()_+-={}[]|\:^";'^<^>,.?/"

  9. set /a N1=26,N2=26,N3=10,N4=32

  10. set /a i=0

  11. 

  12. :LP

  13.     set "Series="

  14.     set "Code="

  15.     rem [1-4]是4个必须的组元素，4以上随机选组

  16.     for /l %%i in (1,1,8) do (

  17.         if %%i leq 4 (

  18.             set /a Who=%%i, R=!random! %% N%%i

  19.         ) else (

  20.             set /a Who=!random! %% 4 + 1

  21.             set /a R=!random! %% N!Who!

  22.         )

  23.         set Code[%%i]=!Who!_!R!

  24.     )

  25. 

  26.     rem 从数组中随机提取元素，装载到SRand

  27.     rem 根据提取的个数，逐步缩小提取范围

  28.     set "SRand="

  29.     for /l %%a in (8,-1,1) do (

  30.         set /a R=!random! %% %%a + 1

  31.         for %%b in (!R!) do set SRand=!SRand! !Code[%%b]!

  32.         set Code[!R!]=!Code[%%a]!

  33.     )

  34. 

  35.     if not defined EVER_%SRand: =% (

  36.         set EVER_%SRand: =%=exist

  37.         set /a i+=1

  38.         rem 编号转字符

  39.         for %%n in (%SRand%) do (

  40.             for /f "tokens=1,2 delims=_" %%a in ("%%n") do (

  41.                 set Series=!Series!!S%%a:~%%b,1!

  42.             )

  43.         )

  44.         set nnn=00!i!

  45.         set nnn=!nnn:~-3!

  46.         rem 设置密码如果出现双引号, 需要用\进行转义

  47.         rem net user Bathome!nnn! "!Series:"=\"!" /add 1>nul

  48.         echo 编号和密码：!nnn! !Series!

  49.     ) else (

  50.         rem  其实很少重复，走个过场。

  51.         echo 出现重复密码

  52.         goto :LP

  53.     )

  54.     if %i% lss 100 (

  55.         goto :LP

  56.     )

  57. 

  58. echo %t% %time%

  59. pause

  60. exit
复制代码
编号和密码：090 Mb1BN49}
编号和密码：091 i9A8^2DU
编号和密码：092 bm6=:I1V
编号和密码：093 1G+iY2i3
编号和密码：094 nq"s|8rI
编号和密码：095 2[|8SmL1
编号和密码：096 kZf:6ST:
编号和密码：097 W&6?*b8f
编号和密码：098 6&4t_1P2
编号和密码：099 9e^7K>EV
编号和密码：100 C>%Qz1Q4



第八题   很长……
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. set /a n=1, m=10

  4. for %%i in (壹 贰 叁 肆 伍 陆 柒 捌 玖 分 角 圆 拾 佰 仟 万) do (

  5.     if !n! leq 9 (

  6.         set /a C_%%i=n,n+=1

  7.     ) else (

  8.         set /a P_%%i=m,m-=1

  9.     )

  10. )

  11. 

  12. set /a Code=0, Begin=0

  13. rem 读取文本/调用Deal转换数字

  14. for /f "tokens=*" %%a in ('type %0') do (

  15.     if !Begin! equ 1 (call :Deal %%a)

  16.     if "%%a"=="::Data" (set /a Begin=1)

  17. )

  18. 

  19. rem 选择排序

  20. for /l %%a in (%Code%,-1,1) do (

  21.     set Ever=0000000000_000

  22.     for /l %%b in (1,1,%%a) do (

  23.        if !Ser[%%b]! gtr !Ever! (

  24.            set Ever=!Ser[%%b]!

  25.            set Num=%%b

  26.        )

  27.     )

  28.     set Ser[!Num!]=!Ser[%%a]!

  29.     set Ser[%%a]=!Ever!

  30. )

  31. 

  32. for /l %%a in (1,1,%Code%) do (

  33.     for %%b in (!Ser[%%a]!) do echo !SRC_%%b!

  34. )

  35. pause

  36. exit

  37. 

  38. :Deal

  39.     set Say=%1

  40.     set Ser=0000000000

  41.     set Say=%Say:整=%

  42.     set Say=%Say:零=%

  43.     set /a i=0,Cut=0,Code+=1

  44.     for /l %%a in (0,1,25) do (

  45.         set z=!Say:~-1,1!

  46.         set Say=!Say:~,-1!

  47.         if defined P_!z! (

  48.             set /a Site=P_!z!-Cut

  49.             if "!z!"=="万" (set Cut=4)

  50.         ) else (

  51.             set /a Num=C_!z!,SiteA=Site-1

  52.             for /f "tokens=1,2" %%i in ("!Site! !SiteA!") do (

  53.                 set Ser=!Ser:~0,%%j!!Num!!Ser:~%%i!

  54.             )

  55.         )

  56.         if "!Say!"=="" (goto :next)

  57.     )

  58.     :next

  59.     set NNN=000%Code%

  60.     rem NNN后缀用来确保相同的数额能够在排序中保留

  61.     set Ser[%Code%]=%Ser%_!NNN:~-3!

  62.     set SRC_%Ser%_!NNN:~-3!=%1

  63.     goto :eof

  64. 

  65. ::Data

  66. 陆拾叁万贰仟伍佰肆拾叁圆叁角整

  67. 伍万圆整

  68. 捌万零肆佰圆伍角叁分

  69. 壹佰圆整

  70. 贰佰万叁仟贰佰陆拾陆圆零叁分

  71. 柒佰柒拾万零捌拾叁圆整

  72. 叁万圆肆角肆分

  73. 壹圆整
复制代码
第九题
最后修改: 8月19日
基本上在遇到含有%%!! () & 符号的文件、文件夹时不会出错。不过效率很低。
如果多个目录相同，比如,A=B=C  可以并排列出。而不是A=B，B=C，A=C分别列出。
  1. ::Find the same directory

  2. ::     by 523066680

  3. ::2013-08-19

  4. 

  5. @echo off

  6. :init

  7.     set MainDir=%cd%\

  8.     set MainDir=%MainDir:\\=\%

  9.     set text="%MainDir%F_Record.txt"

  10.     set Ra="%MainDir%FileRa.txt"

  11.     set Rb="%MainDir%FileRb.txt"

  12.     type nul>%text%

  13.     set t=%time%

  14.     set /a rept=1

  15.     rem list = 0 输出结果不列出文件列表

  16.     rem list = 1 列出文件数量、大小

  17.     rem list = 2 列出文件列表和数量、大小

  18.     set list=1

  19.     rem confrim = 1 or 0 : 决定是否核对文件大小

  20.     set confirm=1

  21.     echo Current Directory: "%MainDir%"

  22. 

  23.     if %confirm% equ 0 (

  24.         set "ext="

  25.         set "arg=/b"

  26.         set "filter="

  27.         set filt2="字节"

  28.     ) else (

  29.         set "ext=%%~za"

  30.         set "arg=/w"

  31.         set "filter=|more +5 |find /v " 可用字节""

  32.         set filt2=" 可用字节"

  33.     )

  34. 

  35. :deal

  36.     for /r "%MainDir%" %%a in (.) do (

  37.         if "%%a"=="%MainDir%%%~nxa\." echo "%%a"

  38.         cd "%%a"

  39.         call :next

  40.     )

  41.     echo 处理结果：

  42.     rem 对搜集的数据汇总输出

  43.     set /a rept-=1

  44.     if %rept% equ 0 (

  45.         set /p inp=没有找到重复文件夹<nul

  46.         pause >nul

  47.         exit

  48.     )

  49.     for /l %%a in (1,1,%rept%) do (

  50.         for /f "tokens=2 delims=?" %%b in ('set SAME_[%%a]') do (

  51.             echo %%b

  52.             echo %%b >>%text%

  53.             set "last=%%b"

  54.             if "%confirm%%list%"=="01" (dir /w %%b |find " 个文件" >>%text%)

  55.             if "%confirm%%list%"=="02" (

  56.                 dir /w %%b |more +5 |find /v " 个目录" >>%text%

  57.             )

  58.         )

  59.         if "%confirm%%list%"=="11" (

  60.             call dir /w %%last%% |find " 个文件" >>%text%

  61.         )

  62.         if "%confirm%%list%"=="12" (

  63.             call dir /w %%last%% |more +5 |find /v " 个目录" >>%text%

  64.         )

  65.         echo,>>%text%

  66.     )

  67.  

  68.     cd %MainDir%

  69.     echo 清理临时文件FileRa.txt FileRb.txt

  70.     if exist %Ra% del %Ra% %Rb%

  71.     echo 前后时间: %t% %time%

  72.     pause

  73.     exit

  74. 

  75. :next

  76.     set str=_

  77.     rem 文件名单

  78.     rem 有短名则使用短名，避免"="造成的变量赋值、判断问题

  79.     for /f "tokens=4" %%a in ('dir /a /x ^|more +7 ^|find "-"') do (

  80.         (

  81.           call set "str=%%str%%_%%a_%ext%" 2>nul

  82.         ) || (

  83.           goto :out

  84.         )

  85.     )

  86. 

  87.     rem 空目录跳过

  88.     if "%str%"=="_" (goto :eof)

  89. 

  90.     :out

  91.     rem 不管字符串是否超载，都进行截取。

  92.     set "str=%str:~0,3000%"

  93.     set "str=%str: =#%"

  94.     set "str=%str:,=#%"

  95.     set "str=%str:&=#%"

  96.     if not defined Def_%str% (

  97.         call set "Def_%%str%%=%%cd%%"

  98.     ) else (

  99.         rem 做进一步确认：

  100.         rem 原因1、变量记录的有限数据，作为初步判断

  101.         rem 原因2、相似的文件名可以产生相同的短名

  102. 

  103.         call dir %arg% "%%Def_%str%%%" %filter% >%Ra%

  104.         dir %arg% "%cd%" %filter% >%Rb%

  105.         (

  106.           fc %Ra% %Rb% >nul && (

  107.               rem Same Folder

  108.               call :record

  109.           )

  110.         ) || (

  111.           rem echo 在疑似重复的目录中找到异同

  112.         )

  113.     )

  114.     goto :eof

  115. 

  116. :record

  117.     if not defined REPT_%str% (

  118.         set "REPT_%str%=%rept%"

  119.         set "COF_%str%=2"

  120.         call set SAME_[%rept%][1]=?"%%Def_%str%%%"

  121.         set SAME_[%rept%][2]=?"%cd%"

  122.         set /a rept+=1

  123.     ) else (

  124.         call set /a "COF=%%COF_%str%%%+1"

  125.         call set "COF_%str%=%%COF%%"

  126.         call set "SAME_[%%REPT_%str%%%][%%COF_%str%%%]=?"%%cd%%""

  127.     )

  128.     goto :eof
复制代码
检查D盘耗时差不多1小时。

confirm=1  list=1  详细对比并列出文件数量大小

"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\复件 (2) a"
"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\复件 a"
               2 个文件          1,404 字节

"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\ftest"
"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\复件 ftest"
               1 个文件              0 字节



confirm=0  list=1   仅对比文件名、列出文件大小
（这个时候是分开列出文件大小的，增加了一个文件夹做测试）

"D:\me\IF_Batch\目录、文件操作\FindSameFolder\大小不同的例子\CA"
               1 个文件              6 字节
"D:\me\IF_Batch\目录、文件操作\FindSameFolder\大小不同的例子\CB"
               1 个文件              3 字节

"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\复件 (2) a"
               2 个文件          1,404 字节
"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\复件 a"
               2 个文件          1,404 字节

"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\ftest"
               1 个文件              0 字节
"D:\me\IF_Batch\目录、文件操作\FindSameFolder\错误实例\复件 ftest"
               1 个文件              0 字节


虽然不想用批处理做第九题。
没有以前那么能折腾了，做出来还是效率又低问题依旧。。。
附件，内有备注明一些错误情况。
附件: 您需要登录才可以下载或查看附件。没有帐号？注册
FuniCode 编程论坛

TOP

cutebe

Rank: 5Rank: 5

帖子
304 
积分
1430 
技术
51  
捐助
0  
注册时间
2009-2-18 
4楼
发表于 2013-7-19 20:35 | 只看该作者
好多题，也好诱惑！
如无特别说明，代码测试环境均为 XP SP3

TOP

xxpinqz

Rank: 6Rank: 6

帖子
491 
积分
2671 
技术
119  
捐助
0  
注册时间
2008-11-19 
5楼
发表于 2013-7-19 22:51 | 只看该作者
本帖最后由 xxpinqz 于 2013-7-22 18:36 编辑

vbs用来计算惯了，表示计算类都没写过。第三方更少接触，附上几个。表示纯支持，纯参与。
第一题:
  1. @echo off

  2. rem 能del /a/s/f/q *.*吗

  3. set "dst=d:\bathome"

  4. (for /f "delims=" %%a in ('dir /b/s/a "%dst%"^|sort /r') do (

  5.       del /a/q/f "%%a"

  6.       rd "%%a"

  7. ))>nul 2>nul

  8. rd "%dst%"
复制代码
第二题:郁闷的这题，有人考虑含空格的用户名吗，表示没招，查找目录也不一定准确。或者多虑了
  1. @echo off&setlocal enabledelayedexpansion

  2. for /f "skip=4 delims=" %%a in ('net user^|findstr /iv "命令成功完成"') do (

  3.      for %%i in (%%a) do set "#%%i=1"

  4. )

  5. for /f "delims=" %%a in (d:\BatHome_User_List.txt) do set "#%%a=!#%%a!2"

  6. for /f "tokens=1,2 delims=#=" %%a in ('set #') do (

  7.     if %%b equ 1 (

  8.         set "strz=!strz!%%a "

  9.     ) else (

  10.         if %%b equ 2 set "strj=!strj!%%a "

  11.     )

  12. )

  13. echo 非法增加用户:!strz!

  14. echo 非法减少用户:!strj!

  15. pause
复制代码
第三题:
  1. @echo off

  2. set "dx=ABCDEFGHIJKLMNOPQRSTUVWXYZ"

  3. set "xx=abcdefghijklmnopqrstuvwxyz"

  4. set "sz=0123456789"

  5. set "zf=$#@~_+{}|;'<>?,./\][=-)(*:"

  6. set l=1000

  7. setlocal enabledelayedexpansion

  8. :loop

  9. set/a r1=!random!%%26,r2=!random!%%10,r3=!random!%%26,r4=!random!%%10

  10. if not defined #!r1!-!r2!-!r3!-!r4! (

  11.      set /a l+=1

  12.      set #!r1!-!r2!-!r3!-!r4!=!l!

  13. )

  14. if %l% lss 1100 goto :loop

  15. for /f "tokens=1,2 delims=#=" %%a in ('set #') do (

  16.     set "id=%%b"

  17.     for /f "tokens=1-4 delims=-" %%i in ("%%a") do (

  18.          set "pw=!dx:~%%i,1!!xx:~%%i,1!!zf:~%%i,1!!sz:~%%j,1!!dx:~%%k,1!!xx:~%%k,1!!zf:~%%k,1!!sz:~%%l,1!"

  19.          echo net user Bathome!id:~-3! !pw! /add

  20.     )

  21. )

  22. pause
复制代码
第四题：
浮点啊，不会。。。。
第五题：
算日期，也不会，只好走个捷径
  1. @echo off

  2. rem 不会计算日期，只好这么写了,win7测试，XP默认是周还是星期?

  3. more +6 <%~fs0>autobak.bat

  4. schtasks /create /tn autobak /sc daily /ru system /tr "%~dp0autobak.bat" /f

  5. goto :eof

  6. 

  7. @echo off

  8. cd /d "%~dp0"

  9. for /f "tokens=1-4 delims=-/ " %%a in ("%date%") do (

  10.     set "today=%%b-%%c-%%a"

  11.     set "week=%%d"

  12. )

  13. if not exist "*.lst" (

  14.      (echo logs\

  15.       echo img\

  16.       echo .zip

  17.       echo .bak

  18.     )>"%today%.lst"

  19. )

  20. for %%a in (*.lst) do set "day=%%~na"

  21. ren "%day%.lst" "%today%.lst"

  22. if "%week:周=星期%"=="星期日" (

  23.     xcopy "d:\www.bathome\*.*" "d:\bbs.bathome\%week%\" /yshr

  24. ) else (

  25.     xcopy "d:\www.bathome\*.*" "d:\bbs.bathome\%week%\" /yshr /d:%day% /exclude:%today%.lst

  26. )
复制代码
第六题：
计算的略过
第七题：
curl，纯欣赏。
第八题:
  1. @echo off&setlocal enabledelayedexpansion

  2. more +20<%~s0>tmp

  3. set "c=零-+0# 壹-+1# 贰-+2# 叁-+3# 肆-+4# 伍-+5# 陆-+6# 柒-+7# 捌-+8# 玖-+9# 拾-0 佰-00 仟-000 万-^)#0000+^(0 角-0 分- "

  4. for /f "delims=" %%z in (tmp)do (

  5.   for /f "tokens=1,2 delims=圆整" %%i in ("%%z")do (

  6.     set "str=(%%i).%%j"

  7.     for %%a in (%c%) do (

  8.       for /f "tokens=1-2 delims=-" %%b in ("%%a")do set "str=!str:%%b=%%c!"

  9.     )

  10.     for /f "tokens=1-2 delims=." %%a in ("!str:#=*1!")do (

  11.       set/a xs=100%%b,num=%%a

  12.       set "num=0000000000!num!.!xs:~-2!"

  13.       set "#!num:~-12!=%%z"

  14.     )

  15.   )

  16. )

  17. for /f "tokens=2 delims==" %%a in ('set #')do echo,%%a

  18. del /f tmp&pause>nul&goto :eof

  19. 

  20. 

  21. 陆拾叁万贰仟伍佰肆拾叁圆叁角整

  22. 伍万圆整

  23. 捌万零肆佰圆伍角叁分

  24. 壹佰圆整

  25. 贰佰万叁仟贰佰陆拾陆圆零叁分

  26. 柒佰柒拾万零捌拾叁圆整

  27. 叁万圆肆角肆分

  28. 壹圆整

  29. 玖仟万零玖圆玖角
复制代码
第玖题:
  1. @echo off&setlocal enabledelayedexpansion

  2. set "src=%~dp0"

  3. (for /d /r f: %%a in (*) do (

  4.     pushd "%%a"

  5.     set str=

  6.     for %%b in (*) do set "str=!str!%%b"

  7.     if defined str (

  8.           echo,!str!*%%a

  9.     ) else (

  10.           echo,%%a >>%src%$t

  11.     )    

  12. ))>%src%$f

  13. cd /d "%src%"

  14. echo                    相同的不含文件的文件夹:

  15. type $t

  16. echo                      含相同文件的文件夹:

  17. for /f "tokens=1* delims=*" %%a in ('sort $f') do (

  18.     set "str1=!str2!"

  19.     set "path1=!path2!"

  20.     set "str2=%%a"

  21.     set "path2=%%b"

  22.     if "!str1!"=="!str2!" (

  23.     	echo !path1!

  24.     	set .=.

  25.     ) else (

  26.         if defined . (

  27.               set.=

  28.               echo,!path1!

  29.               echo ---------------传说的分割线---------------

  30.         )

  31.     )

  32. )

  33. if defined . echo,!path2!

  34. del $?&pause
复制代码
第十题:
没整过html，也不知道对不对.
  1. @echo off

  2. set "char=一 二 三 四 五 六 七 八 九 十 零"

  3. (echo ^<HTML^>^<BODY^>

  4. for /f "delims=" %%a in ('findstr /bivx "图[0-9]*\.[0-9]*$" 时间简史.txt') do (

  5.     for /f "delims=章" %%b in ("%%a") do (

  6.         set "str=%%b"

  7.         setlocal enabledelayedexpansion

  8.         for %%c in (%char%) do set "str=!str:%%c=!"

  9.         if "!str!"=="第" echo ^<br^>

  10.         endlocal

  11.     )

  12.     echo ^<br^>

  13.     echo ^&nbsp^&nbsp^&nbsp^&nbsp%%a^<br^>

  14. )

  15. echo ^</BODY^>^</HTML^>

  16. )>时间简史.html
复制代码
初学BAT，非专业。代码不适当之处还望前辈们多多指点。在此表示感谢！

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
6楼
发表于 2013-7-21 10:18 | 只看该作者
本帖最后由 apang 于 2013-8-12 08:28 编辑

1.
  1. @echo off

  2. %1(for /f "delims=" %%a in ('%~s0 :^|sort /r') do del/a/f/q %%a&rd/q %%a)&exit /b

  3. 

  4. set "folder=D:\BatHome"

  5. echo,"%folder%\"

  6. call :GetSubFolder "%folder%"

  7. exit /b

  8. 

  9. :GetSubFolder

  10. for /f "delims=" %%a in ('dir /ad/b "%~1\"') do (

  11.     echo,"%~1\%%a\"

  12.     call :GetSubFolder "%~1\%%a"

  13. )
复制代码
2.
  1. @echo off

  2. set "wmic=wmic useraccount get name /value"

  3. (for /f "tokens=2delims==" %%a in ('%wmic%^|find "="') do (

  4.     for /f "tokens=*" %%b in ("%%a") do echo,%%b

  5. ))>$

  6. 

  7. for /f "delims=" %%a in ('findstr/ixvg:"D:\BatHome_User_List.txt" $') do (

  8.     echo,增加的用户：%%a

  9. )

  10. for /f "delims=" %%a in ('findstr/ixvg:$ "D:\BatHome_User_List.txt"') do (

  11.     echo,减少的用户：%%a

  12. )

  13. del $

  14. pause
复制代码
3.
  1. :~!@#$%^&*()+-=<>?/\|

  2. @echo off&setlocal enabledelayedexpansion

  3. set "str=QWERTYUIOPASDFGHJKLZXCVBNM qwertyuiopasdfghjklzxcvbnm"

  4. set "str1=1234567890"

  5. set /p str2=<%0

  6. for /l %%a in (1001 1 1100) do (

  7.     set "pwd=" & set "Name=%%a"

  8.     for %%b in (%str%) do (

  9.         set "a=%%b"

  10.         set /a r=!random! %% 26

  11.         for %%c in (!r!) do set "pwd=!pwd!!a:~%%c,1!"

  12.     )

  13.     set /a r1=!random! %% 10,r2=!random! %% 21

  14.     for %%a in (!r1!) do set "pwd=!pwd!!str1:~%%a,1!"

  15.     for %%a in (!r2!) do set "pwd=!pwd!!str2:~%%a,1!"

  16.     Net User "BatHome!Name:~1!" "!pwd!%%a" /add

  17.     echo,用户名：BatHome!Name:~1! 密码：!pwd!%%a>>List.txt

  18. )

  19. pause
复制代码
4.
  1. @echo off&setlocal enabledelayedexpansion

  2. for /f "tokens=1,2*" %%a in ('systeminfo') do (

  3.     if "%%a"=="物理内存总量:" set "mem=%%b"

  4.     if "%%a"=="可用的物理内存:" set "freemem=%%b"

  5.     if "%%a"=="系统启动时间:" (

  6.         for /f "tokens=1-8" %%i in ("%%b %%c") do (

  7.             set /a "st=%%i*24*3600+%%k*3600+%%m*60+%%o"

  8.         )

  9.     )

  10. )

  11. 

  12. set /a "mem1=%mem:,=%0/1024,mem2=100*(%mem:,=%-%freemem:,=%)/%mem:,=%"

  13. >D:\BatHome_OS.txt echo,已运行时间：%st%秒

  14. >>D:\BatHome_OS.txt echo,物理内存总量：%mem1:~,-1%.%mem1:~-1%GB

  15. >>D:\BatHome_OS.txt echo,内存使用率：%mem2%%%

  16. 

  17. set wmic=wmic logicaldisk where "DriveType='3'"

  18. (for /f "tokens=1-3" %%i in ('%wmic% get freespace^,name^,size^|find ":"') do (

  19.     call :GetSize %%k00

  20.     set /a a=Size/1024

  21.     set /p=%%j容量：!a:~,-1!.!a:~-1!GB <nul

  22.     call :GetSize %%i00

  23.     set /a "b=100*(a-Size/1024)/a"

  24.     set /p=使用率：!b!%%<nul

  25.     echo,

  26. ))>>D:\BatHome_OS.txt

  27. pause&goto :eof

  28. 

  29. :GetSize

  30. set "num=%1"&set "Size="&set "n="

  31. for %%a in (16 8 4 2 1) do (

  32.     if not "!num:~%%a!"=="" set /a n+=%%a&set "num=!num:~%%a!"

  33. )

  34. set "num=%1"

  35. set /a n-=6

  36. for /l %%a in (!n! -1 1) do (

  37.     set "s=!num:~,-%%a!"

  38.     if "!s:~,1!"=="0" set "s=!s:~1!"

  39.     set /a m=s%%1048576,s/=1048576

  40.     set "Size=!Size!!s!"

  41.     set "num=!m!!num:~-%%a!"

  42. )

  43. if "!Size:~,1!"=="0" set "Size=!Size:~1!"
复制代码
5.
  1. @echo off

  2. ::需要更改 Name 和 PWD 为实际的登录用户名和密码

  3. more +6 "%~0">"%~dp0Back.bat"

  4. schtasks /create /tn FulBack /tr "cmd /cxcopy /shcy \"D:\www.bathome\*\" \"D:\bbs.bathome\\"" /sc weekly /d sun /ru Name /rp PWD

  5. schtasks /create /tn IncBack /tr \""%~dp0Back.bat"\" /sc weekly /d mon,tue,wed,thu,fri,sat /ru Name /rp PWD

  6. pause&goto :eof

  7. 

  8. pushd "%~dp0"

  9. (for %%a in ("\logs\" "\img\" ".zip" ".bak") do echo,%%~a)>$

  10. xcopy /shcdy /exclude:$ "D:\www.bathome\*" "D:\bbs.bathome\"

  11. del $
复制代码
6.
  1. @echo off&setlocal enabledelayedexpansion

  2. set /p Num1=输入被除数（正整数）：

  3. set /p Num2=输入除数（小于9位数的正整数）：

  4. set "x=100"

  5. 

  6. set /a Len1=Len2=0&set "tmp=%Num1%"

  7. for %%a in (64 32 16 8 4 2 1) do (

  8.     if "!tmp:~%%a!" neq "" set /a Len1+=%%a&set "tmp=!tmp:~%%a!"

  9. )

  10. 

  11. set "tmp=%Num2%fedcba9876543210"

  12. set /a Len2=0x!tmp:~15,1!

  13. 

  14. for /l %%a in (1 10 %x%) do set "str=!str!0000000000"

  15. set "str=%Num1%%str%0"

  16. set /a n = Len1 - Len2 + x + 1

  17. 

  18. for /l %%a in (!n! -1 1) do (

  19.     set "s=!str:~,-%%a!"

  20.     if "!s:~,1!"=="0" set "s=!s:~1!"

  21.     set /a m=s %% Num2,s/=Num2

  22.     set "Size=!Size!!s!"

  23.     set "str=!m!!str:~-%%a!"

  24. )

  25. 

  26. if %Len1% lss %Len2% (

  27.     set "Size=0000000000!Size!" & set "Size=!Size:~-%x%!"

  28. ) else if "!Size:~,1!"=="0" set "Size=!Size:~1!"

  29. 

  30. echo,%Num1% ÷ %Num2% = !Size:~,-%x%!.!Size:~-%x%!

  31. pause
复制代码
7.
  1. @echo off&setlocal enabledelayedexpansion

  2. ::需要第三方工具 wget 和 geturls

  3. set "url=http://www.zhuoku.com/zhuomianbizhi/show/index-1.htm"

  4. set "str=tool.zhuoku.com/tool/dyw_size.php?width=1440&height=900&corp_x=center&corp_y=top&picurl=.."

  5. wget -O "%tmp%\$1" "%url%" 2>nul

  6. md show 2>nul

  7. for /f "delims=" %%a in ('geturls /s:"zhuomianbizhi"^<"%tmp%\$1"^|findstr /i "\/[0-9]*\.htm$"') do (

  8.     if not defined %%~na (

  9.         wget -O "%tmp%\$2" "http://www.zhuoku.com/%%a" 2>nul

  10.         for /f "delims=" %%b in ('geturls^<"%tmp%\$2"^|findstr /i "\.jpg$"')do (

  11.             set "a=%%b"

  12.             set "a=!a:/thumbs/tn_=/!"

  13.             for /f "delims=" %%c in ("!a:img.zhuoku.com=%str%!") do (

  14.                 wget -O "show\%%~nxc" "%%c"

  15.             )

  16.         )

  17.         set "%%~na=1"

  18.     )

  19. )

  20. del "%tmp%\$*"
复制代码
8.
  1. @echo off&setlocal enabledelayedexpansion

  2. %1(for /f "tokens=2delims=." %%a in ('%~s0 :^|sort') do echo,%%a)>b.txt&exit /b

  3. 

  4. for /f "delims=" %%a in (a.txt) do (

  5.     set "a=%%a" & set /a n=0

  6.     for %%b in (整 角 分) do set "a=!a:%%b=!"

  7.     for %%b in (捌 玖 拾) do set "a=!a:零%%b=%%b!"

  8.     set "a=!a:拾=*10+!"

  9.     set "a=!a:佰=*100+!"

  10.     set "a=!a:仟=*1000+!"

  11.     for %%b in (零 壹 贰 叁 肆 伍 陆 柒 捌 玖) do (

  12.         for %%c in (!n!) do set "a=!a:%%b=%%c!"

  13.         set /a n+=1

  14.     )

  15.     set "a=!a:+万=万!" & set "a=!a:+圆=圆!"

  16.     if "!a:万=!" neq "!a!" set "a=(!a:万=)*10000+!"

  17.     if "!a:圆=!"=="!a!" set "a=0圆!a!"

  18.     set "a=!a:+圆=圆!"

  19.     set "b=!a:*圆=!00"

  20.     set "b=!b:~,2!"

  21.     for /f "delims=圆" %%b in ("!a!") do set /a "a=%%b"

  22.     set "str=..........!a!!b!"

  23.     echo,!str:~-11!.%%a

  24. )
复制代码
9.
  1. @echo off&setlocal enabledelayedexpansion

  2. md "%tmp%\~tmp\" 2>nul

  3. for /d /r "f:\" %%a in (*) do (

  4.     set /a n+=1

  5.     set "_!n!=%%a"

  6.     (for %%b in ("%%a\*") do echo,%%~nxb)>"%tmp%\~tmp\!n!.tx"

  7. )

  8. 

  9. pushd "%tmp%\~tmp\"

  10. (for /l %%a in (1 1 !n!) do (

  11.     for /f "delims=" %%b in ('findstr/imxg:%%a.tx *.tx 2^>nul')do (

  12.         if /i not "%%a.tx"=="%%b" (

  13.             fc /c %%a.tx %%b|find /i "FC: 找不到">nul && (

  14.                 if not defined #%%a (

  15.                     echo,!_%%a!&type %%a.tx&echo,

  16.                     set #%%a=1

  17.                 )

  18.                 if not defined #%%~nb (

  19.                     echo,!_%%~nb!&type %%b&echo,

  20.                     set #%%~nb=1

  21.                 )

  22.             )

  23.         )

  24.     )

  25. ))>"%~dp0List.txt"

  26. popd&rd "%tmp%\~tmp\" /s /q

  27. pause
复制代码
10.
  1. @echo off

  2. (echo,^<html^>&echo,^<body^>)>a.html

  3. (for /f "delims=" %%a in ('findstr/ivn "^图[0-9]*\.[0-9]*" a.txt') do (

  4.     set "str=%%a"

  5.     setlocal enabledelayedexpansion

  6.     set "str=!str:*:=!"

  7.     if "!str:~,1!"=="第" if "!str:章=!" neq "!str!" set flag=1

  8.     if defined flag (

  9.         echo,^</br^>

  10.         set "str=<p>!str!</p>"

  11.     ) else (

  12.         if "!str!" neq "" (

  13.             set "str=&nbsp;&nbsp;&nbsp;&nbsp!str!</br>"

  14.         ) else set "str=!str!</br>"

  15.     )

  16.     echo,!str!

  17.     endlocal

  18. ))>>a.html

  19. (echo,^</body^>&echo,^</html^>)>>a.html

  20. pause
复制代码

TOP

ShadowFiend

Rank: 1

帖子
38 
积分
52 
技术
1  
捐助
0  
注册时间
2012-11-24 
7楼
发表于 2013-7-23 17:41 | 只看该作者
本帖最后由 ShadowFiend 于 2013-7-23 17:46 编辑

现在第六题，看有时间再做其他
  1. @rem 第六题

  2. @echo off

  3. set ucase=ABCDEFGHIJKLMNOPQRSTUVWXYZ

  4. set lcase=abcdefghijklmnopqrstuvwxyz

  5. set num=0123456789

  6. rem 下面是除了space外的特殊字符，共32个

  7. set "spec=!#$%%&'()*+,-./:;<=>?@[\]^_`{|}~""

  8. set "all=%ucase%%lcase%%num%%spec%"

  9. set /a len=26+26+10+32,count=1

  10. setlocal enabledelayedexpansion

  11. 

  12. :start

  13. set op=&set o=

  14. rem 先分别在四种类型字符中选一个，保证至少存在四类字符

  15. for %%i in (%ucase%_26 %lcase%_26 %num%_10) do (

  16. 	set "tmp=%%i"

  17. 	set /a n=!random!%%!tmp:~-2!

  18. 	for %%j in (!n!) do set "op=!op!!tmp:~%%j,1!"

  19. )

  20. rem 特殊字符特殊处理

  21. set /a n=!random!%%32

  22. for %%i in (!n!) do set "op=!op!!spec:~%%i,1!"

  23. rem 再从所有字符中选出剩余的四个字符

  24. for /l %%i in (1 1 4) do (

  25. 	set /a n=!random!%%%len%

  26. 	for %%j in (!n!) do set "op=!op!!all:~%%j,1!"

  27. )

  28. rem 对8个字符做乱序处理，保证随机性

  29. for /l %%i in (8 -1 1) do (

  30. 	set /a n=!random!%%%%i

  31. 	for %%j in (!n!) do (

  32. 		set "o=!o!!op:~%%j,1!"

  33. 		set /a q=!n!+1

  34. 		for %%k in (!q!) do (set "op=!op:~0,%%j!!op:~%%k,8!")

  35. 	)

  36. )

  37. rem 判断是否重复，不重复则输出,出现重复的概率太小,个人认为没必要判断

  38. if %count% leq 100 (

  39. 	set c=%count%

  40. 	if %count% lss 100 (

  41. 		if %count% lss 10 (

  42. 			set c=00%count%

  43. 		) else (

  44. 			set c=0%count%

  45. 		)

  46. 	)

  47. 	echo username: Bathome!c! password: !o!

  48. 	set /a count+=1

  49. 	if %count% lss 100 (goto start)

  50. )

  51. pause
复制代码
nevermore

TOP

wankoilz

Rank: 5Rank: 5

帖子
394 
积分
1053 
技术
30  
捐助
100  
注册时间
2008-6-5 
8楼
发表于 2013-8-1 00:19 | 只看该作者
本帖最后由 wankoilz 于 2013-9-1 13:28 编辑

最近空时间多，来凑个热闹，希望能拿个第三名吧！
所有代码在win7下测试通过。
有什么问题还望Batcher指点。
帖子代码的显示稍微窄了点儿，长一点的句子显示出来不整齐。
总共才300kb，结果附件不能大于50kb，不得不压缩成7个包... ...
1、
  1. @echo off

  2. call :rd ".\测试文件夹"&exit

  3. 

  4. :rd

  5. for /f "delims=" %%a in ('dir/a-d/b %1 2^>nul') do if not "%%a"=="" del "%~1\%%a" /f

  6. for /f "delims=" %%a in ('dir/ad/b %1 2^>nul') do if not "%%a"=="" call :rd "%~1\%%a"

  7. rd %1 /q 2>nul
复制代码
2、
  1. @echo off

  2. for /f "skip=4 delims=" %%i in ('net user') do (

  3. if not "%%i"=="命令成功完成。" (

  4.     (for %%j in (%%i) do echo %%j)>User_List.txt

  5. ))

  6. (findstr /v /g:User_List.txt DBatHome_User_List.txt)>Gone_Users.txt

  7. (findstr /v /g:DBatHome_User_List.txt User_List.txt)>New_Users.txt
复制代码
3、
  1. @echo off

  2. set str=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%%^^^&*+

  3. setlocal enabledelayedexpansion

  4. for /l %%a in (1001,1,1100) do (

  5.     call :get_rnd

  6.     set password=%%a!rnd!

  7.     set username=%%a&set username=!username:~1!&set username=BatHome!username!

  8.     echo net user !username! !password! /add

  9. )

  10. pause&exit

  11. 

  12. :get_rnd 生成四位带一个大写、一个小写字母、一个数字、一个特殊字符的不重复字符串

  13. set rnd=

  14. set /a l=!random!%%26,u=!random!%%26+26,n=!random!%%10+52,t=!random!%%10+62

  15. for %%a in (!l!,!u!,!n!,!t!) do (

  16.     set rnd=!rnd!!str:~%%a,1!

  17. )

  18. if not defined !rnd! (set !rnd!=yes

  19. ) else (call :get_rnd)
复制代码
4、
  1. @echo off&title DateToSecs函数 BY Batcher Else BY wankoilz

  2. set "len=for /f "tokens=1-2" %%1 in ("$") do (set ##=!%%1!&set %%2=&(for %%a in (4096,2048,1024,512,256,128,64,32,16,8,4,2,1) do (if not "!%%1:~%%a,1!"=="" (set/a %%2+=%%a&set %%1=!%%1:~%%a!)))&(if not "!%%1!"=="" set/a %%2+=1)&set %%1=!##!)"

  3. setlocal enabledelayedexpansion

  4. echo MemoryInfo:

  5. call :Show_MemoryInfo

  6. echo;&echo DiskInfo（Wait a moment）:

  7. call :Show_DiskInfo

  8. echo;&echo SystemRunningTimeDiff:

  9. call :Show_SystemRunningTimeDiff

  10. echo;&pause&goto :eof

  11. 

  12. :Show_MemoryInfo

  13. for %%a in (物理内存总量 可用的物理内存) do (

  14.     set /a n+=1

  15.     for /f "tokens=2" %%b in ('systeminfo ^| findstr "%%a"') do (

  16.         set mem!n!=%%b

  17.     ) 

  18. )

  19. set rest=!mem2:^,=!&set total=!mem1:^,=!

  20. set/a used=!total!-!rest!

  21. set used=!used!0000

  22. set/a percent=!used!/!total!

  23. set percent=0000!percent!

  24. set percent_int=!percent:~0,-2!&set percent_float=!percent:~-2!

  25. call :trim percent_int !percent_int!

  26. set percent=!percent_int!.!percent_float!％

  27. set total=!total!0000

  28. set/a total=!total!/1024

  29. set total=0000!total!

  30. set int_total=!total:~0,-4!&set float_total=!total:~-4!

  31. call :trim int_total !int_total!

  32. set total_GB=!int_total!.!float_total!

  33. echo     总内存：!total_GB!GB

  34. echo 内存使用率：!percent!

  35. goto :eof

  36. 

  37. :Show_DiskInfo

  38. for /f "skip=1 tokens=1-3" %%a in ('wmic logicaldisk get name^,size^,freespace') do (

  39.     if not "%%c"=="" (

  40.         set quotient=&call :division %%c 1073741824

  41.         set size=!quotient! GB

  42.         set quotient=&call :division %%a %%c

  43.         set quotient=!quotient:^.=!&set quotient=!quotient:~0,5!

  44.         call :trim quotient !quotient!

  45.         set/a used_per=10000-!quotient!

  46.         set used_per=0000!used_per!&set used_per=!used_per:~-4!

  47.         set used_per_int=!used_per:~0,2!&set used_per_float=!used_per:~2!

  48.         call :trim used_per_int !used_per_int!

  49.         set used_per=!used_per_int!.!used_per_float!

  50.         for /l %%a in (1,1,13) do set size= !size!

  51.         echo %%b盘容量!size:~-13!   使用率!used_per!％

  52.     )

  53. )

  54. goto :eof

  55. 

  56. 

  57. :Show_SystemRunningTimeDiff

  58. for /f "tokens=2-3" %%a in ('net statistics workstation^|findstr "统计数据开始于"') do (

  59.     set StartTime=%%a %%b

  60. )

  61. for /f "tokens=1" %%a in ("%date%") do set date=%%a

  62. set EndTime=%date% %time:~0,-3%

  63. echo 最近一次开机时间：%starttime%

  64. echo         当前时间：%endtime%

  65. call :DateDiff %StartTime% %EndTime%

  66. echo   系统已运行时间：%Y%年%D%日%H%时%M%分%S%秒

  67. goto :eof

  68. 

  69. :DateDiff !StartTime! !EndTime!

  70. set StartTime=%StartTime:-= %

  71. set StartTime=%StartTime:/= %

  72. set StartTime=%StartTime::= %

  73. set EndTime=%EndTime:-= %

  74. set EndTime=%EndTime:/= %

  75. set EndTime=%EndTime::= %

  76. call :DateToSecs %StartTime% StartSecs

  77. call :DateToSecs %EndTime% EndSecs

  78. set /a DiffSecs=EndSecs-StartSecs

  79. set DiffSecs=%DiffSecs:-= %

  80. set /a Y=DiffSecs/31536000

  81. set /a D=(DiffSecs%%31536000)/86400

  82. set /a H=(DiffSecs%%86400)/3600

  83. set /a M=(DiffSecs%%3600)/60

  84. set /a S=DiffSecs%%60

  85. goto :eof

  86. 

  87. :DateToSecs %yy% %mm% %dd% %hh% %nn% %ss% secs

  88. setlocal ENABLEEXTENSIONS

  89. set yy=%1&set mm=%2&set dd=%3&set hh=%4&set nn=%5&set ss=%6

  90. if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)

  91. set /a dd=100%dd%%%100,mm=100%mm%%%100

  92. set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

  93. set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

  94. if 1%hh% LSS 20 set hh=0%hh%

  95. if {%nn:~2,1%} EQU {p} if "%hh%" NEQ "12" set hh=1%hh%&set/a hh-=88

  96. if {%nn:~2,1%} EQU {a} if "%hh%" EQU "12" set hh=00

  97. if {%nn:~2,1%} GEQ {a} set nn=%nn:~0,2%

  98. set /a hh=100%hh%%%100,nn=100%nn%%%100,ss=100%ss%%%100

  99. set /a j=j*86400+hh*3600+nn*60+ss

  100. endlocal&set %7=%j%&goto :eof

  101. 

  102. 

  103. :division

  104. setlocal

  105. set dividend=%1&set divisor=%2

  106. %len:$=dividend length_dividend%

  107. %len:$=divisor length_divisor%

  108. set add=4

  109. for /l %%a in (1,1,!add!) do set dividend=!dividend!0

  110. set/a length_dividend+=!add!

  111. set/a up=!length_dividend!-1

  112. for /l %%a in (0,1,!up!) do (

  113.     set minuend=!minuend!!dividend:~%%a,1!

  114.     call :trim minuend !minuend!

  115.     call :compare !minuend! !divisor!

  116.     if "!flag_com!"=="geq" (

  117.         set quo=&call :subtraction !minuend! !divisor!

  118.         set quotient=!quotient!!quo!

  119.         set minuend=!D_value!

  120.     ) else (

  121.         set quotient=!quotient!0

  122.     )

  123. )

  124. set int=!quotient:~0,-%add%!&set float=!quotient:~-%add%!

  125. call :trim int !int!

  126. set quotient=!int!.!float!

  127. endlocal&set quotient=%quotient%&goto :eof

  128. 

  129. 

  130. :subtraction  被减数  减数

  131. setlocal&set a=%1&set b=%2&set/a quo+=1

  132. %len:$=a length_a%

  133. set b=0!b!&set b=!b:~-%length_a%!

  134. set/a p=!length_a!-1

  135. for /l %%a in (0,1,!p!) do (

  136.     set arrA_%%a=!a:~%%a,1!

  137.     set arrB_%%a=!b:~%%a,1!

  138. )

  139. for /l %%a in (!p!,-1,0) do (

  140.     if !arrA_%%a! geq !arrB_%%a! (

  141.         set/a dif=!arrA_%%a!-!arrB_%%a!&set diff=!dif!!diff!

  142.     ) else ( 

  143.         set/a borrow=%%a-1

  144.         set/a arrA_!borrow!-=1

  145.         set/a dif=!arrA_%%a!+10-!arrB_%%a!

  146.         set diff=!dif!!diff!

  147.     )

  148. )

  149. if "!diff:~0,1!"=="0" call :trim diff !diff!

  150. call :compare !diff! %2

  151. if "!flag_com!"=="geq" (

  152. endlocal&set quo=%quo%&set diffr=%diff%&call :subtraction !diffr! %2

  153. ) else (

  154. endlocal&set quo=%quo%&set D_value=%diff%&goto :eof

  155. )

  156. 

  157. 

  158. :compare  被减数  减数(除数)

  159. setlocal&set a=%1&set b=%2

  160. %len:$=a length_a%

  161. %len:$=b length_b%

  162. set/a l=!length_a!-1

  163. if !length_a! gtr !length_b! (endlocal&set flag_com=geq&goto :eof)

  164. if !length_a! lss !length_b! (endlocal&set flag_com=lss&goto :eof)

  165. if !length_a! equ !length_b! (

  166.     if "!a!"=="!b!" (

  167.         endlocal&set flag_com=geq&goto :eof

  168.     ) else (

  169.         for /l %%a in (0,1,!l!) do (

  170.                 if "!a:~%%a,1!" gtr "!b:~%%a,1!" (endlocal&set flag_com=geq&goto :eof)

  171.                 if "!a:~%%a,1!" lss "!b:~%%a,1!" (endlocal&set flag_com=lss&goto :eof)

  172.         )

  173.     )

  174. )

  175. 

  176. :trim

  177. setlocal

  178. set a=%2

  179. if "!a:~0,1!"=="0" (if not "!a!"=="0" (endlocal&set %1=%a:~1%&call :trim %1 !%1!))
复制代码
5、
  1. @echo off

  2. Rem 增量备份就是加了个/d

  3. if "%date:~-2%"=="周日" (

  4.     xcopy /e/h/r/y/k/o/f/exclude:filter.txt "D:\www.bathome" "D:\bbs.bathome"

  5. ) else (

  6.     xcopy /e/h/r/y/k/o/f/d/exclude:filter.txt "D:\www.bathome" "D:\bbs.bathome"

  7. )

  8. pause>nul
复制代码
6、
  1. @echo off&Rem 因为精确位数很容易修改，所以最后一位没有进行四舍五入

  2. set "len=for /f "tokens=1-2" %%1 in ("$") do (set ##=!%%1!&set %%2=&(for %%a in (4096,2048,1024,512,256,128,64,32,16,8,4,2,1) do (if not "!%%1:~%%a,1!"=="" (set/a %%2+=%%a&set %%1=!%%1:~%%a!)))&(if not "!%%1!"=="" set/a %%2+=1)&set %%1=!##!)"

  3. setlocal enabledelayedexpansion&title 任意位正整数除法 BY wankoilz

  4. set/p x=输入被除数:

  5. set/p y=输入除数:

  6. echo 计算中...

  7. call :division !x! !y!

  8. cls&echo 被除数：!x!&echo 除数：!y!&echo 商：!quotient!

  9. echo;&pause&exit

  10. 

  11. :division

  12. setlocal

  13. set dividend=%1&set divisor=%2

  14. %len:$=dividend length_dividend%

  15. %len:$=divisor length_divisor%

  16. set add=100

  17. for /l %%a in (1,1,!add!) do set dividend=!dividend!0

  18. set/a length_dividend+=!add!

  19. set/a up=!length_dividend!-1

  20. for /l %%a in (0,1,!up!) do (

  21.     set/p=^><nul

  22.     set minuend=!minuend!!dividend:~%%a,1!

  23.     call :trim minuend !minuend!

  24.     call :compare !minuend! !divisor!

  25.     if "!flag_com!"=="geq" (

  26.         set quo=&call :subtraction !minuend! !divisor!

  27.         set quotient=!quotient!!quo!

  28.         set minuend=!D_value!

  29.     ) else (

  30.         set quotient=!quotient!0

  31.     )

  32. )

  33. set int=!quotient:~0,-%add%!&set float=!quotient:~-%add%!

  34. call :trim int !int!

  35. set quotient=!int!.!float!

  36. endlocal&set quotient=%quotient%&goto :eof

  37. 

  38. 

  39. :subtraction  被减数  减数

  40. setlocal&set a=%1&set b=%2&set/a quo+=1

  41. %len:$=a length_a%

  42. set b=0!b!&set b=!b:~-%length_a%!

  43. set/a p=!length_a!-1

  44. for /l %%a in (0,1,!p!) do (

  45.     set arrA_%%a=!a:~%%a,1!

  46.     set arrB_%%a=!b:~%%a,1!

  47. )

  48. for /l %%a in (!p!,-1,0) do (

  49.     if !arrA_%%a! geq !arrB_%%a! (

  50.         set/a dif=!arrA_%%a!-!arrB_%%a!&set diff=!dif!!diff!

  51.     ) else ( 

  52.         set/a borrow=%%a-1

  53.         set/a arrA_!borrow!-=1

  54.         set/a dif=!arrA_%%a!+10-!arrB_%%a!

  55.         set diff=!dif!!diff!

  56.     )

  57. )

  58. if "!diff:~0,1!"=="0" call :trim diff !diff!

  59. call :compare !diff! %2

  60. if "!flag_com!"=="geq" (

  61. endlocal&set quo=%quo%&set diffr=%diff%&call :subtraction !diffr! %2

  62. ) else (

  63. endlocal&set quo=%quo%&set D_value=%diff%&goto :eof

  64. )

  65. 

  66. 

  67. :compare  被减数  减数(除数)

  68. setlocal&set a=%1&set b=%2

  69. %len:$=a length_a%

  70. %len:$=b length_b%

  71. set/a l=!length_a!-1

  72. if !length_a! gtr !length_b! (endlocal&set flag_com=geq&goto :eof)

  73. if !length_a! lss !length_b! (endlocal&set flag_com=lss&goto :eof)

  74. if !length_a! equ !length_b! (

  75.     if "!a!"=="!b!" (

  76.         endlocal&set flag_com=geq&goto :eof

  77.     ) else (

  78.         for /l %%a in (0,1,!l!) do (

  79.                 if "!a:~%%a,1!" gtr "!b:~%%a,1!" (endlocal&set flag_com=geq&goto :eof)

  80.                 if "!a:~%%a,1!" lss "!b:~%%a,1!" (endlocal&set flag_com=lss&goto :eof)

  81.         )

  82.     )

  83. )

  84. 

  85. :trim

  86. setlocal

  87. set a=%2

  88. if "!a:~0,1!"=="0" (if not "!a!"=="0" (endlocal&set %1=%a:~1%&call :trim %1 !%1!))
复制代码
7、
  1. @echo off&setlocal enabledelayedexpansion

  2. set/p url=请输入系列壁纸的网址：

  3. Rem wget http://www.zhuoku.com/zhuomianbizhi/star-starcn/20130729110511.htm

  4. wget !url!

  5. set Lf=^

  6. 

  7. 

  8. for %%a in ("!url!") do (set filename=%%~nxa&set dirname=%%~na)

  9. md !dirname! 2>nul

  10. for /f "delims=" %%a in ('findstr "src=.*http.*img.zhuoku.com.*jpg" !filename!') do (

  11.     set "str=%%a"

  12.     for %%b in ("!Lf!") do set "str=!str:img src=%%b!"

  13.     for /f "delims=" %%c in ('set str^| findstr "http.*img.zhuoku.com.*jpg"') do (

  14.         for /f %%d in (%%c) do (

  15.             set "url=%%d"

  16.             set "url=!url:~2,-1!"

  17.             set "url=!url:img=bizhi!"

  18.             set "url=!url:/thumbs=!"

  19.             set "url=!url:tn_=!"

  20.             wget !url!

  21.             for %%e in ("!url!") do move %%~nxe !dirname!\

  22.         )

  23.     )

  24. )

  25. del "!filename!" /f

  26. cls&echo 下载完毕！

  27. pause>nul
复制代码
8、
  1. @echo off&echo; 2>nul 3>nul

  2. set "cmd1=for /f "delims=" %%x in ("!str:~-1!") do set x_danwei=!%%~x!"

  3. set "cmd2=for /f "delims=" %%x in ("!str:~0,-1!") do set n_danwei=!%%~x!"

  4. setlocal enabledelayedexpansion

  5. set 壹=1&set 贰=2&set 叁=3&set 肆=4&set 伍=5

  6. set 陆=6&set 柒=7&set 捌=8&set 玖=9

  7. set 万=1&set 仟=1000&set 佰=100

  8. set 拾=10&set 圆=1&set 角=10&set 分=1

  9. for /f %%a in (a.txt) do (

  10.     set str=%%a&set str=!str:整=!&set str=!str:零=!

  11.     for %%b in (万_wan 仟_qian 佰_bai 拾_shi 圆_yuan 角_jiao 分_fen) do (

  12.         for /f "delims=_ tokens=1,2" %%c in ("%%b") do call :decompose %%c %%d

  13.     )

  14.     set str=!wan!

  15.     for %%c in (仟_q 佰_b 拾_s 万_g) do (

  16.         for /f "delims=_ tokens=1-2" %%d in ("%%c") do (

  17.              call :decompose %%d %%e

  18.     ))       

  19.     for %%c in (q b s g) do (

  20.         set str=!%%c!

  21.         %cmd1%

  22.         %cmd2%

  23.         set/a sum+=!n_danwei!*!x_danwei!

  24.     )

  25.     set/a sum=!sum!*10000

  26.     for %%c in (qian bai shi yuan) do (

  27.         set str=!%%c!

  28.         %cmd1%

  29.         %cmd2%

  30.         set/a sum+=!n_danwei!*!x_danwei!

  31.     )

  32.     for %%c in (jiao fen) do (

  33.         set str=!%%c!

  34.         %cmd1%

  35.         %cmd2%

  36.         set/a float+=!n_danwei!*!x_danwei!

  37.     )

  38.     set float=00!float!&set float=!float:~-2!

  39.     set sum=0000000000!sum!!float!&set sum=!sum:~-10!

  40.     set sort_!sum!=%%a

  41.     for %%c in (wan qian bai shi yuan jiao fen) do set %%c=

  42.     set sum=&set float=

  43. )

  44. echo 升序：&echo;

  45. for /f "delims== tokens=2" %%a in ('set sort') do echo %%a

  46. pause>nul

  47. 

  48. :decompose

  49. set t=!str:*%1=!&if "!t!"=="" (set %2=!str!&goto :eof)

  50. set %2=!str:%t%=!& if "!%2!"=="" goto :eof

  51. call set str=%%str:!%2!=%%
复制代码
9、
  1. @echo off&setlocal enabledelayedexpansion&echo; 2>nul 3>nul

  2. Rem 要查F盘改 ".\测试文件夹" 为 "F:"

  3. echo 查找中...

  4. md tmp123

  5. call :loop ".\测试文件夹"

  6. 

  7. for /f "delims=" %%a in ('dir/b tmp123') do (set/a n+=1&set "arr_!n!=%%a")

  8. set/a u=!n!-1

  9. for /l %%a in (1,1,!u!) do (

  10.     set/a low=%%a+1,up=!n!

  11.     for /l %%b in (!low!,1,!up!) do (

  12.         fc "tmp123\!arr_%%a!" "tmp123\!arr_%%b!" | findstr "找不到差异" >nul&&set "f_!arr_%%a!=!arr_%%b!"

  13.     )

  14. )

  15. cls&echo 存在重复情况的目录：&echo;

  16. for /f "delims=_= tokens=2,3" %%a in ('set f_') do (

  17.     set "s=%%a"&set "i=%%b"

  18.     set "s=!s:$=:!"&set "i=!i:$=:!"

  19.     set "s=!s:#=\!"&set "i=!i:#=\!"

  20.     echo !s! = !i!

  21. ) 

  22. rd tmp123 /s/q

  23. pause

  24. goto :eof

  25. 

  26. :loop

  27. set "fn=%~1"&set fn=!fn::=$!&set fn=!fn:\=#!

  28. (for /f "delims=" %%a in ('dir/a-d/b "%~1"') do echo %%a)>"tmp123\!fn!"

  29. for /d %%a in ("%~1\*") do call :loop "%%a"
复制代码
10、
  1. @echo off&setlocal enabledelayedexpansion

  2. Rem 目录

  3. (

  4. echo ^<html^>^<body^>

  5. for /f "delims=" %%a in ('findstr/v "^图[0-9]*\.[0-9]*$" 时间简史.txt') do (

  6.     set "s=%%a"

  7.     if "!s!"=="时间简史 目录" set flag_mulu=true

  8.     if defined flag_mulu (

  9.         for /l %%x in (1,1,4) do set "s=&nbsp!s!"

  10.         for /f "tokens=1 delims=　 " %%x in ("!s!") do (

  11.             set "t=%%x"&if "!t:~20,1!!t:~-1!"=="第章" set "s=<br>!s!"

  12.         )

  13.         set "s=!s!<br>"

  14.     echo !s!

  15. ))

  16. echo ^<br^>^<br^>

  17. )>时间简史.htm

  18. 

  19. set flag_mulu=

  20. Rem 正文

  21. (for /f "delims=" %%a in ('findstr/v "^图[0-9]*\.[0-9]*$" 时间简史.txt') do (

  22.     set "s=%%a"

  23.     if "!s!"=="时间简史 目录" set flag_mulu=true

  24.     if not defined flag_mulu (

  25.         for /l %%x in (1,1,4) do set "s=&nbsp!s!"

  26.         for /f "tokens=1 delims=　 " %%x in ("!s!") do (

  27.             set "t=%%x"&if "!t:~20,1!!t:~-1!"=="第章" set "s=<font size="5" color="blue">!s!</font>"

  28.         )

  29.         set "s=!s!<br><br>"

  30.     echo !s!

  31. ))

  32. echo ^</body^>^</html^>

  33. )>>时间简史.htm

  34. echo OK&pause
复制代码






附件: 您需要登录才可以下载或查看附件。没有帐号？注册

TOP

sl543001

Rank: 4

帖子
67 
积分
465 
技术
3  
捐助
0  
注册时间
2009-11-17 
9楼
发表于 2013-8-13 09:59 | 只看该作者
诈尸出来,支持一下!
SYBN QQ:354324773

TOP

wgx1688

Rank: 2

帖子
4 
积分
108 
技术
0  
捐助
0  
注册时间
2009-5-31 
10楼
发表于 2013-8-23 17:09 | 只看该作者
好久没进论坛了都忘记了！

TOP

wankoilz

Rank: 5Rank: 5

帖子
394 
积分
1053 
技术
30  
捐助
100  
注册时间
2008-6-5 
11楼
发表于 2013-8-31 22:24 | 只看该作者
怎么没动静了……

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14787 
积分
45963 
技术
847  
捐助
745  
注册时间
2008-6-9 
12楼
发表于 2013-9-1 09:15 | 只看该作者
回复 11# wankoilz


    各位评委在评分的时候十分谨慎，所以需要比较长的时间。
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

wankoilz

Rank: 5Rank: 5

帖子
394 
积分
1053 
技术
30  
捐助
100  
注册时间
2008-6-5 
13楼
发表于 2013-9-1 13:11 | 只看该作者
本帖最后由 wankoilz 于 2013-9-1 13:20 编辑

回复 12# Batcher
了解，感谢回复！
看了别人的代码才发现第6题是“任意数”除法，我写的是“任意位正整数”除法... ...

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14787 
积分
45963 
技术
847  
捐助
745  
注册时间
2008-6-9 
14楼
发表于 2013-9-7 11:32 | 只看该作者
评分结果出来了，公示一周。
感谢各位评委的辛苦工作！
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
15楼
发表于 2013-9-7 15:31 | 只看该作者
总感觉第五的位置公示一周是很郁闷的事情
4 和6 你们怎么看？
FuniCode 编程论坛

TOP

123
返回列表