myzwd

从实验来看 ，把退格符后面的内容理解为车。把退格符号理解为车走的路程。而原来的字符理解为路，车过了，路还是路。我是这样认为的。

 
 
@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 /bCOPY

一个显而易见的原理------
cmd一行可以显示80个byte，如果这一行已经填满，这时如果你插入x<80个字符，这时此行就会有x个字符被挤出来，插如多少就挤出多少，挤出的字符就自动到了第二行。根据这个原理，利用语句set /p=!space:~,-54!<nul就轻松的实现了平移。
----------求余运算与周期性运动
    求余运算可以很好的刻画周期性运动，这个实例保持了总行高不变。改动一下就可以模仿自由落体运动。

@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 /bCOPY

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 >nulCOPY

         记得读大学时，我们的计算机进行抽签考试，我就抽到了这个到三角，要求在5分钟内编程显示，我在机房里
半天也没编出程序来，眼看时间就要到了，在最后的一分钟我来了灵感才编出程序来。当时考试差点没过关，今天我试着用bat编写了一个，算是对自己读书时代的怀念。我习惯于定义空格，好象这样做规范一点，因为我常拿到
其它的bat，稍微动了一书写个格式，程序就报错，其根本就是没定义空格。

创意----刷屏语句-不用cls也可以实现从下到上运动，因为cmd默认显示300行，利用这点就可以实现从下到上的运动。每屏应该是25行。

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
  
)COPY

@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>nulCOPY

 
@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>nulCOPY

 
@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>nulCOPY

@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 :funcCOPY

@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:eofCOPY

@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
)COPY

@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这样也可以设置环境变量 这样也可以设置环境变量COPY

@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     `"`         `"` 
 ──────────────────────────────COPY

[ 本帖最后由 myzwd 于 2009-3-22 12:31 编辑 ]

myzwd

是这样的。我同意你的说法啊

zqz0012005

退格符，应该是计算机基础的范畴，参见：ASCII码

注意退格符不是键盘上的退格键Backspace，它们不是一个概念。

退格符的作用是，将光标位置退回到前一个字符，但不会删除光标位置的字符。如果后边有新的字符，从光标位置继续。在屏幕上显示时，由于显示机制，新的字符会覆盖原来的字符；但如果是输出到打印机，原来的字符已经被打印，新的字符会与之重叠。

myzwd

我利用退格符，编写小方块从右向左运动时，小方块不是等距离倒退，如下面的程序所示：

@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.COPY

找来找去也没找到原因，最后只好去从新研究退格符的性质，原来是退格符的一条隐藏的性质我没发现，
先将实验整里如下---------------

  
@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  显示0000000000ECOPY

  
@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  显示00000EDCBACOPY

  
@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  显示 00E000D00C0BACOPY

显见要实现等距离倒退，应采用实验2的结果。
到此已经可以利用这些实验结果编制正方形逆时针显示的三边程序了。
对了还差由下到上显示的方法。

@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.COPY

看来要注意一下退格符号的实验2性质，它不是想象中的那样。通常把实现等距离倒退想象成实验3的样子，但那是错误的。


该方法我把它叫做----122方法，这样好记忆。


下面分析实验：
退格符号的光标位置从什么地方开始计算？
@echo off
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
   
  上面的程序运行后，为什么不是显示0000000EDCBA？
这是因为退格符的光标计算不是想象中的总是从第一个字母A开始计算的，
而是要从上一次结果开始计算光标位置的。分析如下：符号“|”表示当前光标位置
初始显示状态12个0：000000000000
1---运行set /p=A<nul后
运行前：000000000000| A-----》运行后：000000000000A |   
2---运行set /p=B<nul后
运行前：00000000000A| B-----》运行后：00000000000B| A  
3---set /p=C<nul
运行前：00000000000B| AC-----》运行后：000000000C| 0BA   
4---set /p=C<nul
运行前：000000000C| 0BAD-----》运行后：000000D| 00C0BA   
5---set /p=C<nul
运行前：000000D| 00C0BAE-----》运行后：00E| 000D00C0BA   
重要性质： 1---退格符号的光标要变动的计算！！！！。
                    2---退格后光标总是留在字母的右面。
                    3--退格符只具有覆盖原字符的作用，不删除原字符。


122方法--利用退格符构造反向拖尾等距离运动
  由于退格符号的光标计算是变动的计算的，所以要利用退格符构造向右的（反向）匀速等距离运动，添加退格符的个数不得按等差数列添加，而是要按数列1 2 2 ......(2 2 2..或3 2 2....或4 2 2...)的方式添加退格符的个数。其余情况以次类推。
