@echo off&mode con cols=20 lines=29&color 2c
setlocal enabledelayedexpansion
title 弹球-zw19750516
set a=●&set "b= "
:begin
cls&set n=0
set /a lm=%random%%%19,lr=%random%%%2
if %lm% equ 0 (
set z=+
) else (
if %lm% equ 17 (
set z=-
) else (
if %lr% equ 0 (
set z=-
) else (
set z=+
)
)
)
:contin
set "kong="
set /a n+=1,lm%z%=1
for /l %%i in (1,1,%lm%) do set kong=!kong!%b%
set str%n%=%kong%%a%
if %n% equ 30 goto begin
if %lm% equ 0 set z=+
if %lm% equ 17 set z=-
set /p=!str%n%!nul
for /l %%i in (1,1,20) do set /p= <NUL
echo.
goto contin
复制代码

@echo off&setlocal enabledelayedexpansion
mode con: cols=81 lines=30&color 1f
:: code by 随风@bbs.bathome.net 2008/01/03
:loop
for /l %%a in (1 1 40) do (
  if defined sang (
  cls&set /a di-=1
  for /l %%i in (1 1 !di!) do echo.
) else (echo.&set /a di+=1)
  if defined zuo (set ko=!ko:~1!) else set ko=　!ko!
  set /p=!ko!●<nul
  for /l %%i in (1 1 80) do ver>nul
  set /p=  <nul
  if not "!ko:~38,1!"=="" set zuo=ok
  if "!ko!"=="" set zuo=&set "ko=　"
  if !di! lss 0 set sang=&goto loop
  if !di! geq 29 set sang=ok&goto loop
)
复制代码

@echo off
::输出彩色字符
mode con lines=24 cols=69
set "a= One World !"
set "b= one Dream !"
set "c= 让我们大家一起说"
set "d=︱ bbs.cn-dos.net is our common home!"
set "e= {Author∶jvive︱08-03-31︱Thanks to∶9527}"
set "x= ︱"
set "p=★★★★★★★★★★★★★★★"
set "k="
pushd %tmp%
del/q "%a%?" "%b%?" "%c%?" "%d%?" "%e%?" "%x%?" "%p%?" 2>nul
call:enter 3
call:JV a "%a%" 0
call:JV b "%b%" 0
call:JV c "%c%" 0
call:enter 5
call:JV 0100 0 0
call:JV 040a "%d%" 0
call:JV 040a "%x%" 0
call:JV 0100 000 0
call:JV 040b "%d%" 0
call:JV 040b "%x%" 0
call:JV 0100 000 0
call:JV 0400 "%d%" 0
call:JV 0400 "%x%" 0
call:JV 0100 0 1
call:enter 3
call:JV e "%e%" 0
call:JV 0100 0 1
echo.
call:color
pause>nul&exit/b
rem ---------subprocess--------
:color|一二层第一个色调混合为主色调,最后一个为闪烁停留色调.
for %%a in (0 e)do (
for %%b in (a 1 2 3 4 5 6 7 8 0 c b d f e)do (
call set "k=%%k%%"
call:bak %%a%%b "%p%" 0
))
goto :eof
:JV
:bak
if %3 neq 1 (set/p=%k%"%~2") else echo.>"%~2"
if %0 neq :bak (set k=) else set "k=%k%"
findstr /a:%1 .* "%~2?"
del "%~2?"
goto :eof
:enter
for /l %%a in (1 1 %1)do echo.
复制代码

 
@echo off
call:one 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
goto:eof
:one
echo %5
if %5a==a goto:eof
shift 
goto one
复制代码

@echo off
rem 让变量名字动态的变化
set tt=123
for /l %%i in (0 1 10) do (
set tt%%i=%tt%
set tt%%i
set tt%%i=
)
echo ------

set var=123
setlocal enabledelayedexpansion
for /l %%i in (0 1 10) do (
   set /a n+=1
   set var!n!=%var%
   set var!n!
)
echo ------

set tt=123
call:one 1 2 3 4 5 6 7 8 9 10
goto:eof
:one
set tt%1=%tt%
set tt%1
shift
if %1a==a goto:eof
goto one

echo ------
rem 追加值
setlocal enabledelayedexpansion
for /l %%i in (0 1 10) do (
set tt=!tt! %%i
set tt
)
echo ------------------
call:one 1 2 3 4 5 6 7 8 9 10 
goto:eof
:one
set tt=%tt% %1
set tt
shift
if %1a==a goto:eof
goto one
复制代码

@echo off
rem 看到两种去掉左面0的方法
set tt=001234
for /f "delims=0" %%i in ("%tt%") do (
echo %%i
)
echo ----
set /a "tt=1001234 %%1000000"
set tt
rem  （1000000+1234）/1000000=1234
复制代码

：：这一版本的编辑---if exist    Q523066680

@echo off&mode con cols=60 lines=30 &color 0a
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set n=4

