中国DOS联盟

@echo off
for /l %%i in (1,1,33) do (
    set str=%%i
    setlocal enabledelayedexpansion
    echo !str!
)
pause>nul

@echo off
for /f "delims=" %%a in ('findstr /n .* a.txt') do (
        set "var=%%a"
        call :list
)

echo.%total%
pause>nul
goto :eof

:list
setlocal enabledelayedexpansion
set /a n=0
set var=!var:*:=!
call :loop
endlocal&&set /a total+=n
goto :eof

:loop
if defined var (
  set /a n+=1
  set var=!var:~1!
  goto loop
)

call:标签A "参数1" "参数2"


rem 注释....(该函数的功能等)

:标签A
setlocal ENABLEEXTENSIONS

参数接收
任务A

endlocal&设定返回参数1,参数2,...
goto :eof

@echo off&setlocal enabledelayedexpansion
echo 统计中...
for /f "delims=" %%i in (a.txt) do call :split "%%i"
cls&echo 共有!count!个字符。
pause>nul&exit
:split
set c=-1&set "s=%~1"
:next
set /a c+=1
if not "!s:~%c%!" == "" (
set /a count+=1
goto next
)

@echo off
for /f "delims=" %%a in ('findstr /n .* a.txt') do (
        set "var=%%a"
        call :list
)

echo.%total%
pause>nul
goto :eof

:list
setlocal enabledelayedexpansion
set /a n=0
set var=!var:*:=!
call :loop
endlocal&set /a total+=%n%
goto :eof

:loop
if defined var (
  set /a n+=1
  set var=!var:~1!
  goto loop
)

@echo off
for /f "delims=" %%i in ('type a.txt') do set "str=%%i"&call :lp
echo 总字符数为%m%个
pause>nul&goto :eof
:lp
setlocal enabledelayedexpansion
:loop
if defined str (
  set /a n+=1
  set str=!str:~1!
　goto loop
)
endlocal&set /a m+=%n%

(一)应用DOS重定向功能

DOS的标准输入输出通常是在标准设备键盘和显示器上进行的, 利用重定向,可以方便地将输入输出改向磁盘文件或其它设备。如在批处理命令执行期间为了禁止命令或程序执行后输出信息而扰乱屏幕, 可用DOS重定向功能把输出改向NUL设备(NUL不指向任何实际设备): C:\>COPY A.TXT B.TXT > NUL。

命令执行结束不显示"1 file(s) copied"的信息。有的交互程序在执行时要求很多键盘输入, 但有时输入是固定不变的, 为加快运行速度, 可预先建立一个输入文件,此文件的内容为程序的键盘输入项, 每个输入项占一行。假如有一个程序ZB, 其输入项全部包括在文件IN.DAT中, 执行 C:\>ZB NUL 程序就自动执行。

(二)应用DOS管道功能

DOS的管道功能是使一个程序或命令的标准输出用做另一个程序或命令的标准输入。如把DEBUG的输入命令写入文件AAA, 用TYPE命令通过管道功能将AAA的内容传输给DEBUG, 在DEBUG执行期间不再从控制台索取命令参数, 从而提高了机器效率。命令为: C:\>TYPE AAA|DEBUG >BBB。

(三)子程序

在一个批处理文件可用CALL命令调用另一个子批处理文件, 当子批文件执行结束后,自动返回父批文件, 继续向下执行。如: A.BAT B.BAT，A调用B,A.BAT内容如下：

@ECHO OFF
CALL B
CD \BASIC
BASICA BG
@ECHO ON

(四)菜单选择功能

DOS功能调用31H或4CH所提供的一字节的返回码, 通过批处理子命令IF和ERRORLEVEL对返回码进行处理, 可达到自动执行一批命令的目的。在批处理文件中实现高级语言所有的菜单提示功能, 使批处理文件变得更灵活方便。先用DEBUG建立一个菜单驱动程序MENU.COM,对应地编写一个批处理文件LG.BAT。具体内容和方法见下表:

