中国DOS联盟

Originally posted by dikex at 2009-1-8 01:14 AM:
如果有三个或以上怎么办？
如：
1110
11110

Originally posted by netbenton at 2009-1-8 02:35 AM:
@echo off
for /f "skip=15" %%i in (%~n0%~x0) do (
setlocal enabledelayedexpansion
set ru=0
set v=%%i
for /l %%i in (1,1,20) do (if defined v (call set "a=!v:~0,1!"&call ...

@echo off&setlocal enabledelayedexpansion

set _str=%random%&set str=!_str!

set j=

:loop

if "%str%" neq "" (

	set i=%str:~0,1%

	if not defined str!i! (set str!i!=1) else set/a str!i!+=1,j=0

	set str=%str:~1%

	goto loop

)

if defined j (

for /f "tokens=1,2delims==" %%i in ('set str')do if %%j gtr 1 set str=%%i&set "strout=!strout!!str:~3,1!和"&set/a j+=%%j/2

echo %_str% 有!j!对（!strout:~0,-1!）

) else echo %_str% 有0对

pause>nul

Originally posted by linee at 2009-1-8 02:39 PM:

@echo off&setlocal enabledelayedexpansion

set _str=%random%&set str=!_str!

set j=

:loop

if "%str%" neq "" (

	set i=%str:~0,1%

	if not defined str!i! (set str ... 

Originally posted by linee at 2009-1-8 02:39 PM:

@echo off&setlocal enabledelayedexpansion

set _str=%random%&set str=!_str!

set j=

:loop

if "%str%" neq "" (

	set i=%str:~0,1%

	if not defined str!i! (set str ... 

Originally posted by clian76 at 2009-1-8 17:22:

不知道这里能不能去掉标签:loop，把它变成FOR方式，或其它方法，可行吗？

Originally posted by linee at 2009-1-8 06:33 PM:

这里感觉还是用if goto简单点，用for不好实现吧。

Originally posted by clian76 at 2009-1-8 18:43:

这里我想打出多组随机数字串，想把开始转换成用:
FOR /F %%I IN ('echo %random%^&echo.%random%^&echo.%random%') do (
再让程序把这三组随机数字串的对子数 ...

@echo off

FOR /F %%a IN ('echo %random%^&echo %random%^&echo %random%') do (

    setlocal enabledelayedexpansion

    set _str=%%a&set str=!_str!

    set j=

    for /l %%x in (1,1,5) do (

	if "!str!" neq "" (

	    set i=!str:~0,1!

	    if not defined str!i! (set str!i!=1) else set/a str!i!+=1,j=0

	    set str=!str:~1!

    )   )

    if defined j (

	for /f "tokens=1,2delims==" %%i in ('set str')do if %%j gtr 1 set str=%%i&set "strout=!strout!!str:~3,1!和"&set/a j+=%%j/2

	echo !_str! 有!j!对（!strout:~0,-1!）

    ) else echo !_str! 有0对

    endlocal

)

pause&goto:EOF

Originally posted by linee at 2009-1-8 09:06 PM:

这样试试，

@echo off

FOR /F %%a IN ('echo %random%^&echo %random%^&echo %random%') do (

    setlocal enabledelayedexpansion

    set _str=%%a&set str=!_str!

    set j=

 ... 

Originally posted by clian76 at 2009-1-8 23:17:

有什么办法把变量：
!_str!
!j!
!strout:~0,-1!
拿到endlocal之后，就是这里的PAUSE之后让程序正常显示变量。我试了把endlocal拿到代码最后，这样程序就 ...