:a
set /a n+=4
set /a upkh=15-%n%/4,kleft=30-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
for /l %%a in (1,1,2) do ping -n>nul
cls
if %n%==40 set /a n=4
goto a
复制代码

 
@echo off
set /p=a123a <nul
echo b123b
复制代码

 
@echo off
echo a123a111111 & dir^  
d:
复制代码

 
echo
echo.123
复制代码

@echo off
rem 3x4矩阵的转置,看了几个帖子，于是我也有了一种冲动，就编写了这个矩阵转置的程序
setlocal enabledelayedexpansion
for /f "tokens=1-4" %%1 in ('more +14 %~s0') do (
set tt=!tt! %%1 %%2 %%3 %%4
)
call:one %tt%
goto:eof
:one
echo %1 %5 %9
shift 
if %9.==. goto :eof
goto one
goto:eof
11 12 13 14
21 22 23 24
31 32 33 34
复制代码

 

@echo off
rem 2009-3-5---findstr让输入的字成为彩色字体的方案
set tt="I LOVE HOME OF BATCH"
call:one %tt%
goto:eof
:one
set /p=    <nul>%1
rem 生存类文本，无扩展名,nul让字符串提前的性质
findstr /a:24 .* "%~n1?"
rem 这里加载类文本 这里的%1指向call:one后的%tt%,代表文件名
rem 利用findstr对于非内容的特定字符会显示彩色的特性，最后显示彩色文本
del %1
rem 删除生存的类文本
set tt=
rem 整体构思是利用了批函数 ，具有参数的要点来设置程序的



echo.
echo.
echo ----下面是对比程序--
set tt="I LOVE HOME OF BATCH"
call:two %tt%
goto:eof
:two
findstr /a:24 .* "%~n1?"
set tt=


rem 上面的代码可以简化如下，这样更能看出本质来
@echo off
call:one 我来了 你好 啊 
goto:eof
:one
set /p=>%1
findstr /a:24 .* "%1*"
rem %1始终指向 call:one 后面的字符常量，"%~1*"这里是生存的文件，引号很重要。
rem 没有用nul 就要回车才可以看到文字 冒号可以用这个字符，退格符号删去
复制代码

 
@echo off
echo ------采用2，3，4为16进制数显示彩色字体  实验程序---
findstr /n /a:12 .*   %~s0
findstr /n /a:c24 .*  %~s0
findstr /n /a:24 .*   %~s0
findstr /n /a:120c .* %~s0
echo -----退格符号，删去显示-------
findstr /n /a:12 .*  %~s0
findstr /n /a:c24 .*  %~s0
findstr /n /a:24 .*   %~s0
findstr /n /a:120c .* %~s0
rem 在阴影上3位数，画格子，4位数画竖线，也就是说3位以上的数字就产生花纹。
goto:eof
仗剑江湖  仗剑江湖   仗剑江湖a
仗剑江湖  仗剑江湖   仗剑江湖b
仗剑江湖  仗剑江湖   仗剑江湖c
复制代码

 
@echo off
echo 让findstr只显示标签，实现输入彩色字
echo.>中国足球是笑话
findstr /a:0c z* 中国足球是笑话*
del /q 中国足球是笑话
rem cmd将显示的是---红色的--- “中国足球是笑话：”
复制代码

 
@echo off
::我一直在想如果用dos调用html代码，今天我算是找到方法了2007-3-6 by myzwd。
call:one my.htm
goto:eof
:one
more +9 %~s0>my.htm
start %1 
del my.htm
goto:eof
<html >
<head> 
<title>myzwd123456</title>
</head> 
<body>
<u>中国</u> 
<font color=red><marquee>myzwd </marquee></font> 
<table width="200" border="1">
  <tr>
    <td>myzwd</td>
    <td bgcolor="#FF00FF">看</td>
    <td bgcolor="#99CC00">看</td>
    <td bgcolor="#9933FF">插</td>
  </tr>
  <tr>
    <td>myzwd</td>
    <td bgcolor="#FF00FF">入</td>
    <td bgcolor="#99CC00">表</td>
    <td bgcolor="#9933FF">格</td>
  </tr>
  <tr>
    <td>myzwd</td>
    <td bgcolor="#FF00FF">行</td>
    <td bgcolor="#99CC00">不</td>
    <td bgcolor="#9933FF">行</td>
  </tr>
</body> 
</html>
复制代码

 
@echo off
:<!--
rem 我一直在想如果用dos调用html代码，今天我算是找到方法了2007-3-6 by myzwd。
call:one my.htm
goto:eof
:one
more +1 %~s0>my.htm
start %1 
del my.htm
goto:eof
-->
<html >
<font color=red><marquee>myzwd </marquee></font> 
</html>
复制代码

