批处理FOR语句训练：数字排列

skuny · 发表于 2010-12-25 15:17:55

@echo off
setlocal enabledelayedexpansion
:111
set /p n=请输入一行数字的个数（25以内）
set /p m=请输入重复的个数
if not defined n goto 111
if not defined m goto 111
set /a b=101
for /l %%a in (1 1 4) do (
set num=%%a
set /a a=!num!*!n!+100
for /l %%i in (!b!,1,!a!) do (
set str=%%i
set "e=!e! !str:~1,2!"
)
set /a b=!a!+1
for /l %%i in (1 1 !m!) do set/p=!e!<nul
echo.
set "e="
)
pause

复制代码

[ 本帖最后由 skuny 于 2010-12-25 15:19 编辑 ]

zpp · 发表于 2013-2-1 16:47:13

@echo off

setlocal enabledelayedexpansion

set /p n=请输入块数N:

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

set a=

for /l %%j in (1 1 %n%) do set a=!a! %%i

echo !a!

)

ann · 发表于 2014-12-22 19:09:09

想用1句把它输出来，结果没实现

@echo off
set "aa=01 02 03 04"
set "bb=05 06 07 08"
set "cc=09 10 11 12"
set /p sr=请输入数据：
cls
for /l %%a in (1 1 %sr%) do (set /p =%aa%<nul )
echo=
for /l %%c in (1 1 %sr%) do (set /p =%bb%<nul )
echo=
for /l %%d in (1 1 %sr%) do (set /p =%cc%<nul )
echo=
pause>nul

复制代码

shelluserwlb · 发表于 2014-12-24 15:46:49

@echo off
set "a=01 02 03 04" & set "b=05 06 07 08"
set "c=09 10 11 12" & set "d=13 14 15 16"
set "str=abcd" & set /a n=0
set /p ncount=请输入列数:
:again
call call set "s=%%%%str:~%n%,1%%%%"
for /l %%i in (1,1,%ncount%) do (call set /p=%%%s%%% <nul)
echo. & set /a n+=1
if %n% lss 4 goto :again
pause>nul

复制代码

shelluserwlb · 发表于 2014-12-24 15:48:26

本帖最后由 shelluserwlb 于 2014-12-24 15:54 编辑

回复 3# vsbat
代码中应尽量不要使用临时文件吧。

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考