批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理怎样输出0-9规则文本？ [打印本页]

作者: w1983912 时间: 2011-4-15 09:06 标题: 批处理怎样输出0-9规则文本？

a.txt内容
$cc="{$bx1[1][0]},{$bx1[1][0]},{$bx1[1][0]},{$bx1[1][0]}";
变
规则是{$bx1[1][0]}    变 {$bx1[1][0-9]}
  1.  所有行都不重复
2. 且4个变量从0-9开始，都不重复

以下是按顺序从0-9得到b.txt  （可按顺序也可不按顺序）：
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][2]},{$bx1[1][3]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][2]},{$bx1[1][4]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][2]},{$bx1[1][5]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][2]},{$bx1[1][6]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][2]},{$bx1[1][7]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][2]},{$bx1[1][8]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][2]},{$bx1[1][9]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][3]},{$bx1[1][2]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][3]},{$bx1[1][4]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][3]},{$bx1[1][5]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][3]},{$bx1[1][6]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][3]},{$bx1[1][7]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][3]},{$bx1[1][8]}";
$cc="{$bx1[1][0]},{$bx1[1][1]},{$bx1[1][3]},{$bx1[1][9]}";
......................
$cc="{$bx1[1][0]},{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][3]}";
$cc="{$bx1[1][0]},{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][4]}";
$cc="{$bx1[1][0]},{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][5]}";
$cc="{$bx1[1][0]},{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][6]}";
$cc="{$bx1[1][0]},{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][7]}";
....................
$cc="{$bx1[1][6]},{$bx1[1][7]},{$bx1[1][8]},{$bx1[1][3]}";
$cc="{$bx1[1][6]},{$bx1[1][7]},{$bx1[1][8]},{$bx1[1][4]}";
$cc="{$bx1[1][6]},{$bx1[1][7]},{$bx1[1][8]},{$bx1[1][5]}";
$cc="{$bx1[1][6]},{$bx1[1][7]},{$bx1[1][8]},{$bx1[1][6]}";
$cc="{$bx1[1][6]},{$bx1[1][7]},{$bx1[1][8]},{$bx1[1][7]}";
$cc="{$bx1[1][6]},{$bx1[1][7]},{$bx1[1][8]},{$bx1[1][9]}";
......................
$cc="{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][7]},{$bx1[1][2]}";
$cc="{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][7]},{$bx1[1][3]}";
$cc="{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][7]},{$bx1[1][4]}";
$cc="{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][7]},{$bx1[1][5]}";
$cc="{$bx1[1][9]},{$bx1[1][8]},{$bx1[1][7]},{$bx1[1][6]}";
最大的就是最后这个9876了

希望懂得的朋友帮我谢谢

作者: batman 时间: 2011-4-15 09:12

排列问题？最大的应该是9999吧

作者: batman 时间: 2011-4-15 09:19

@echo off
(for /l %%a in (0,1,9) do (
    for /l %%b in (0,1,9) do (
        for /l %%c in (0,1,9) do (
            for /l %%d in (0,1,9) do (
                echo $cc="{$bx1[1][%%a]},{$bx1[1][%%b]},{$bx1[1][%%c]},{$bx1[1][%%d]}";
            )
         )
    )
))>b.txt
start b.txt
复制代码

作者: w1983912 时间: 2011-4-15 09:40

不能重复的拉
0001 ，9999，这4个数字都不重复
从最小0123-9876 最大

继续求帮忙

作者: w1983912 时间: 2011-4-15 09:43

可能我也没说清楚。。。。。。门外汗啊

作者: batman 时间: 2011-4-15 10:06

@echo off&setlocal enabledelayedexpansion
set "code=0 1 2 3 4 5 6 7 8 9"
(for %%a in (%code%) do (
    set "str1=!code:%%a=!"
    for %%b in (!str1!) do (
        set "str2=!str1:%%b=!"
        for %%c in (!str2!) do (
            set "str3=!str2:%%c=!"
            for %%d in (!str3!) do (
                echo $cc="{$bx1[1][%%a]},{$bx1[1][%%b]},{$bx1[1][%%c]},{$bx1[1][%%d]}";

            )
        )
    )
))>b.txt
start b.txt
复制代码

作者: zz100001 时间: 2011-4-15 10:21

$cc="{$bx1[1][6]},{$bx1[1][7]},{$bx1[1][8]},{$bx1[1][6]}";

这个不就是重复的么

作者: hanyeguxing 时间: 2011-4-15 10:50

楼主举例从来都是那么让人迷糊......

作者: w1983912 时间: 2011-4-15 12:03

本帖最后由 w1983912 于 2011-4-15 12:06 编辑

出2个 6 是书写错误。。。。。代码很好已经解决谢谢各位朋友

欢迎光临批处理之家 (http://www.bathome.net/)