@echo off
echo 另类循环 骗骗你让你最后成为死循环 你运行3次试一试
:one
echo I LOVE YOU HOME OF BATCH
set /a n+=1
if %n%==20 goto end
if errorlevel 10 goto one
exit /b 10
:end
echo 循环次数%n%次
复制代码

 
@echo off
rem call 运行比for慢，控制时间 动画
color 0c
for /l %%1 in (1 1 5) do (
for /l %%2 in (1 1 100) do (call echo %time%>nul )
call set tt= ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■  
call echo %%tt%%
)

for /l %%1 in (1 1 5) do (
for /l %%2 in (1 1 100) do (call echo %time%>nul )
call set tt= ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■  
call set tt=  %%tt:~2%%
echo. 
call echo %%tt%%
)

for /l %%1 in (1 1 5) do (
for /l %%2 in (1 1 100) do (call echo %time%>nul )
call set tt= ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■  
call set tt=      %%tt:~7%%
echo. 
call echo %%tt%%
)
复制代码

 
@echo off
color 0c
echo  ---call和ping控制时间的动画效果对比 
echo ----ping
for /l %%i in (1 1 5) do (
  set tt=■■■■■■■■■■
  ping -n 2 localhost >nul
  echo %tt%
)

echo ---call
for /l %%i in (1 1 5) do (
  set tt=■■■■■■■■■■
  for /l %%1 in (1 1 100) do (call echo %time%>nul)
  echo %tt%
)
echo ---显见call控制时间具有更大的自由度，特别是ping闪烁的光标要处理
复制代码

 
@echo off
echo  ---认识退格键  ""
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo     中国人民解放军WS
echo ---退格符就是一辆车走的路程，原有的字符就是一条路，
echo     退格符后面的字符就是车，车过了，路还是路。
echo     有的高手把退格符叫---挖土机，形象吧。
echo ********************************
echo ---动画演示退格符-■---
echo *********************************
for /l %%j in (1 1 100) do (call echo %time%>nul)
color 0c
set bs=
for /l %%i in (1 1 10) do (
    for /l %%j in (1 1 200) do (call echo %time%>nul)
    call set bb=%%bs:~%%i%%
    call set tt= 中国人民解放军万岁%%bb%%■人民英雄永锤不朽
    call echo %%tt%%
)
echo 多象flash的遮罩，不过遮罩是遮住的显示，没遮住的不显示，
echo  这里刚好与flash的遮罩功能相反
复制代码

 
@echo off
echo ----退格符应用动画---逐渐显示小方块
color 0c
set bs=
for /l %%i in (1 1 120) do (
  set bs=■%bs%■
  for /l %%1 in (1 1 100) do (call echo %time%>nul)
  call set /p=%%bs%%<nul
)
echo --------------
set bs=
for /l %%i in (1 1 200) do (
  set bs=%bs%■
  for /l %%1 in (1 1 100) do (call echo %time%>nul)
  call set /p=%%bs%%<nul
)
复制代码

 
@echo off
color 0c
set bs=
for /l %%i in (1 1 10) do (
  set bs=%bs%■
  for /l %%1 in (1 1 100) do (call echo %time%>nul)
  call echo %%bs%%
)
复制代码

@echo off
echo 在■ 的左面插入10个空格
cls
setlocal enabledelayedexpansion
color 0c
for /l %%i in (1 1 10) do (
set tt=0!tt!
)
set tt=%tt%■ 
set tt=%tt:0= % 
echo !tt! 
复制代码

for /l %%1 in (1 1 10) do (call set "space= %%space%%")
复制代码

@echo off
echo ---匀速向左运动，显示2个整行
set tt=
color 1d
for /l %%i in (1 1 78) do (
  for /l %%1 in (1 1 100) do (call echo %time%>nul)
  set tt=■■
  call set/p=%%tt%%<nul
)
echo.


echo ---匀速向左运动，显示2个整行 英文
set tt=
color 1d
set tt=
for /l %%i in (1 1 158) do (
  for /l %%1 in (1 1 50) do (call echo %time%>nul)
  set tt=AA
  call set/p=%%tt%%<nul
)
echo.  


echo ---匀速向左运动，显示2个整行 中英文混合
set tt=
color 1d
set tt=
for /l %%i in (1 1 156) do (
  for /l %%1 in (1 1 50) do (call echo %time%>nul)
  set tt=A■
  call set/p=%%tt%%<nul
)
echo.  
复制代码