就如上面的实验四演示的那样。
                 以前 我平空想象，以为退格符的光标总是从一个固定的起点开始计算的。做了实验已算是自我纠正了错误。

  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=COPY

    不知怎么回事 我总觉得使用退格符号，不是标准的bat，有种不正统的感觉。呵呵。

[ 本帖最后由 myzwd 于 2009-3-14 17:21 编辑 ]

zqz0012005

你总结的“122性质”是什么样的？怎么不表达出来？

这也叫“隐藏的性质”？这是它本来的性质好不好。

另外，这个帖子成了专门谈退格符的了，如有必要请修改标题。

myzwd

    dos中的逐帧动画原理
  我在一直在想如何让小方块，从下到上堆放，想来想起也没想出个头绪了来，因为dos的
显示机制，是先显示的在上面，后显示的在下面。跟要命的是显示时行高还在不停的变化。我们可以容易的让小方块从左向右运动，也可以让小方块从右向左运动，或从上到下运动，这只要利用退格符就可以办到。
    让小方块从下到上堆放，就不太好办了。于是我想到了flash的逐帧动画，我动手一试
发现效果相当不错。利用帧可以自由的控制行高，控制小方块的走向。
    在此我把它记录下来，奉献给网友。

@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分钟就会做动画。
   详细内容整理中。COPY

说几个相关问题，我认为比较重要。

1----1帧可以理解为一幅固定的画面，我们的动画要求在cmd窗口保持画面的大小始终不变，动画就是有一帧一帧的
      不断被替换的画面组成。那么如何确定帧的高度呢？
2---dos中的x，y坐标的概念
     例子：
    @echo off
    set  “space=         ”  
    rem  有10个空格
    echo.&echo.&echo.
    echo %space%A
    ----------------------将在cmd窗口 y坐标=10，x坐标=4的地方显示A.
   这个例子就是说明dos中的坐标可以用echo和空格去确定。
  空格--坐标 这个概念及其重要！如何生成空格重要，bat里面输入空格其方法要特别注意。
3---动画速度控制语句，这是动画必不可少的。
   有两种语句
   ping -n 2 hostlocal     ----ping语句的缺陷是会留下闪烁的光标。
   for  /l %%i in (1 1 100)  echo.>nul   ----如果你觉得显示过快，那就用下面的控制语句
   for  /l %%i in (1 1 100)  （call echo.>nul ） ----call 的速度是比较慢的。
4---显示语句，这也是动画必备的语句
   echo 和set /p
   关于set /p有几种写法，效果一样。
   set /p=123<nul
   set /p "=123"<nul
   set /p "tt=123"<nul
   nul的作用是把下一行的显示拉到上一行去。
   如：
        @echo off
         set /p=123>nul
         set /p=abc>nul
   ---------回显 123abc
   又如：
       @echo off
    set /p=123>nul
     echo  abc
-------显示 123abc
  注意nul 对echo 没作用，你加上也没有用。
   echo.   这是回显一个空行，作用是y坐标加1.
----退格符号
   让光标前移一个字节，注意是一个字节。即1byte 。光标是动态的计算的。
---列表循环(list)语句
    for /l  %%i  in (oringalvalue step  endvalue) do command
   for等起循环作用的语句，可以用来设置帧的重复。
---cls语句，用来清出上一帧留下的画面。
---帧的设置应该争守的原则：保持行高为一常数。
   
    帧的结构模样可以是这样
    :1   ----这里定义帧号
    echo --------------定义帧的开始
    这中间由echo定义行数n，这样总的行高=n+2
    echo--------------  定义帧的结束
    cls
    for /l %%i in (1 1 100) (call echo>nul)
    帧可以放到主程序的后面，大致可以这样放
    :main   ---这是主程序
    call:1
   .call;2
     ......
    echo 谢谢观看
    goto:eof
    :1
    ...............
    :2
    ...........
    :3
    ............
   

@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:eofCOPY

   
   
set /a m=8-!n! 这句话就是数学中的m+n=8帧的高度为8。帧的高度就是用的这个数字8
逐帧动画的程序编制起来，有种结构化的感觉。

 
 
我的动画学习心的
 
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                                    ----换帧语句
    )                                           ----定义一帧的结束
)   ---------定义帧循环次数
 
                  COPY

 @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
) COPY

  题外话，记得以前，我开始做网页的时候，不知道html是什么东西，于是就在网上找，后来我就找到了一个学习的地方，一个非常好的地方，我的html 就是在那里学习的。对vbs   js脚本有兴趣的朋友，请收藏这个网此吧。相信是
你最好去处。w3school  我想你在学vbs不可能不知道w3c吧。
http://www.w3school.com.cn/vbscript/index.asp

