[文本处理] 批处理怎样实现排列组合？

fanfande

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

 
 
@echo off
set ".1=a"
set ".2=b"
set ".3=c"
set n=3
set "prefix=<title>"
set "suffix=</title>"
cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
for /f "delims=" %%a in ('dir /a-d/b *.html') do (
  set file=%%a
  setlocal enabledelayedexpansion
  set /a n=!random!%%n+1
  (
    for %%a in (!n!) do echo;!prefix!!.%%a!!suffix!
    more "!file!"
  ) > "%temp%\~tmp"
  move "%temp%\~tmp" "!file!"
  endlocal
)
pause
复制代码

现在运行系列只能生成
<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

@echo off
for %%a in (a b c) do (
    for %%b in (a b c) do (
        for %%c in (a b c) do (
            if %%a neq %%b if %%a neq %%c if %%b neq %%c echo %%a%%b%%c
        ) 
    )
)
pause>nul 
复制代码

fanfande

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

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

523066680

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

组合

@echo off
call :func "abc" ""
pause &exit

:func
 setlocal
 if %1=="" (
    if not %2=="" (echo %2)
    goto :eof
 )
 set strnow=%~1
   call :func "%strnow:~1%" "%~2%strnow:~0,1%"
   call :func "%strnow:~1%" "%~2"
 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,就是把

set "prefix=<title>"
set "suffix=</title>"
cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
for /f "delims=" %%a in ('dir /a-d/b *.html') do (
  set file=%%a
  setlocal enabledelayedexpansion
  set /a n=!random!%%n+1
  (
    for %%a in (!n!) do echo;!prefix!!.%%a!!suffix!
    more "!file!"
  ) > "%temp%\~tmp"
  move "%temp%\~tmp" "!file!"
  endlocal
)
pause
复制代码

结合起来,谢谢!

fanfande

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

fanfande

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

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

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

fanfande

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

523066680

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

@echo off
setlocal enabledelayedexpansion
call :func "abc" ""
pause &exit

:func
 setlocal
 set tmpstr=%~2
 if %1=="" (
   if not %2=="" (
      if not "!tmpstr:~1!"=="" (echo ^<title^>!tmpstr!^</title^>)
   )
   goto :eof
 )
 set strnow=%~1
   call :func "%strnow:~1%" "%~2%strnow:~0,1%"
   call :func "%strnow:~1%" "%~2"
 endlocal
复制代码

523066680

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

@echo off
setlocal enabledelayedexpansion
call :func "abc" "" 0
pause &exit

:func
set tmpstr=%~2
if not "!tmpstr!"=="" (
  if not "!tmpstr:~1!"=="" (echo ^<title^>!tmpstr!^<\title^>)
)
if %1=="" (goto :eof)
setlocal
  set strnow=%~1
  set /a lp=0,lpb=lp+1
  :lp
    call :func "!strnow:~%lpb%!" "%~2!strnow:~%lp%,1!"
  if not "!strnow:~%lpb%!"=="" (
    set /a lp+=1,lpb=lp+1
    goto :lp
  )
endlocal
复制代码

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

523066680

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

@echo off
setlocal enabledelayedexpansion
for %%a in ("a" "") do (
 for %%b in ("b" "") do (
  for %%c in ("c" "") do (
     set str=%%~a%%~b%%~c
     if not "!str!"=="" (
       if not "!str:~1!"=="" (
           echo ^<title^>!str!^</title^>
       )
     )
  )
 )
)
pause
复制代码

fanfande

你好523

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

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

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

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

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

会比较方便! 谢谢 ~

cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
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
组合的时候如果元素只有一个，会跳过。

@echo off &setlocal enabledelayedexpansion

set element=a b c

::构造for语句...
for %%x in (%element%) do (
  set "fo=for %%%%x in ("%%x" "") do (!fo!"
  set end="!end!)"
  set result=!result!%%~%%x
)

set n=0
::把for语句拿出来用了。中间的判断筛选需要的组合
%fo%
  set nowstr=%result%
  if not "!nowstr!"=="" (
     if not "!nowstr:~1!"=="" (
         set /a n+=1
         set item_!n!=^<title^>!nowstr!^</title^>
         echo 筛选出的组合:!nowstr!
     )
  )
%end:"=%

::随机获取那些组合
cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"
for /f "delims=" %%a in ('dir /a-d/b *.html') do (
  set /a rand=!random!%%n+1
  for %%x in (!rand!) do (
    echo 指向的文件: %%a , 选择的标题!item_%%x!
    (
      echo !item_%%x!
      type "%%a"
     )>"%%a"
  )
)
pause
exit
复制代码

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

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