@echo off
echo ---迷失的A
set tt=
color 1d
set tt=
for /l %%i in (1 1 115) do (
for /l %%1 in (1 1 50) do (call echo %time%>nul)
set tt=■A
call set/p=%%tt%%<NUL
)
echo.
echo ----
set tt=
color 1d
set tt=
for /l %%i in (1 1 120) do (
for /l %%1 in (1 1 50) do (call echo %time%>nul)
set tt=■A
call set/p=%%tt%%<NUL
)
复制代码

 
@echo off
echo ---居中显示
color 1d
set tt=
set ss=
for /l %%i in (1 1 16) do (
  call set ss=%%ss%%0
)
call set ss=%%ss:0= %%
call set /p=%%ss%%<nul
for /l %%i in (1 1 21) do (
  for /l %%1 in (1 1 50) do (call echo %time%>nul)
  call set tt=■■
  call set /p=%%tt%%<nul
)
echo.
复制代码

 
@echo off
echo ---退格符完成简易向右运动
cls
echo.&echo.&echo.
color 1d
set tt=
set ss=
set bs=
for /l %%i in (1 1 78) do (
  call set ss=%%ss%%0
)
set ss=%ss:0= %
set /p=%ss%<nul
for /l %%i in (1 1 15) do (
  for /l %%1 in (1 1 100) do (call echo %time%>nul)
  call set  bs=%%bs%%
  call set tt=%%bs%%■
  call set /p=%%tt%%<nul
)
echo.
echo   原理是利用78个空格基本铺满第一行，给小方块留下2byte的位置，
echo   利用退格符相当于是它后面字符走的路程的原里，让退格符逐渐增加，即字符的路程加大
echo  这样就实现了反方向运动，为了好记忆我自己把退格符的这种性质叫退格符的--------
echo  路程原理  ，如果退格符后面没字符，这个路程也就不起作用了
复制代码

 
@echo off
rem ----向右运动
setlocal enabledelayedexpansion&color 1d
for /l %%i in (40 -1 1) do (
    for /l %%1 in (%%i ,-1,1) do (
      set /p= <nul
    )
    
    set /p=■<nul
    for /l %%1 in (1 1 50) do (echo.>nul)
    cls
)
复制代码

 

@echo off&setlocal enabledelayedexpansion&cls&color 0a
echo  居中显示70个小方块
for /l %%1 in (1 1 80) do (set "space= !space!")
for /l %%2 in (1 1 10 ) do echo.
set /p=!space:~,-54!<nul
rem 实现向右平移26byte，注释掉就将从最左面开始
for /l %%i in (1 1 70) do (
    set /a "mod=%%i%%14"
    set /a n=n+1
    set /p=■<nul
    if !mod!==0 (set /p=!space:~,-28!<nul)
    for /l %%1 in (1 1 50) do (call echo.>nul)
)
exit /b
复制代码

@echo off&setlocal enabledelayedexpansion&cls&color 1a
rem 反复向上爬升
for /l %%1 in (1 1 80) do (set "space= !space!")
for /l %%i in (1 1 100) do (
cls

set /a "mod=%%i%%23" 
for /l %%j in (!mod! 1 23) do echo.
for /l %%k in (1 1 !mod!) do echo !space:~70!■ 
set /a n+=1
for /l %%1 in (1 1 50) do (call echo.>nul)
)
:end
echo %n%
exit /b
复制代码

rem 居中显示到三角
@echo off&setlocal enabledelayedexpansion&cls&color 1a
for /l %%1 in (1 1 80) do (set "space= !space!")
for /l %%i in (1 1 9) do echo.
for /l %%i in (1 1 5) do (
  set /p=!space:~-30!<nul
  for /l %%i in (1 1 !mod!) do set /p=!space:~-2!<nul
  set /a "t=12-2*%%i" 
  set /a  "mod=%%i%%5"
  for /l %%i in (1 1 !t!) do (
    set /p=■<nul
  ) 
  for /l %%1 in (1 1 50) do (call echo.>nul)
  echo.
)
pause >nul
复制代码

rem 刷屏语句 for /l %%j in (1 1 300) do (echo.)

for /l %%i in (1 1 20) do (
  for /l %%j in (1 1 300) do (echo.)
  for /l %%j in (1 1 %%i) do (echo ■ )
  echo.&echo.&echo.
  for /l %%1 in (1 1 100) do call echo.>nul
  
)
复制代码

@echo off&setlocal enabledelayedexpansion&cls&color 0a
rem 利用刷屏，实现向右运动，不过要用pause才好
for /l %%1 in (1 1 80) do set "space= !space!"
for /l %%i in (1 1 20) do (
   for /l %%j in (1 1 25) do (echo.)
   set tt=!space:~-%%i!■ 
   echo !tt!
   for /l %%k in (1 1 13) do echo.
   for /l %%1 in (1 1 50) do call echo.>nul
)

pause>nul
复制代码

 
@echo off&setlocal enabledelayedexpansion&cls&color 0a
rem 利用刷屏，实现向左运动，不过要用pause才好
for /l %%1 in (1 1 80) do set "space= !space!"
for /l %%i in (1 1 70) do (
   for /l %%j in (1 1 25) do (echo.)
   set /a n=78-%%i
   call set sp=%%space:~-!n!%%
   echo !sp!●
   for /l %%k in (1 1 13) do echo.
   for /l %%1 in (1 1 50) do call echo.>nul
)
pause>nul
复制代码

 
@echo off&setlocal enabledelayedexpansion&cls&color 0a
rem 利用刷屏，实现向下运动，不过要用pause才好
for /l %%1 in (1 1 80) do set "space= !space!"
for /l %%i in (1 1 25) do (
   for /l %%j in (1 1 25) do (echo.)
   set /a h=25-%%i
   
   echo !space:~-39!●
   for /l %%k in (1 1 !h!) do echo.
   for /l %%1 in (1 1 50) do call echo.>nul
)
pause>nul
复制代码

