中国DOS联盟

看到 namejm 荣誉版主 曾经发的一个老帖,觉得挺有意识,原帖中又没有满意的答案
所以重发出来讨论一下,看有没有更好的方法.
a.txt内容
1 ,2, 3,4,
7,8, 9 9,w ww,qer, ,,

要求:
统计a.txt中,逗号出现的次数.

原帖
http://www.cn-dos.net/forum/viewthread.php?tid=21250&fpage=1&highlight=%2Bnamejm

Last edited by 26933062 on 2007-8-7 at 02:49 AM ]

无人问津!
难道是题目太简单了,都不愿回答?
那就增加点难度,
1:a.txt内容如下,
2:-----------------------------,
3:(注意:有个空行是由空格组成),
4:!" ",!

6::`-=\]
















Last edited by 26933062 on 2007-8-7 at 02:40 PM ]

vbs的

msgbox ubound(split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,","))

集各家所长.

@echo off

for /f "delims=" %%i in ('findstr /n .* a.txt') do (

set "var=%%i"

call :ss

)

echo.&echo  共有 %a% 个逗号.

echo.&pause&exit

:ss

set "num=%var:"=%"

set "num=%num:*:=%"

:lis

echo "%num%"|findstr ",">nul&&(

set/a a+=1

set "num=%num:*,=%"

goto lis

)

setlocal ENABLEDELAYEDEXPANSION

set var=!var:*:=!

echo.!var!

endlocal

goto :eof

不用延迟好像也可以

@echo off

for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do (

echo.%%j

set "var=%%i%%j"

call :ss

)

echo.&echo  共有 %a% 个逗号.

echo.&pause&exit

:ss

set "num=%var:"=%"

set "num=%num:*:=%"

:lis

echo "%num%"|findstr ",">nul&&(

set/a a+=1

set "num=%num:*,=%"

goto lis

)

goto :eof

Last edited by 26933062 on 2007-8-7 at 03:04 PM ]

呵呵。不用显示的话：

@echo %on% off

set n=0

for /f "delims=" %%a in (a.txt) do (

	set "str=%%a"

	call set "str=%%str:"=%%"

	call :ct

)

echo 共有%n%个逗号。

pause&&goto :eof

:ct

set m=0

:ct2

call set "onestr=%%str:~%m%,1%%"

set /a m+=1

if "%onestr%"=="," set /a n+=1

if "%onestr%"=="" goto :eof

goto :ct2

楼上知道我是谁了吧~~ 呵呵