【sed 命令解答】
http://www.ringkee.com/note/opensource/sed.htm

[ 本帖最后由 myzwd 于 2009-3-20 11:38 编辑 ]

fsh6666

先收藏了   以后慢慢学  慢慢看

myzwd

----1

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

---2

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

--3

echo.>rr
findstr /a:0c 1* rr*
del /q rrCOPY

myzwd

     *************************我对动画学习的总结*******************  

1---为什么会看到动？
这是因为图象在大脑里面的短暂停留
  2---如何让图像动起来？
让一幅又一幅图像在你的眼前快速的显示，就实现了动起来的效果。
  3--帧的概念是怎么回事？
动画就是一幅又一幅的画面的连续，这中间的每一幅画面就可以叫帧。这个概念来自flash。
4--单屏动画是怎么回事？
     我们知道cmd默认的分辨率是300x80byte，但是这300行，被分成了12屏，每屏25行。可以用mode con命令查看和设置当前分辨率。所谓单屏动画，就是只使用前1---25行，显示1帧，这帧显示完了后，比如说再用cls清掉，接着，还是在前1--25行显示第二帧，如此往复，直到动画完成，单屏动画的优点是比较精准。但设置的难道较大。
5--多屏动画（刷屏动画）又是怎么回事情？
我们知道cmd有每屏有25行，我们一屏显示一帧，完了后刷屏，就进入了下一屏，不过
数下来应该是第26--50行了。我们在这一屏显示第二帧，这相当于除去了第一屏，以此类推，直到动画完成。记住刷屏动画最后要加上一句 pause 为什么？秘密，呵呵！什么秘密哦，动了手就知道了。刷屏动画的缺点是精确度差一些。
6---单屏动画和刷屏动画有差别吗？
  有！最明显的差别是单屏动画的默认光标在左上角，这样你使用的坐标系是x轴向右，y轴向下的坐标系。
   但是刷屏动画的默认光标是在右下角，你使用的坐标系是x轴向右，y轴向上的坐标系。
7---如何刷屏？
  分辨率是25行时，刷屏语句为for /l %%1 in (1 1 25) do echo.
25可以换成25的倍数。
  分辨率是40时，刷屏语句为for /l %%1 in (1 1 40)  do echo.
40同样可以 换成40的倍数。
8--如何更改分辨率？
用命令   mode con cols=50  lines=42
如果设置lines=足够大，将出现最大显示。
ok。

9---单屏动画和刷屏动画能否混用?
下面的例子说明了可以混合使用。
      

@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>nulCOPY

cmd中显示的是箭头从下到上运动，接着又从上到下。这中间坐标原点做了两次选择。

10---动画的大致分类拖尾动画与丢掉动画（不拖尾）
      
       通常丢掉动画要容易做的多，拖尾动画通常比不拖尾动画麻烦。
       拖尾即是指留下了运动轨迹的动画，丢掉就是不见运动轨迹的动画。
       拖尾动画还得看看高手们是怎么做的。
    我还得好好的吸取他们的经验。
    如果有人愿意介绍他的动画经验那是最好不过的了。
    我和其他初学者一样非常想听听其它爱好者的经验。
11--我想学习动画的第一步是要学会控制小方块向各个方向（拖尾于丢掉）运动吧
12--cmd中的动画其实是在作假，比如说从下倒上运动不是真的是那样运动的。因为cmd的显示总是先显示的在上面后显示的在下面，这点我们无法改变的。我们看到字符从下到上运动，其实是假的。是在欺骗我们的眼睛。cmd的动画，到有点象魔术。只有你欺骗得了眼睛就行。


[ 本帖最后由 myzwd 于 2009-3-20 19:19 编辑 ]

myzwd

@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:eofCOPY

myzwd

记得读书时我的电脑老师告诉我们，所有的语言都包含4种结构
1---顺序结构
2--转子结构
3--循环结构
4--分支结构
从这个角度讲，我应该老老实实的学习bat。只有这样学习才是最经济的。只有这样才可以触类旁通。
还有就是网上的那些黑客的这样攻击那样攻击，我都去试过，不过只是在虚拟机上试的
，因为真的电脑上根本没办法成功。我学习bat只是想让我的电脑能更好的工作。我不再象刚开始学习电脑时，那样幼稚了。老想用bat调用这样那样去攻击别人。那曾经浪费了
我不少的时间，因为你根本不会有成功的机会。除非别人有意等着你杀。
黑客的教程之所以讲攻击，那为了吸引眼球。比如说什么telnet登陆，说的是那么美好，那么诱惑人，但是我禁用我的tennet服务，你就只有干瞪眼！
  还有一个网络中老讲的例子，利用软件x-scan扫描，最后建立空链接，然后就可以去获得adminstrator的密码，然后如何如何的攻击别人。我就明说我的电脑就开了空连接，我还想看看别人是如何攻击我的呢？
  我讲这些东西就是要说明一个问题，学习bat，思路要端正，不要老想着学了可以攻击别人。高级语言都有共性，老老实实的学习一门语言才是最经济的方法。