DEBUG
-A
-166C:0100 MOV DX,111
-166C:0103 MOV AH,09
-166C:0105 INT 21
-166C:0107 MOV AH,01
-166C:0109 INT 21
-166C:010B MOV AH,4C
-166C:010D INT 21
-166C:010F INT 20
-166C:0111 DB '******************************'0D 0A
-166C:0131 DB '* 1.Turbo Pascal 5.00 *'0D 0A
-166C:0151 DB '* 2.Turbo Basci 1.00 *'0D 0A
-166C:0171 DB '* 3.Turbo Prolog 2.00 *'0D 0A
-166C:0191 DB '* 4.Turbo C 2.00 *'0D 0A
-166C:01B1 DB '* 0.Exit *'0D 0A
-166C:01B1 DB '******************************'0D 0A
-166C:01F1 DB 'Your choice(0..4) : '24 0D 0A 1A
-166C:0209
-R CX
CX 0000
:108
-N MENU.COM
-W
Writing 0108 bytes
-Q
@ECHO OFF:
START
CLS
MENU
IF ERRORLEVEL 52 GOTO C
IF ERRORLEVEL 51 GOTO PRO
IF ERRORLEVEL 50 GOTO BAS
IF ERRORLEVEL 49 GOTO PAS
IF ERRORLEVEL 48 GOTO EX
CLS
GOTO START
AS
CD \TP5.00
TURBO
CD \
GOTO START
:BAS
CD \TB
TB
CD \
GOTO START
RO
CD \TPROLOG
PROLOG
CD \
GOTO START
:C
CD \TURBOC
TC
CD \
GOTO START
:EX
@ECHO ON


执行LG, 屏幕左上角出现一个菜单, 并提示用户输入选择, 当选择的功能执行结束,重新返回主菜单请求选择, 直到选择"0"号功能, 程序结束返回DOS。

(五)应用命令处理程序完成大量重复工作

DOS提供调用次级命令程序的方法, 可实现与子程序等效的功能, 在MS DOS3.3以前的DOS版本下非常有用。如你有一批FORTRAN源程序需要编译, 首先编写两个批文件MAKEOBJ.BAT、C.BAT, 然后执行MAKEOBJ, 即可把当前目录下的所有扩展名为.FOR的FORTRAN源程序编译成OBJ文件。这种方法迅速正确, 人机交互少, 减轻了程序员的的大量劳动。

MAKEOBJ.BAT C.BAT
@ECHO OFF
ECHO COMPILE FORTRAN PROGRAMS.
FOR %%A IN (*.FOR) DO COMMAND /C C %%A
ECHO FINISH !
@ECHO ON @ECHO OFF
ECHO ------ COMPILE %1 ------
FOR1 %1; >NUL
FOR2 >NUL
@ECHO ON

@echo off
set /a k=0,qk=0,h=0,b=0
for /f "delims=" %%a in ('findstr /n .* a.txt') do set "var=%%a"&call :lis
set /a han+=quak,zong=ban+han*2
echo.&echo     字符总数  %u%
echo.&echo     字节总数  %zong%
echo.&echo 半角字符数量  %ban%
echo.&echo 半角空格数量  %kong%
echo.&echo 全角字符数量  %han%
echo.&echo 全角空格数量  %quak%
pause>nul
goto :eof
:lis
  setlocal enabledelayedexpansion
  set var=!var:*:=!
  if not defined var endlocal&set /a w+=1&goto :eof
  call :loop
  endlocal&set /a u+=%n%,kong+=%k%,quak+=%qk%,han+=%h%,ban+=%b%
goto :eof
:loop
if defined var (
  set /a n+=1
  if "!var:~0,1!"==" " (set /a k+=1)
  if "!var:~0,1!"=="　" set /a qk+=1
   if "!var:~0,1!" gtr "Z" (set /a h+=1) else set /a b+=1
  set var=!var:~1!
  goto loop
)
goto :eof

><
`123%456%7890-=\][';/.,~!@#$%^&*&^%$#@!!%^=\][';/.,~!@#$[';
~!@!#$%^&*()_+|}#$     登鹳雀楼
　　
   白日　依山尽，黄河　入海流。            
   欲穷千里目，更上穷千里楼。 %^=\][';/.,~!@#$,:"?><{}+!%^=\][';/.,~!@#
=\][';/.,~!@#$%穷千里^=\][';/.,~!@#$%^%^=\][';/.,%^=\][';/.,~!@#$
^&* ()_+|}{":?`-=^&*()_+|}{":?`-=%^=\][';/.,#$%^=\][';/.,~!@
#$%^=\][';/.,~!穷千里@#$^&*()_+|}{":?`-@#$%^=\][';/.%^&*&^%$#@![!
,%"=^ ~!@#$&*()_+^^|}{:?`-\][';/.,      ()_+|}{":?`=%.,# <>
:穷千里

;
!@!