批处理怎样实现排列组合？

fanfande

一个排列组合的问题,已经有初步思路：基本模型如下:

1. 
   
2. 
   
3. @echo off
   
4. set ".1=a"
   
5. set ".2=b"
   
6. set ".3=c"
   
7. set n=3
   
8. set "prefix=<title>"
   
9. set "suffix=</title>"
   
10. cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
    
11. for /f "delims=" %%a in ('dir /a-d/b *.html') do (
    
12.   set file=%%a
    
13.   setlocal enabledelayedexpansion
    
14.   set /a n=!random!%%n+1
    
15.   (
    
16.     for %%a in (!n!) do echo;!prefix!!.%%a!!suffix!
    
17.     more "!file!"
    
18.   ) > "%temp%\~tmp"
    
19.   move "%temp%\~tmp" "!file!"
    
20.   endlocal
    
21. )
    
22. pause
    
23. 
    

复制代码

现在运行系列只能生成
<title>a</title>
<title>b</title>
<title>c</title>

我本意是生成这样的p33的排列组合结果里面任意取3个即可

<title>abc</title>
<title>ab</title>
<title>ac</title>
<title>bc</title>
<title>bc</title>
这样的

明白我意思了吗?

batman

1. 
   
2. @echo off
   
3. for %%a in (a b c) do (
   
4.     for %%b in (a b c) do (
   
5.         for %%c in (a b c) do (
   
6.             if %%a neq %%b if %%a neq %%c if %%b neq %%c echo %%a%%b%%c
   
7.         )
   
8.     )
   
9. )
   
10. pause>nul
    

复制代码

fanfande

你好,超级版主,还漏掉结果是
ab
ac
bc
这样的3个结果,

可以帮我和上面的我原始的部分结合起来吗,谢谢

523066680

看你一楼的结果看晕了…… 为什么是两个bc....

组合

1. @echo off
   
2. call :func "abc" ""
   
3. pause &exit
   
4. 
   
5. :func
   
6. setlocal
   
7. if %1=="" (
   
8.     if not %2=="" (echo %2)
   
9.     goto :eof
   
10. )
    
11. set strnow=%~1
    
12.    call :func "%strnow:~1%" "%~2%strnow:~0,1%"
    
13.    call :func "%strnow:~1%" "%~2"
    
14. endlocal

复制代码

fanfande

你好,版主,不好意思我确实一开始 写错了,多了个bc,对不起哦.让大家理解错了!

我第一段的意思是
a
b
c
这样随机取a  b  c  放置title之间

当前需求是abc 的排列组合放置title之间

比如
<title>abc</title>
<title>ab</title>
<title>ac</title>
<title>bc</title>

麻烦帮我整合一下bat,就是把

1. set "prefix=<title>"
   
2. set "suffix=</title>"
   
3. cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
   
4. for /f "delims=" %%a in ('dir /a-d/b *.html') do (
   
5.   set file=%%a
   
6.   setlocal enabledelayedexpansion
   
7.   set /a n=!random!%%n+1
   
8.   (
   
9.     for %%a in (!n!) do echo;!prefix!!.%%a!!suffix!
   
10.     more "!file!"
    
11.   ) > "%temp%\~tmp"
    
12.   move "%temp%\~tmp" "!file!"
    
13.   endlocal
    
14. )
    
15. pause

复制代码

结合起来,谢谢!

fanfande

最好生成后是替换掉原来
<title>替换前</title>

fanfande

哎,很多东西要学啊,都是一知半解 ,

感觉bat 和 正则表达式 都是非常 nb的东西 !

哈哈,发感慨了,期待 答案 !谢谢 ~~

fanfande

大伙上班了吗?繁忙的一个礼拜又开始了 ~

523066680

=。= 上班ing ..偷偷折腾。

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. call :func "abc" ""
   
4. pause &exit
   
5. 
   
6. :func
   
7. setlocal
   
8. set tmpstr=%~2
   
9. if %1=="" (
   
10.    if not %2=="" (
    
11.       if not "!tmpstr:~1!"=="" (echo ^<title^>!tmpstr!^</title^>)
    
12.    )
    
13.    goto :eof
    
14. )
    
15. set strnow=%~1
    
16.    call :func "%strnow:~1%" "%~2%strnow:~0,1%"
    
17.    call :func "%strnow:~1%" "%~2"
    
18. endlocal

复制代码

523066680

那个时候做组合，绕弯路的
根据楼主的情况，组合中只有一位字母的不进行显示。

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. call :func "abc" "" 0
   