myzwd

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>nulCOPY

sin(x)=1-(1/3!)x^3+(1/5!)x^5-......
编出sinx的计算程序要分离1/3!的整数部分和小数部分。有意思那天试试看能不能成功。
我猜应要用到bat的 运算---“/和%%”

求平方根的递推公式

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

@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 
pauseCOPY

分数化小数方法
http://bbs.bathome.net/thread-3832-1-1.html



两个正小数相加

@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:eofCOPY

利用递推数列开方，本来收敛速度是最快的了，一般迭代4，5次就有很高的精度了。但是关键的一点是要解决两个有理数的除法运算如2.5/1.23 ，这最终又归结到小数点的移动上去。看来得多弄几个子程序。工作量有点大。有时间再说吧。我真不明白微软的bat在设计上为什么不直接设计来可以进行小数运算呢？

[ 本帖最后由 myzwd 于 2009-3-23 20:58 编辑 ]

myzwd

cmd的属性可以利用注册表修改
hkcu\console -----cmd的属性都记录在这个键下
添加值名windowposition 再添加 d_word值可以改变cmd在屏幕中的位置。如（十进制）10551000，10551048  .把值设置为0就是恢复默认。

[ 本帖最后由 myzwd 于 2009-3-22 13:09 编辑 ]

myzwd

msgbox("Hello from VBScript!")
msgbox "123456789"COPY

dim name
name="Jan Egil"
msgbox(name)COPY

dim name
name="Jan Egil"
msgbox("My name is: " & name)COPY

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")
nextCOPY

sub mySub()
  msgbox("This is a sub procedure")
end sub
call mySub()COPY

function myFunction()
myFunction = "BLUE"
end function
msgbox("My favorite color is " & myFunction())COPY

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

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
'注释COPY

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 语句COPY

for i = 0 to 5
msgbox("The number is " & i & "
")
nextCOPY

dim names(2)
names(0) = "George"
names(1) = "John"
names(2) = "Thomas"
 
for each x in names
  msgbox(x & "这句相当于bat的for in语句")
nextCOPY

i=0
do while i < 10
  msgbox(i & "     ")
  i=i+1
loopCOPY

i=0
do 
  msgbox(i & "     ")
  i=i+1
loop  while i < 10COPY

do 
  msgbox("123456")
  i=i+1
loop until i > 5COPY

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

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))COPY

出于易读和一致性的目的，请在 VBScript 代码中使用以下变量命名约定：
子类型 前缀 示例
Boolean bln blnFound
Byte byt bytRasterData
Date (Time) dtm dtmStart
Double dbl dblTolerance
Error err errOrderNum
Integer int intQuantity
Long lng lngDistance
Object obj objCurrent
Single sng sngAverage
String str strFirstName

变量应定义在尽量小的作用域中。VBScript 变量的作用域如下所示：
作用域 声明变量处 可见性
过程级 事件、函数或子过程 在声明变量的过程中可见
Script 级 HTML 页面的 HEAD 部分，任何过程之外 在 Script 的所有过程中可见


变量作用域前缀
随着 Script 代码长度的增加，有必要快速区分变量的作用域。在类型前缀前面添加一个单字符前缀可以实现这一点，而不致使变量名过长。
作用域 前缀 示例
过程级 无 dblVelocity
Script 级 s sblnCalcInProgress

对象命名约定
下表列出了 VBScript 中可能用到的对象命名约定（推荐）：
对象类型 前缀 示例
3D 面板 pnl pnlGroup
动画按钮 ani aniMailBox
复选框 chk chkReadOnly
组合框、下拉列表框 cbo cboEnglish
命令按钮 cmd cmdExit
公共对话框 dlg dlgFileOpen
框架 fra fraLanguage
水平滚动条 hsb hsbVolume
图像 img imgIcon
标签 lbl lblHelpMessage
直线 lin linVertical
列表框 lst lstPolicyCodes
旋钮 spn spnPages
文本框 txt txtLastName
垂直滚动条 vsb vsbRate
滑块 sld sldScale

[ 本帖最后由 myzwd 于 2009-3-24 20:59 编辑 ]

guao_jie

我完全是一个新手，看不懂代码。。顶