youxi01

再来一个越来越长的，呵呵

@echo off 2>nul 3>nul
for /f "delims=" %%i in (%~0) do set "n=%%i"
set /a n+=1,1/n && call echo 第%%n%%次运行
pause>nul
>>%~0 echo %n%
goto :eof
-1
复制代码

pusofalse

来个会越来越长的：

@echo off
rem 最后一行不能是空行。
for /f %%a in ('findstr /v $ "%~f0"') do set /a n=%%a+1 & if "%%a" neq "pause" echo 已经运行%%a次
>>"%~f0" (echo\& <nul set /p=%n%)
pause & exit /b
复制代码

batman

原帖由 mkl 于 2008-10-24 22:52 发表
@echo off
if not exist time echo 0>time
set/p a=time
pause

echo 0>time只会生成一个空文件

mkl

@echo off 
if not exist time echo 0 >time 
set/p a=<time
set/a a+=1
echo 这是第%a%次运行程序
echo %a% >time
pause
复制代码

[ 本帖最后由 mkl 于 2008-10-25 11:00 编辑 ]

qq641255849

为啥各位大大都喜欢将代码写得那么紧凑?看得很辛苦哦...

rat

@echo off
call :n
calc
exit /b
-------------------------------------------------------------
:n
setlocal&set m="%~f0"
for /f "usebackq" %%a in (%m%)do if defined f (set n=%%a)else if "%%a"=="::n" set f=1
set/an+=1&if %n% geq 1 echo 已经运行了%n%次！&pause
for /f "usebackq delims=" %%a in (%m%)do if defined f (echo.%%a>%m%&set f=)else if defined x (echo.%n%>>%m%&goto:eof)else echo.%%a>>%m%&if "%%a"=="::n" set x=1
::n
0
复制代码

Batcher

没有读写注册表的？

batman

原帖由 shqf 于 2008-10-24 21:40 发表
@echo off
set name=%~n0
set num=%name:~4%
if not "%num%" == "0" (echo 你已经运行本程序%num%次了&&goto count)

:count
set /a num=%num%+1
copy %0 test%num%.bat>nul
echo 欢迎光临 WWW.bathome.net
...

不合题意，不合要求！

batman

::0
@echo off
set /p num=<%~fs0
set "num=%num:~2%"
if %num% neq 0 echo.&echo 程序已运行了%num%次
set /a num+=1&pause>nul
for /f "delims=" %%i in (%~fs0) do (
    if not defined flag (
       echo ::%num%>%~fs0&set "flag=a"
       ) else (
       echo %%i>>%~fs0
    )
)
复制代码

shqf

@echo off
set name=%~n0
set num=%name:~4%
if not "%num%" == "0" (echo 你已经运行本程序%num%次了&&goto count)

:count
set /a num=%num%+1
copy %0 test%num%.bat>nul
echo 欢迎光临 WWW.bathome.net
echo 按任意键结束本程序...&pause>nul
del %0
复制代码

[ 本帖最后由 shqf 于 2008-10-24 21:41 编辑 ]

pusofalse

回复more兄，好像看错题意了。第一次运行时什么也不会输出，到运行第二次时才输出“已经运行1次”。25楼同是如此的问题。

qq641255849

@echo off

set code=你们的身影是我最长的期望

for /l %%a in (10 -1 0) do (

for /f "skip=2 tokens=*" %%b in ('find "%code%%%a" %0') do (if not "%%b" equ "" (set /a 



t=%%a,n=%%a+1&goto :a)))

:a

if "%t%" equ "0" (echo 我不会让你看见"%code%"的) else (echo 这是你第%t%次看见"%code%")

>>%0 echo 你们的身影是我最长的期望%n%

pause>nul

你们的身影是我最长的期望0
复制代码

不知道这样是否符合要求.
按照版主大大的要求改了一下,期待高效率的方法出现!!

[ 本帖最后由 qq641255849 于 2008-10-24 18:38 编辑 ]

jellyhk

@echo off
echo i love bathome.net
if exist 1.txt goto b
if not exist 1.txt goto a
:a
>1.txt echo 1
goto :eof
:b
set /p i=<1.txt&&>2.txt echo 1&&set /p o=<2.txt
set /a a=%i%+%o%
echo %a% >1.txt
type 1.txt&del 2.txt
pause
goto :eof
pause

碍与我没时间了不能完善！就只能这样了！
本人思路：
把次数加在文件里。在拿出来
缺点：没掉出框框，因为我这里不能用msg命令不知道为什么！就没测试了！
=================================================================
做代码的时候搞出了1个问题请教！
-----
把代码

echo i love bathome.net

:a
>1.txt echo 1
goto :eof
:b
set /p i=<1.txt&&>2.txt echo 1&&set /p o=<2.txt
set /a a=%i%+%o%
echo %a% >1.txt
type 1.txt&del 2.txt
pause
goto :eof
if exist 1.txt goto b
if not exist 1.txt goto a
pause

蓝色的地方换了个位子就不能在1.txt文件里递加了！里面的内容一直是1
难道是运行了
：a标签后的 ？不过:a标签为什么可以运行？不是我用代码限制了吗？
if not exist 1.txt goto a


[ 本帖最后由 jellyhk 于 2008-10-24 05:09 编辑 ]

jellyhk

more兄的代码貌似有点问题！
按任意键却继续运行程序？不好吧！

more

:0
@echo off
for /f "delims=" %%a in ('type %0') do (set "str=%%a"&goto :out)
:out
set "str=%str::=%"
set /a "str+=1"
for /f "delims=" %%a in ('type %0') do (
   if not defined god (
      set god=hell
      >%0 echo :%str%
   ) else (
       >>%0 echo %%a
   )
)
if %str% gtr 1 (echo %str% times already) else (echo This is the first time)
rem 如果上面这行有中文会出错,不解...
set "god="&pause>nul&goto :%str%
复制代码

[ 本帖最后由 more 于 2008-10-24 00:52 编辑 ]