523066680

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

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

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

按照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
复制代码

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

=。= 上班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
复制代码

fanfande

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

fanfande

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

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

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

fanfande

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

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
复制代码

结合起来,谢谢!

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

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

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

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 
复制代码