标题: 统计文本文件的字符个数 [打印本页]
作者: pusofalse 时间: 2008-4-24 21:59 标题: 统计文本文件的字符个数
@echo off&setlocal enabledelayedexpansion
set/a n=0,m=0,z=0,x=0
if not "%1"=="" (set file=%1) else set /p file=把要统计的文件拖到此处:
if not exist %file% echo 找不到文件&exit/b
echo 正在计算，请稍候。。。
for /f "tokens=*" %%a in ('findstr /n .* %file%') do (
set str=%%a
set str=!str:*:=!
call :lp
)
set /a n=%n%+%x%+%z%
echo %file%中有%n%个字符，[Space]有%m%个。
pause&goto :eof
:lp
if defined str (
set var=!str:~0,1!
if not "!var!"=="" set /a n+=1
if "!var!"=="!" set /a z+=1
if "!var!"=="^^" set /a x+=1
if "!var!"==" " set /a m+=1
set str=!str:~1!
goto lp
)
虽然对特殊字符稍微做了一点处理，但同样不适用于P。。。
作者: slore 时间: 2008-4-24 22:28
VBS的len函数很好用嗬。
作者: slore 时间: 2008-4-24 22:28
如果纯e文的话，直接看大小嗬。
作者: bat-zw 时间: 2008-4-24 22:42 标题: 这种学习方法值得提倡：
别的不说，楼主举一返三的精神是可贵的，也是一条提高的捷径，加油！！！
作者: pusofalse 时间: 2008-4-24 23:19
谢谢楼上几位。。。VBS不会用。。。只会用一个msgbox - -|||
作者: bat-zw 时间: 2008-4-25 01:27 标题: 为支持楼主也来一个：
特殊字符太难处理了，故没考虑：
@echo off&setlocal enabledelayedexpansion
set n=0&set m=0&set zk=0&set wk=0
for /f "delims=" %%i in (a.txt) do set str=%%i&call :lp %%str%%
echo 文本中有文字%n%个，文字空格%wk%个，字符%m%个，字符空格%zk%个
pause>nul&goto :eof
:lp
if defined str (
set var=%str:~,1%
if /i !var! gtr z (
set /a n+=1
) else (
if "!var!"==" " (
set /a zk+=1
) else (
if "!var!"==" " (
set /a wk+=1
) else (
set /a m+=1
)
)
)
set str=%str:~1%&goto lp
)
[ Last edited by zw19750516 on 2008-4-25 at 01:37 AM ]set n=0&set m=0&set zk=0&set wk=0
for /f "delims=" %%i in (a.txt) do set str=%%i&call :lp %%str%%
echo 文本中有文字%n%个，文字空格%wk%个，字符%m%个，字符空格%zk%个
pause>nul&goto :eof
:lp
if defined str (
set var=%str:~,1%
if /i !var! gtr z (
set /a n+=1
) else (
if "!var!"==" " (
set /a zk+=1
) else (
if "!var!"==" " (
set /a wk+=1
) else (
set /a m+=1
)
)
)
set str=%str:~1%&goto lp
)
作者: pusofalse 时间: 2008-4-25 02:31
| Quote: | |
|
测试N遍之后显示此时不应有do。。。
刚开始时还挺正常的。。。不知为何~
----------------------
汗~！ 又可以了。。。- -|||
[ Last edited by pusofalse on 2008-4-25 at 02:32 AM ]
作者: bjsh 时间: 2008-4-25 14:19
这一段倒是 不怕特殊字符。。 它是打印出每一行的字符数， 并没有进行
整体统计。。
@echo off
for /f "delims=" %%a in ('findstr /n .* test.txt') do (
set "var=%%a"
setlocal enabledelayedexpansion
set var=!var:*:=!
call :Loop
echo !n!
endlocal
)
pause
goto :eof
:Loop
if defined var (
set /a n+=1
set var=!var:~1!
goto Loop
)
当然你也可以用下面这个进行 整体统计, for /f "delims=" %%a in ('findstr /n .* test.txt') do (
set "var=%%a"
setlocal enabledelayedexpansion
set var=!var:*:=!
call :Loop
echo !n!
endlocal
)
pause
goto :eof
:Loop
if defined var (
set /a n+=1
set var=!var:~1!
goto Loop
)
但是这个对稍大点的文件就会有问题。。
导致setlocal 递归层过大。。
@echo off
for /f "delims=" %%a in ('findstr /n .* test.txt') do (
set "var=%%a"
setlocal enabledelayedexpansion
set var=!var:*:=!
call :Loop
setlocal disabledelayedexpansion
)
echo %n%
pause
goto :eof
:Loop
if defined var (
set /a n+=1
set var=!var:~1!
goto Loop
)
这里有命令行固有的缺陷for /f "delims=" %%a in ('findstr /n .* test.txt') do (
set "var=%%a"
setlocal enabledelayedexpansion
set var=!var:*:=!
call :Loop
setlocal disabledelayedexpansion
)
echo %n%
pause
goto :eof
:Loop
if defined var (
set /a n+=1
set var=!var:~1!
goto Loop
)
假如你想完完整整的（包括特殊字符）获取到， 那在set "var=%%a"
之前 一定不要打开 变量延迟， 不然!号和^会被吃掉。。
但这样也造成另一个问题：
假如这有最开始的一个环境变量表
|----------------------------------------------|
| |
| |
| |
-------------------------------------------------
执行set "var=%%a"后变为：
假如var=1:abcd
|----------------------------------------------|
| |
| var=1:abcd |
| |
-------------------------------------------------
当你执行 setlocal 时， 会产生一个新表， 实际上是copy调用setlocal的那张表，
但是以后对环境变量的修改只会作用于新表，当执行 endlocal 时，会恢复到原来
那张表。
执行setlocal 后产生新表
|----------------------------------------------|
| |
| var=1:abcd |
| |
-------------------------------------------------
执行
set var=!var:*:=!
call :Loop
后这张新表变为：
|----------------------------------------------|
| |
| var=abcd |
| n=4 |
-------------------------------------------------
当执行endlocal时 环境变量的表 恢复到最初 即
|----------------------------------------------|
| |
| var=1:abcd |
| |
-------------------------------------------------
可见 n 没有了。。
这也是为什么第一个代码 只统计每一行 而没有 统计全部的原因
因为每一次统计 时 执行 set /a n+=1
n的初始值都为零。
可能有人会有这样的疑问： 不执行endlocal行不行。。
答案是也行， 就比如第二段代码
但是要记住： 一定要在 set "var=%%a"之前关闭掉 变量延迟
这样会不断的递归产生 环境表。
对于小文件还尚可。。 文件行数稍大便会 导致setlocal递归层数过大
所谓cmd固有缺陷：
cmd中实际上没有真正变量的概念
而是以环境变量来模拟或者说是代替的
对于这种方式有个问题
因为 父shell 可以传递环境变量 给子shell
而 子shell 无法 改变父 shell中的环境变量
所以在setlocal后对原“变量”的修改 无法传递回来。。
除非 将其存入磁盘。。
================================
所以 更可行的方式 是 利用第一个代码， 将各行的字符数写入临时文件
最后再从 临时文件中 读取并计算和。。。
缺点自然就是 产生临时文件。
======================================
受10楼兄弟的启发， 下面这个代码即可统计 不必产生临时文件，
而且也 发现了 把变量传递回来的好办法。 很聪明的一个办法。。。
@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
)
主要在两点。。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
)
1） 让 set /a total+=n 脱离 循环的区域 但又被执行到
原因是为了避免 在for中 没执行前的命令行扫描 即将 n 替换掉
2）endlocal&&set /a total+=n
很聪明的做法 也是传递回来的根本原因所在
因为在一行。。。 所以 命令行 会对整体进行扫描
因为扫描时还没有执行endlocal， n 的值仍然存在， 而对其的替换恰发生在此时
扫描完毕后 真正执行时，endlocal 后 还原回原来的环境变量表， 但是
set /a total+=n 在扫描后 n 被替换为一个确定的值， 因此n的值通过total
被传递回原来的环境表量表
刚好利用了 扫描替换变量和执行的时间差。。
注意一定要在同一行，
endlocal
set /a total+=n
分开写， 第二行则永远是零了。。。
[ Last edited by bjsh on 2008-4-26 at 11:26 AM ]
作者: plp626 时间: 2008-4-25 14:38
要想函数用的好，setlocal 必须掌握！
作者: 26933062 时间: 2008-4-25 18:05
8 楼版主的代码稍作修改即可达到效果:
@echo off
set w=1
for /f "delims=" %%a in ('findstr /n .* a.txt') do set "var=%%a"&call :lis
echo.&echo 字符总数是 %u%
pause>nul
goto :eof
:lis
setlocal enabledelayedexpansion
set var=!var:*:=!
if not defined var endlocal&set /a w+=1&goto :eof
call :loop
echo 第 !w! 行有 !n! 个字符
endlocal&set /a u+=%n%,w+=1
goto :eof
:loop
if defined var (
set /a n+=1
set var=!var:~1!
goto loop
)
goto :eof
[ Last edited by 26933062 on 2008-4-25 at 06:06 PM ]set w=1
for /f "delims=" %%a in ('findstr /n .* a.txt') do set "var=%%a"&call :lis
echo.&echo 字符总数是 %u%
pause>nul
goto :eof
:lis
setlocal enabledelayedexpansion
set var=!var:*:=!
if not defined var endlocal&set /a w+=1&goto :eof
call :loop
echo 第 !w! 行有 !n! 个字符
endlocal&set /a u+=%n%,w+=1
goto :eof
:loop
if defined var (
set /a n+=1
set var=!var:~1!
goto loop
)
goto :eof
作者: bat-zw 时间: 2008-4-25 21:41 标题: 顶！！！
bjsh版主描述的太清楚了，确实特殊字符太难处理了，尤其是在字符截取和开启变量延迟时，这里还真是cmd的瓶颈啊。
作者: bat-zw 时间: 2008-4-25 21:44
| Quote: | |
|
这样就不能统计字符种类了，如有空格统计也不准确，看来只要有特殊字符存在，批处理将难以做到对文本字符的精确统计了。
作者: pusofalse 时间: 2008-4-25 21:55 标题: 以下代码转自lxmxn
@echo off&setlocal enabledelayedexpansion
set /p file=
for /f "delims=: tokens=1*" %%a in ('findstr /n .* %file%') do (
set n=&set str=%%b
if not "!str!"=="" (
for %%i in (!str!) do set /a n+=1
echo/line:%%a !n!个字符串。。。【!str!】
) else (
echo/line:%%a 0个字符串。。。
)
)
pause>nul&cls&goto :eof
只要有特殊字符，字符串个数也会计算错误，难道没有好的方法了吗~
作者: bat-zw 时间: 2008-4-25 21:58
暂时想不到啊，其实我一直在思考这个问题，也一直找不到好的解决方案。
作者: bjsh 时间: 2008-4-25 22:06
10 楼的代码很聪明 真的很聪明！
作者: bat-zw 时间: 2008-4-25 22:11 标题: 计算setlocal最大递归层（为32层）：
| Quote: | |
|
@echo off
for /l %%i in (1,1,33) do (
set str=%%i
setlocal enabledelayedexpansion
echo !str!
)
pause>nul
在显示了32后就会提示：setlocal已到最大递归层，而在echo !str!下面加上endlocal就不会有这个提示了。for /l %%i in (1,1,33) do (
set str=%%i
setlocal enabledelayedexpansion
echo !str!
)
pause>nul
[ Last edited by zw19750516 on 2008-4-25 at 10:14 PM ]
作者: bjsh 时间: 2008-4-25 22:24
受10楼兄弟的启发， 下面这个代码即可统计 不必产生临时文件，
而且也 发现了 把变量传递回来的好办法。 很聪明的一个办法。。。
@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
)
主要在两点。。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
)
1） 让 set /a total+=n 脱离 循环的区域 但又被执行到
原因是为了避免 在for中 没执行前的命令行扫描 即将 n 替换掉
2）endlocal&&set /a total+=n
很聪明的做法 也是传递回来的根本原因所在
因为在一行。。。 所以 命令行 会对整体进行扫描
因为扫描时还没有执行endlocal， n 的值仍然存在， 而对其的替换恰发生在此时
扫描完毕后 真正执行时，endlocal 后 还原回原来的环境变量表， 但是
set /a total+=n 在扫描后 n 被替换为一个确定的值， 因此n的值通过total
被传递回原来的环境表量表
刚好利用了 扫描替换变量和执行的时间差。。
注意一定要在同一行，
endlocal
set /a total+=n
分开写， 第二行则永远是零了。。
[ Last edited by bjsh on 2008-4-26 at 11:27 AM ]
作者: plp626 时间: 2008-4-25 22:37
| Quote: | |
|
这个是函数常用的格式：
有参函数:
call:标签A "参数1" "参数2"
rem 注释....(该函数的功能等)
:标签A
setlocal ENABLEEXTENSIONS
参数接收
任务A
endlocal&设定返回参数1,参数2,...
goto :eof
详细这个帖子：rem 注释....(该函数的功能等)
:标签A
setlocal ENABLEEXTENSIONS
参数接收
任务A
endlocal&设定返回参数1,参数2,...
goto :eof
http://www.cn-dos.net/forum/viewthread.php?tid=38969&fpage=1
既然版主都来了，相比能给这个帖子提些建设性的意见.....
我在做这方面的工作，一个人太累，
作者: pusofalse 时间: 2008-4-25 22:58
| Quote: | |
|
17楼版主的代码测试有误
a.txt：
abc!d!e^~
cdk!%!#$56%!Q!
计算出来是26个，为何会多了一个~
作者: 26933062 时间: 2008-4-25 23:03
回复 17 楼
最开始也是采用这种方法,但实际上是不行的,
不信把a.txt内容超过32行,同样会提示 以达到最大递归层,
并且在末位 echo !total! 同样有结果,说明 延迟变量还是开启的.
在返回call主程序之前endlocal 好像并不能结束延迟变量
endlocal&set /a w+=n 这种方法好像在for中无效,也就是在()中无效,所以在10楼,先跳出for即可.
[ Last edited by 26933062 on 2008-4-25 at 11:09 PM ]
作者: dreamseed 时间: 2008-4-25 23:47
@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 统计中...
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
)
作者: bjsh 时间: 2008-4-26 00:09
| Quote: | |
|
确实。。。
setlocal 和 endlocal 必须得在一个 块 内。。
还真得就这么写了。。
@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
)
回复 19楼。。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
)
出错 也是 因为这个原因了。。 更改了源代码了。。
[ Last edited by bjsh on 2008-4-26 at 11:25 AM ]
作者: bjsh 时间: 2008-4-26 00:15
| Quote: | |
|
恩。 好。 你的那个帖子 相当不错。
作者: bat-zw 时间: 2008-4-26 10:26 标题: 我来说两句，不对请指正：
＆＆我们知道要原样输出文本如a.txt内容最好的方法就是使用type：
@type a.txt&pause>nul
那么bjsh版主在8楼总结出的代码，是不是可以把findstr改为type，一来可以提高代码效率，二来还可以简化代码（不足之处是会忽略以";"号打头的行）：
@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%
测试文本如下(用版主的测试提示找不到操作数)：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
[ Last edited by zw19750516 on 2008-4-26 at 11:20 AM ]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
作者: 26933062 时间: 2008-4-26 11:00
回 ２４ 楼
for /f "delims=" %%i in ('type x.txt') do set 会忽略分号开头的行
对文档字符,字节进行详细统计，含特殊字符
@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
a.txt 内容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-=\][';/.,~!@#$%^&*&^%$#@!!%^=\][';/.,~!@#$[';
~!@!#$%^&*()_+|}#$ 登鹳雀楼
白日 依山尽，黄河 入海流。
欲穷千里目，更上穷千里楼。 %^=\][';/.,~!@#$,:"?><{}+!%^=\][';/.,~!@#
=\][';/.,~!@#$%穷千里^=\][';/.,~!@#$%^%^=\][';/.,%^=\][';/.,~!@#$
^&* ()_+|}{":?`-=^&*()_+|}{":?`-=%^=\][';/.,#$%^=\][';/.,~!@
#$%^=\][';/.,~!穷千里@#$^&*()_+|}{":?`-@#$%^=\][';/.%^&*&^%$#@![!
,%"=^ ~!@#$&*()_+^^|}{:?`-\][';/., ()_+|}{":?`=%.,# <>
:穷千里
;
!@!
[ Last edited by 26933062 on 2008-4-26 at 11:21 AM ]`123%456%7890-=\][';/.,~!@#$%^&*&^%$#@!!%^=\][';/.,~!@#$[';
~!@!#$%^&*()_+|}#$ 登鹳雀楼
白日 依山尽，黄河 入海流。
欲穷千里目，更上穷千里楼。 %^=\][';/.,~!@#$,:"?><{}+!%^=\][';/.,~!@#
=\][';/.,~!@#$%穷千里^=\][';/.,~!@#$%^%^=\][';/.,%^=\][';/.,~!@#$
^&* ()_+|}{":?`-=^&*()_+|}{":?`-=%^=\][';/.,#$%^=\][';/.,~!@
#$%^=\][';/.,~!穷千里@#$^&*()_+|}{":?`-@#$%^=\][';/.%^&*&^%$#@![!
,%"=^ ~!@#$&*()_+^^|}{:?`-\][';/., ()_+|}{":?`=%.,# <>
:穷千里
;
!@!
作者: bat-zw 时间: 2008-4-26 11:14
| Quote: | |
|
确实如此，用我的统计字符总数是428，实际是429，少统计了以分号开头的倒数第二行，是我忽略了这点，谢谢指正。
[ Last edited by zw19750516 on 2008-4-26 at 11:18 AM ]
作者: bjsh 时间: 2008-4-26 11:25
| Quote: | |
|
呵呵
找不到操作数 是我忘了空行的情况
其实用 findstr 而不用type 当初也是因为这空行
空行时， 因为n没定义， 导致 endlocal 后的 set /a 报错 说 没有操作数：
在
setlocal enabledelayedexpansion
后加一句
set /a n=0
即可。
已修正。。
作者: bjsh 时间: 2008-4-26 11:32
效率么。。 确实很差。。
用批处理来写 就是写这么个算法。
不适合真正拿来用。。
字符处理 是 cmd 的一个瓶颈。。
最好还是用其他的方式来解决。。
用最适合的方式解决最适合的问题。。
作者: bat-zw 时间: 2008-4-26 13:39
严重同意版主的意见！！！
作者: 09wind 时间: 2010-1-10 12:34
.
.
.
.
为什么要end local 啊 不关闭也可以执行啊。
@echo off& mode con cols=40 lines=10& setlocal enabledelayedexpansion& color 9f
(if "%~1"=="" (echo 把文件托到这里,然后按个回车:
set /p wind_F=)else set wind_F=%~1)& cls
for /f "tokens=1* delims=:" %%1 in ('findstr /n ".*" "%wind_F%"')do (set "wind=%%2"& set /a LN=0,snow=%%1
if not defined wind (set /a wind_E+=1)else call :smile)
echo 共%snow%行 %TAT%个字符
if defined wind_E echo 其中包含%wind_E%个空行
pause 1>nul&& exit
:smile
if defined wind (set wind=!wind:~1!&& set /a LN+=1&& goto :smile)else set /a TAT+=LN
作者: jarry0932 时间: 2010-1-10 13:56
顶一下，解决了我最近困扰的判断字符串个数问题，学习了~
作者: cuke 时间: 2010-1-26 11:21
顶一下，看了不怎么懂，，慢慢研究！！