4. pause &exit
   
5. 
   
6. :func
   
7. set tmpstr=%~2
   
8. if not "!tmpstr!"=="" (
   
9.   if not "!tmpstr:~1!"=="" (echo ^<title^>!tmpstr!^<\title^>)
   
10. )
    
11. if %1=="" (goto :eof)
    
12. setlocal
    
13.   set strnow=%~1
    
14.   set /a lp=0,lpb=lp+1
    
15.   :lp
    
16.     call :func "!strnow:~%lpb%!" "%~2!strnow:~%lp%,1!"
    
17.   if not "!strnow:~%lpb%!"=="" (
    
18.     set /a lp+=1,lpb=lp+1
    
19.     goto :lp
    
20.   )
    
21. endlocal

复制代码

[ 本帖最后由 523066680 于 2010-7-5 11:05 编辑 ]

523066680

按照LZ的情况，字母不多，N层for最方便，速度也快， 组合这个东西
就是每个元素存在与不存在的情况，分别组合起来的结果。
依然根据要求，中间加了判断，若结果是一个字符的就不显示了。

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for %%a in ("a" "") do (
   
4. for %%b in ("b" "") do (
   
5.   for %%c in ("c" "") do (
   
6.      set str=%%~a%%~b%%~c
   
7.      if not "!str!"=="" (
   
8.        if not "!str:~1!"=="" (
   
9.            echo ^<title^>!str!^</title^>
   
10.        )
    
11.      )
    
12.   )
    
13. )
    
14. )
    
15. pause

复制代码

fanfande

你好523

最后一段测试下来蛮不错的!
我假如用来将 指定文件夹:
C:\Documents and Settings\Administrator\桌面\新建文件夹

里面所有html 里面的<title>原有标题</title>

替换掉,如何写入呢?
即下列代码 ,指定 文件夹,指定文件格式

最好是这样的格式去定义:

set ".1=a"
set ".2=b"
set ".3=c"
set n=3

会比较方便! 谢谢 ~

1. cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
   
2. for /f "delims=" %%a in ('dir /a-d/b *.html') do (

复制代码

谢谢523 ~
期待最全bat ~

[ 本帖最后由 fanfande 于 2010-7-5 22:55 编辑 ]

523066680

我重新看了一下，目标是：
元素 存在.1 .2 .3 中    并且变量n记录了个数。

然后 获得这三个元素的所有组合，作为随机的标题
对于指定目录中的所有html文件，
给予一个随机的 <title> 对吗？

fanfande

是的

替换原有指定目录中所有的html文件里面的

<title>原有 </title>


523你理解的很对!

趁 ~中午饭来看下! 天气热,大家注意多喝水~

523066680

主要考虑到代码结构上的不同
我没按你的 .1 .2  .3 这样固定元素
而是从开头  set element=a b c
组合的时候如果元素只有一个，会跳过。

1. @echo off &setlocal enabledelayedexpansion
   
2. 
   
3. set element=a b c
   
4. 
   
5. ::构造for语句...
   
6. for %%x in (%element%) do (
   
7.   set "fo=for %%%%x in ("%%x" "") do (!fo!"
   
8.   set end="!end!)"
   
9.   set result=!result!%%~%%x
   
10. )
    
11. 
    
12. set n=0
    
13. ::把for语句拿出来用了。中间的判断筛选需要的组合
    
14. %fo%
    
15.   set nowstr=%result%
    
16.   if not "!nowstr!"=="" (
    
17.      if not "!nowstr:~1!"=="" (
    
18.          set /a n+=1
    
19.          set item_!n!=^<title^>!nowstr!^</title^>
    
20.          echo 筛选出的组合:!nowstr!
    
21.      )
    
22.   )
    
23. %end:"=%
    
24. 
    
25. ::随机获取那些组合
    
26. cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
    
27. for /f "delims=" %%a in ('dir /a-d/b *.html') do (
    
28.   set /a rand=!random!%%n+1
    
29.   for %%x in (!rand!) do (
    
30.     echo 指向的文件: %%a , 选择的标题!item_%%x!
    
31.     (
    
32.       echo !item_%%x!
    
33.       type "%%a"
    
34.      )>"%%a"
    
35.   )
    
36. )
    
37. pause
    
38. exit

复制代码

哼哼!用了某个特性， 这个代码的路线基本只有批处理能走……

[ 本帖最后由 523066680 于 2010-7-7 13:23 编辑 ]