@echo off &setlocal enabledelayedexpansion
rem  转载 by 523066680 这段代码很简洁，值得学习。


for /l %%a in (1,1,79) do (set "space= !space!")
for /l %%a in (1,1,23) do (set h%%a=%space%)

set /p input="输入高[2-23]: "
set /a c=0,h=1,i2=input*2,na=40-input
set stra=!space:~-%na%!

for %%a in ("c + %i2%" "h + %input%" "c - 1" "h - 1") do (call :func %%~a)

pause>nul 
exit /b

:func
set /a %1 %2 = 1,cf=c-1
set h%h%=!h%h%:~0,%cf%!.!h%h%:~%c%!
ping -n 1 127.1>nul &cls
for /l %%a in (1,1,%input%) do (echo,%stra%!h%%a:~0,-%na%!)
if !%1! neq %3 goto :func
复制代码

@echo off &setlocal enabledelayedexpansion&cls&color 1a
rem 抛物线x=y*y与y=x*x
for /l %%1 in (1 1 80) do set "space= !space!"
mode con cols=80 lines=50
for /l %%i in (0 1 5) do (
  set y=%%i
  set /a "x=y*y"
  call echo %%space:~-!x!%%●
)
echo --------
for /l %%i in (0 1 4) do (
  set x=%%i
  set /a "x2=12*x"
rem 这句话是把x轴的单位换成y轴的单位的12倍，是为了美观。即两轴的单位不等。
rem  在数学上这是容许的
  set /a "y.increase=2*x+1"
  for /l %%j in (1 1 !y.increase!) do echo.
  call echo %%space:~-!x2!%%●
)
goto:eof
复制代码

@echo off &setlocal enabledelayedexpansion&cls&color 1a
rem 逐渐显示与删除文字
set char=我写的这个有点烂，管它的这只是我的一次作业。
for /l %%i in (1 1 21) do (
     set /p=!char:~,%%i!<nul
     ping -n 2 localhost >nul
     cls
)
for /l %%i in (1 1 21) do (
     set /p=!char:~,-%%i!<nul
     ping -n 2 localhost >nul
     cls
)
for /l %%i in (1 1 21) do (
     set /a "s=%%i-1"
     call echo %%char:~!s!,1%%<nul
     ping -n 2 localhost >nul
     cls
)
复制代码

@echo off &setlocal enabledelayedexpansion&cls&color 1a
rem 设置环境变量char
for /f %%i in ('more +6 %~f0') do set char=%%i
echo ~~~~~%char%~~~~~
pause
exit /b
1这样也可以设置环境变量 这样也可以设置环境变量
2这样也可以设置环境变量 这样也可以设置环境变量
复制代码

