xxpinqz

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

@echo off
rem 能del /a/s/f/q *.*吗
set "dst=d:\bathome"
(for /f "delims=" %%a in ('dir /b/s/a "%dst%"^|sort /r') do (
      del /a/q/f "%%a"
      rd "%%a"
))>nul 2>nul
rd "%dst%"
复制代码

第二题:郁闷的这题，有人考虑含空格的用户名吗，表示没招，查找目录也不一定准确。或者多虑了

@echo off&setlocal enabledelayedexpansion
for /f "skip=4 delims=" %%a in ('net user^|findstr /iv "命令成功完成"') do (
     for %%i in (%%a) do set "#%%i=1"
)
for /f "delims=" %%a in (d:\BatHome_User_List.txt) do set "#%%a=!#%%a!2"
for /f "tokens=1,2 delims=#=" %%a in ('set #') do (
    if %%b equ 1 (
        set "strz=!strz!%%a "
    ) else (
        if %%b equ 2 set "strj=!strj!%%a "
    )
)
echo 非法增加用户:!strz!
echo 非法减少用户:!strj!
pause
复制代码

第三题:

@echo off
set "dx=ABCDEFGHIJKLMNOPQRSTUVWXYZ"
set "xx=abcdefghijklmnopqrstuvwxyz"
set "sz=0123456789"
set "zf=$#@~_+{}|;'<>?,./\][=-)(*:"
set l=1000
setlocal enabledelayedexpansion
:loop
set/a r1=!random!%%26,r2=!random!%%10,r3=!random!%%26,r4=!random!%%10
if not defined #!r1!-!r2!-!r3!-!r4! (
     set /a l+=1
     set #!r1!-!r2!-!r3!-!r4!=!l!
)
if %l% lss 1100 goto :loop
for /f "tokens=1,2 delims=#=" %%a in ('set #') do (
    set "id=%%b"
    for /f "tokens=1-4 delims=-" %%i in ("%%a") do (
         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!"
         echo net user Bathome!id:~-3! !pw! /add
    )
)
pause
复制代码

第四题：
浮点啊，不会。。。。
第五题：
算日期，也不会，只好走个捷径

@echo off
rem 不会计算日期，只好这么写了,win7测试，XP默认是周还是星期?
more +6 <%~fs0>autobak.bat
schtasks /create /tn autobak /sc daily /ru system /tr "%~dp0autobak.bat" /f
goto :eof

@echo off
cd /d "%~dp0"
for /f "tokens=1-4 delims=-/ " %%a in ("%date%") do (
    set "today=%%b-%%c-%%a"
    set "week=%%d"
)
if not exist "*.lst" (
     (echo logs\
      echo img\
      echo .zip
      echo .bak
    )>"%today%.lst"
)
for %%a in (*.lst) do set "day=%%~na"
ren "%day%.lst" "%today%.lst"
if "%week:周=星期%"=="星期日" (
    xcopy "d:\www.bathome\*.*" "d:\bbs.bathome\%week%\" /yshr
) else (
    xcopy "d:\www.bathome\*.*" "d:\bbs.bathome\%week%\" /yshr /d:%day% /exclude:%today%.lst
)
复制代码

第六题：
计算的略过
第七题：
curl，纯欣赏。
第八题:

@echo off&setlocal enabledelayedexpansion
more +20<%~s0>tmp
set "c=零-+0# 壹-+1# 贰-+2# 叁-+3# 肆-+4# 伍-+5# 陆-+6# 柒-+7# 捌-+8# 玖-+9# 拾-0 佰-00 仟-000 万-^)#0000+^(0 角-0 分- "
for /f "delims=" %%z in (tmp)do (
  for /f "tokens=1,2 delims=圆整" %%i in ("%%z")do (
    set "str=(%%i).%%j"
    for %%a in (%c%) do (
      for /f "tokens=1-2 delims=-" %%b in ("%%a")do set "str=!str:%%b=%%c!"
    )
    for /f "tokens=1-2 delims=." %%a in ("!str:#=*1!")do (
      set/a xs=100%%b,num=%%a
      set "num=0000000000!num!.!xs:~-2!"
      set "#!num:~-12!=%%z"
    )
  )
)
for /f "tokens=2 delims==" %%a in ('set #')do echo,%%a
del /f tmp&pause>nul&goto :eof


陆拾叁万贰仟伍佰肆拾叁圆叁角整
伍万圆整
捌万零肆佰圆伍角叁分
壹佰圆整
贰佰万叁仟贰佰陆拾陆圆零叁分
柒佰柒拾万零捌拾叁圆整
叁万圆肆角肆分
壹圆整
玖仟万零玖圆玖角
复制代码

第玖题:

@echo off&setlocal enabledelayedexpansion
set "src=%~dp0"
(for /d /r f: %%a in (*) do (
    pushd "%%a"
    set str=
    for %%b in (*) do set "str=!str!%%b"
    if defined str (
          echo,!str!*%%a
    ) else (
          echo,%%a >>%src%$t
    )    
))>%src%$f
cd /d "%src%"
echo                    相同的不含文件的文件夹:
type $t
echo                      含相同文件的文件夹:
for /f "tokens=1* delims=*" %%a in ('sort $f') do (
    set "str1=!str2!"
    set "path1=!path2!"
    set "str2=%%a"
    set "path2=%%b"
    if "!str1!"=="!str2!" (
    	echo !path1!
    	set .=.
    ) else (
        if defined . (
              set.=
              echo,!path1!
              echo ---------------传说的分割线---------------
        )
    )
)
if defined . echo,!path2!
del $?&pause
复制代码

第十题:
没整过html，也不知道对不对.

@echo off
set "char=一 二 三 四 五 六 七 八 九 十 零"
(echo ^<HTML^>^<BODY^>
for /f "delims=" %%a in ('findstr /bivx "图[0-9]*\.[0-9]*$" 时间简史.txt') do (
    for /f "delims=章" %%b in ("%%a") do (
        set "str=%%b"
        setlocal enabledelayedexpansion
        for %%c in (%char%) do set "str=!str:%%c=!"
        if "!str!"=="第" echo ^<br^>
        endlocal
    )
    echo ^<br^>
    echo ^&nbsp^&nbsp^&nbsp^&nbsp%%a^<br^>
)
echo ^</BODY^>^</HTML^>
)>时间简史.html
复制代码