@echo off &setlocal enabledelayedexpansion &cls &color 1a
for /l %%1 in (1 1 80)  do set "space= !space!"
more /s +14 %~f0>rr.txt
for /l %%i in (1 1 50) do (
    for /f "eol=e tokens=* " %%i in (rr.txt) do echo %%i
    for /l %%1 in (1 1 100) do call echo.>nul
    cls
    for /f "eol=m tokens=* " %%i in (rr.txt) do echo %%i
    for /l %%1 in (1 1 100) do call echo.>nul
    cls
)
del rr.txt
pause
exit /b
 e                    _,._
 e                __.'   _)
 e               <_,)'.-"a\
 e                 /' (    \
 e     _.-----..,-'   (`"--^
 e    //              |
 e   (|   `;      ,   |
 e     \   ;.----/  ,/
 e     ) // /   | |\ \
 e      \ \\`\   | |/ /
 e       \ \\ \  | |\/
 e        `" `"  `"` 
 
 m                    _,._
 m                __.'   _)
 m               <_,)'.-"a\
 m                 /' (    \
 m     _.-----..,-'   (`"--^
 m    //              |
 m   (|   `;      ,   |
 m     \   ;.----/  ,/
 m     ) // /    \ \ |
 m     | |\ \    / / |   
 m     | | \/    \/| |
 m     `"`         `"` 
 ──────────────────────────────
复制代码

@echo off&color 1c
set sp=
for /l %%1 in (1 1 50) do ( set /p "sp=0"<NUL)
for /l %%i in (1 1 40) do (
for /l %%1 in (1 1 100) do (echo.>nul)
for /l %%j in (1 1 %%i) do (set /p=<NUL)
set /p=■<NUL
)
ECHO.
复制代码

  
@echo off
echo 实验1

for /l %%1 in (1 1 10) do ( set /p "sp=0"<nul)
set /p=A<nul
set /p=B<nul
set /p=C<nul
set /p=D<nul
set /p=E<nul
echo.
rem  显示0000000000E
复制代码

  
@echo off
echo 实验2

set sp=
for /l %%1 in (1 1 10) do ( set /p "sp=0"<nul)
set /p=A<nul
set /p=B<nul
set /p=C<nul
set /p=D<nul
set /p=E<nul
echo.
rem  显示00000EDCBA
复制代码

  
@echo off
echo 实验3
set sp=
for /l %%1 in (1 1 12) do ( set /p "sp=0"<nul)
set /p=A<nul
set /p=B<nul
set /p=C<nul
set /p=D<nul
set /p=E<nul
echo.
REM  显示 00E000D00C0BA
复制代码

@echo off&color 1c
echo 原来这样就可以实现等距离拖尾倒退
echo  实验4
set sp=
for /l %%1 in (1 1 50) do ( set /p "sp=0"<nul)
set /p=■<nul
for /l %%i in (1 1 40) do (
   for /l %%1 in (1 1 100) do (echo.>nul)
   set /p=■<nul
)
ECHO.
复制代码

  rem  我的动画基本代码 by myzwd
rem   ----拖尾向右移动
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 80) do (
    set /p=■<nul
    for /l %%1 in (1 1 100) do (echo.>nul)
)
set sp=
rem  -----无拖尾向右移动，堆放在右面
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 80) do (
       set /p=  <nul
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p=■<nul 
)
set sp=
rem   -----无拖尾向右移动，右面无堆放
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 80) do (
       set /p "tt=■ "<nul
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "ss=   "<nul 
)
set sp=
rem  -----拖尾逆向运动
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 78) do (set /p "=0"<nul)
for /l %%i in (1 1 80) do (
       set /p "=■"<nul
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "=■"<nul 
)
set sp=
rem   -----拖尾逆向运动
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 70) do (set /p "=0"<nul)
set /p "=■"<nul
for /l %%i in (1 1 80) do (
       
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "=■"<nul 
)
set sp=
-rem   ----跳过右面4个方块的位置拖尾逆向运动
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 70) do (set /p "=0"<nul)
set /p "=■"<nul
rem 这里的作用是用来来跳过右面的0
for /l %%i in (1 50) do (
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "=■"<nul 
)
set sp=
rem   -------两头有0的拖尾逆向运动
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 70) do (set /p "=0"<nul)
set /p "=■"<nul
for /l %%i in (1 1 25) do (
       
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "=■"<nul 
)
set sp=
-rem    ------看不见小方块的逆向清0
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 70) do (set /p "=0"<nul)
for /l %%i in (1 1 25) do (
       set /p "=  "<nul
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "=■"<nul 
)
set sp=
rem  -------看见小方块逆向清0
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 70) do (set /p "=0"<nul)
for /l %%i in (1 1 25) do (
       set /p "=■"<nul
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "= "<nul 
)
set sp=
rem     ---------逆向清去中间的0，留下两头的0
@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (1 1 70) do (set /p "=0"<nul)
set /p "=■"<nul
for /l %%i in (1 1 50) do (
       set /p "=■"<nul
       for /l %%1 in (1 1 100) do (echo.>nul)
       set /p "= "<nul 
)
set sp=
复制代码

@echo off&setlocal enabledelayedexpansion&color 0A &cls 
rem  by myzwd 2009 -3 -10
:1
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:2
echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:3
echo.&echo.&echo.&echo.&echo.&echo.
echo          333
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:4
echo.&echo.&echo.&echo.&echo.
echo          444
echo          333
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:5
echo.&echo.&echo.&echo.
echo          555
echo          444
echo          333
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:6
echo.&echo.&echo.
echo          666
echo          555
echo          444
echo          333
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:7
echo.&echo.
echo          777
echo          666
echo          555
echo          444
echo          333
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:8
echo.
echo          888
echo          777
echo          666
echo          555
echo          444
echo          333
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
:9
echo          999
echo          888
echo          777
echo          666
echo          555
echo          444
echo          333
echo          222
echo          aaa
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
echo 谢谢观看  本人借鉴了flash的帧的概念，做了这个动画演示
echo 以上是一个保持10行不变的动画演示。
echo 从此以后,动画不在是高手的专利
goto:eof

dos动画难，但是利用flash的帧的概念，确很容易创建动画。上面的没个子程序就是一帧
上面的程序只是演示动画原理。我坚信从此以后，动画不在是高手的专利了。利用帧的概念做动画要比

用其它方法简单的多，易学易用。
有兴趣的朋友，可以试试。你5分钟就会做动画。
   详细内容整理中。
复制代码

@echo off&setlocal enabledelayedexpansion&color 0A &cls 
rem by myzwd 2009 -3 -10
:main
call:1
goto:eof 
:1
for /l %%i in (1 1 8) do (
set /a n+=1
set /a m=8-!n!
for /l %%i in (!m! -1 1) do (echo.)
for /l %%i in (1 1 !n!) do (echo aaa)
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
)
:end
for /l %%i in (1 1 8) do (echo aaa)
echo ----------------------------
echo 此为上述代码整理
goto:eof
复制代码

 

我的动画学习心的

for /l %%i in (1 1 20) do (  ---------定义帧循环次数
    for /l %%j in (1 1 %%i) do (   --------定义一帧的开始语句
     set "sp1= !sp1!"                    -----中间这些语句用来描述帧的特征
     set /p=!sp1!■<nul
     for /l %%1 in (1 1 100) do (call echo.>nul)  --动画速度控制语句
     cls                                    ----换帧语句
    )                                           ----定义一帧的结束
)   ---------定义帧循环次数

                  
复制代码

 @echo off&setlocal enabledelayedexpansion&cls&color 0a
rem 小方块反复从右开始运动--求余运算"%%"
rem 数据指针嵌套方法"%%...!..!%%"
for /l %%1 in (1 1 79) do (set space= !space!)
for /l %%j in (1 1 100) do (
     set /a "mod=%%j%%20"
     if !mod!==0  (set /a "t=%%j/20" &set n=0)
     for /l %%1 in (1 1 !t!) do (echo.)
     set /a n+=1
     call set sp=%%space:~0,-!n!%%
     set /p=!sp!■<nul
     
     for /l %%1 in (1 1 50) do (call echo.>nul)
     cls
) 
复制代码

@echo off
rem findstr让输入的字成为彩色字体的方案
set tt="I LOVE HOME OF BATCH"
set /p= <nul>%tt%
findstr /a:24 z* %tt%*
echo.
del %tt%
复制代码

@echo off
rem findstr让输入的字成为彩色字体的方案
set tt="I LOVE HOME OF BATCH"
echo  >%tt%
findstr /a:24 z* %tt%*
del %tt%
复制代码

echo.>rr
findstr /a:0c 1* rr*
del /q rr
复制代码

@echo off &setlocal enabledelayedexpansion &cls &color 1a
mode con cols=80 lines=25
:one
for /l %%1 in (1 1 80) do set "space= !space!"
for /l %%i in (1 1 12) do (
        for /l %%1 in (1 1 25) do echo.
        set "u=%%i"
        echo !space:~-%%i!→
        for /l %%j in (1 1 !u!) do echo.
        for /l %%1 in (1 1 30) do call echo.>nul
)

rem  这段程序是刷屏，把坐标原点定在左下角 for /l %%1 in (1 1 25) do echo.
:two
for /l %%i in (13 1 25) do (
      cls
      for /l %%j in (1 1 %%i) do echo.
      echo !space:~-%%i!→
      for /l %%1 in (1 1 30) do call echo.>nul
)
rem 这段程序是单屏幕动画，把坐标原点定在了左上角。cls的作用。
pause>nul
复制代码

@echo off &setlocal enabledelayedexpansion&cls&color 1a
set "space=  "
call:y 2
for /l %%i in (1 1 3) do (
set/p=A<nul
for /l %%1 in (1 1 300) do call echo.>nul
)
for /l %%i in (1 1 2) do ( 
  cls
  set /a t=2-%%i
  call:y !t!
  for /l %%i in (1 1 %%i) do echo !space!A
  for /l %%i in (1 1 3) do set /p=A<nul
  for /l %%1 in (1 1 300) do call echo.>nul
)
echo.
pause
exit /b
:Y
for /l %%i in (1 1 %1) do (echo.)
goto:eof
复制代码

echo 阶乘计算
set /p n=输入n值---
set r=1
for /l %%i in (1 1 !n!) do (
        set /a "r=!r!*%%i"
)
echo !n!的阶乘=!r!
pause>nul
复制代码

 

f(n)={f(n-1)+k/f(n-1)}/2  ,其中n=1 ，2 ，3.。。
这是k的平方根公式
复制代码

@echo off &setlocal enabledelayedexpansion &cls &color 1a
echo -----判断小数位数----
:00
set /p x=输入数字--
set x1=a%x%
:01
set /a bit+=1
set num=!x1:~-1!
set x1=!x1:~,-1!
if !num! equ a (set bit=1 &goto end)
if !num! neq . goto 01
:end
call set v=%%x:~-!bit!%% 
call set u=%%x:~0,-!bit!%%
if %bit%==1 (set "v=0" &set "u=%x%")
set /a bit=%bit%-1
echo ┌─────────────┐
echo     小数位数=%bit% 整数部分=%u% 小数部分=%v%
echo └─────────────┘
set /p choice=输入r--从新开始,输入其它字符--结束--?
set bit=0
if %choice%==r goto 00 
pause
复制代码

@echo off &setlocal enabledelayedexpansion &cls &color 1a
echo  ~~~~~~~~~~~~~小数加法~~~~~~~~~~~~~~~~~by myzwd 2009 3 23
echo  ──────────────────────────────────
:main
set /p a=输入第一个小数---
set /p b=输入第二个小数---
rem 可以使用参数%1 %2 调用
call:sub %a%
set "a.bit=%bit%" &set "a.x=%v%" &set "a.z=%u%" 
call:sub %b%
set "b.bit=%bit%" &set "b.x=%v%" &set "b.z=%u%"  

set /a "t=%a.bit%-%b.bit%"
if %t% geq 0 ( for /l %%i in (1 1 %t%) do (set b.x=!b.x!0)
) else (set /a t=-%t% 
          for /l %%i in (1,1,!t!) do (set a.x=!a.x!0)
          set "a.x=!a.x: =!"
       )

:end
set /a "sumazbz=%a.z%+%b.z%" 
set a.x=%a.x:.=1% &set b.x=%b.x:.=1%
set /a "sum=%a.x%+%b.x%"
set /a "sum.z=%sum:~0,1%-2" &set "sum.x=%sum:~1%"
set /a "sum.z=%sumazbz%+%sum.z%"
set sum=%sum.z%.%sum.x%
echo 结果是----%a%+%b%=%sum%
set /p choice=输入r重新开始，输入其它字符结束--?
if %choice%==r goto main
exit /b
--------- 程序结束-----------------
------z符号代表整数部分，x符号代码小数部分
:sub
:00
set x=%1
set x1=a%x%
set bit=0
:01
set /a bit+=1
set num=!x1:~-1!
set x1=!x1:~,-1!
if !num! equ a (set bit=1 &goto end)
if !num! neq . goto 01
:end
call set v=%%x:~-!bit!%% 
call set u=%%x:~0,-!bit!%%
if %bit%==1 (set "v=0" &set "u=%x%")
set /a bit=%bit%-1
echo ┌─────────────────────┐
echo     小数位数=%bit% 整数部分=%u% 小数部分=%v%
echo └─────────────────────┘
goto:eof
复制代码

msgbox("Hello from VBScript!")
msgbox "123456789"
复制代码

dim name
name="Jan Egil"
msgbox(name)
复制代码

dim name
name="Jan Egil"
msgbox("My name is: " & name)
复制代码

dim fname(5)
fname(0) = "George"
fname(1) = "John"
fname(2) = "Thomas"
fname(3) = "James"
fname(4) = "Adrew"
fname(5) = "Martin"

for i=0 to 5
  msgbox(fname(i) & " 123")
next
复制代码

sub mySub()
  msgbox("This is a sub procedure")
end sub
call mySub()
复制代码

function myFunction()
myFunction = "BLUE"
end function
msgbox("My favorite color is " & myFunction())
复制代码

function greeting()
i=hour(time)
if i < 10 then
msgbox("Good morning!")
else
msgbox("Have a nice day!")
end if
end function
call greeting()
复制代码

function greeting()
i=hour(time)
If i = 10 then
        msgbox("Just started...!")
elseif i = 11 then
        msgbox("Hungry!")
elseif i = 12 then
        msgbox("Ah, lunch-time!")
elseif i = 16 then
        msgbox("Time to go home!")
else
        msgbox("Unknown")
end if
end function
greeting()
rem elseif 不是else if
'注释
复制代码

d=weekday(date)

select case d
  case 1
    msgbox("Sleepy Sunday")
  case 2
     msgbox("Monday again!")
  case 3
     msgbox("Just Tuesday!")
  case 4
     msgbox("Wednesday!")
  case 5
     msgbox("Thursday...")
  case 6
     msgbox("Finally Friday!")
  case else
     msgbox("Super Saturday!!!!")
end select
rem 这是select 语句
复制代码

for i = 0 to 5
msgbox("The number is " & i & "
")
next
复制代码

dim names(2)
names(0) = "George"
names(1) = "John"
names(2) = "Thomas"

for each x in names
  msgbox(x & "这句相当于bat的for in语句")
next
复制代码

i=0
do while i < 10
  msgbox(i & "     ")
  i=i+1
loop
复制代码

i=0
do 
  msgbox(i & "     ")
  i=i+1
loop  while i < 10
复制代码

do 
  msgbox("123456")
  i=i+1
loop until i > 5
复制代码

msgbox("Today's date is " & date())
msgbox("The time is " & time())
rem  也可以这样,这是调用函数的一种方法
msgbox "今天的时间是" & time()
'日期和时间
复制代码

msgbox(WeekDayName(1))

msgbox(WeekDayName(2))

msgbox("Get the abbreviated name of a weekday:")

msgbox(WeekDayName(1,true))

msgbox(WeekDayName(2,true))

msgbox("Get the current weekday:")

msgbox(WeekdayName(weekday(date)))

msgbox(WeekdayName(weekday(date), true))
复制代码

rem 这是用windows图片查看器打开图片
start  e:\test\a.jpg
复制代码

rem 这是在网页中打开图片，vb中就常用这句话
start explorer e:\test\a.jpg
复制代码

 
x=msgbox ("提示信息",48,"窗口标题")
复制代码

msgbox “提示"&"自己想添加的字符串"
复制代码

y=inputbox ("提示信息","","默认值")
复制代码