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

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2010-6-28 16:37 | 只看该作者

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

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

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



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

明白我意思了吗?
收藏 分享

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
27楼
发表于 2010-7-27 23:05 | 只看该作者
请问, 帮主不在吗?
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
26楼
发表于 2010-7-27 23:05 | 只看该作者
请问, 帮主不在吗?
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
25楼
发表于 2010-7-26 08:23 | 只看该作者
版主帮忙看一下,谢谢!
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
24楼
发表于 2010-7-23 11:54 | 只看该作者
回复随风 版主的几个问题:

①每个html文件只有一个<title>这里显示成标题</title>

②不是预先设置中文标题,当然也可以预先设置好标题,这里是随机已经设定的几个标题然后让他去替换原有的html里面的
<title>这里显示成标题</title>
至于多少个标题,完全对应于有几个html文件!

③最终结果不是每个html文件都统一标题,那就没有意义了,而是让每个html文件用随机产生的标题去替换,最终的目的就是尽可能的让每个html文件的标题不一样 ,谢谢 版主关心!

这2个问题也帮我处理下,不甚感激!
http://www.bathome.net/thread-8470-1-1.html
http://www.bathome.net/thread-8469-1-1.html
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

随风

Rank: 8Rank: 8

帖子
1759 
积分
5387 
技术
51  
捐助
210  
注册时间
2007-10-26 
23楼
发表于 2010-7-22 15:46 | 只看该作者
不懂 html 文件，请问里面会有多个  <title>标题</title>   需要替换吗？
还有，你先设定几个中文标题，到底是多少个标题可以确定吗？
还有，是所有html文件都替换为统一标题，还是每个html文件随机替换为某个标题？

[ 本帖最后由 随风 于 2010-7-22 15:48 编辑 ]
技术问题请到论坛发帖求助！

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
22楼
发表于 2010-7-22 14:31 | 只看该作者
原有的<title>   <title>
仍然存在呢!

当前测试下来是"如下结果"还是有点小bug:
  1. <title>搜狐网中华网</title>

  2. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">

  3. <HTML xmlns="http://www.w3.org/1999/xhtml">

  4. <HEAD>

  5. <title>个人主页</title>
复制代码
原则上来讲应该将
<title>个人主页</title>全部重写为
<title>搜狐网中华网</title>

也就是说一个html里面只有一个
<title>搜狐网中华网</title>了,把之前的
<title>个人主页</title>干掉了

其实说白了就是替换原有的

<title> 这里是将要被替换掉的文字 </title> 中间的文字

其中<title>  </title>不分大小写!


谢谢你小兄弟!
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
21楼
发表于 2010-7-16 09:42 | 只看该作者
=。=
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. 

  4. set /a strn=0

  5. set item_a=搜狐网

  6. set item_b=新浪网

  7. set item_c=腾讯网

  8. set item_d=中华网

  9. 

  10. ::现在调用函数，组合abcd字符，一个字母的掠过

  11. call :func "abcd" ""

  12. echo 筛选出的组合个数%strn%

  13. 

  14. ::开始文件操作

  15. cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"

  16. for /f "delims=" %%a in ('dir /a-d/b *.html') do (

  17.   set file=%%a

  18.   setlocal enabledelayedexpansion

  19.   set /a n=!random!%%strn+1

  20.   for %%x in (!n!) do (echo; !str_%%x! - %%a)

  21.   (

  22.     for %%y in (!n!) do echo;!str_%%y!

  23.     type "!file!"

  24.   )> "%temp%\~tmp"

  25.   move "%temp%\~tmp" "!file!"

  26.   endlocal

  27. )

  28. pause &exit

  29. 

  30. :func

  31. set tmpstr=%~2

  32. if %1=="" (

  33.    if not %2=="" (

  34.       if not "!tmpstr:~2!"=="" (

  35.            set /a strn+=1

  36.            set "tmpstr2="

  37.            for %%i in (!tmpstr!) do (set tmpstr2=!tmpstr2!!item_%%i!)

  38.            echo 筛选的组合 !tmpstr2!

  39.            set "str_!strn!=^<title^>!tmpstr2!^</title^>"

  40.       )

  41.    )

  42.    goto :eof

  43. )

  44. set strnow=%~1

  45. call :func "%strnow:~1%" "%~2 %strnow:~0,1%"

  46. set strnow=%~1

  47. call :func "%strnow:~1%" "%~2"

  48. goto :eof
复制代码

[ 本帖最后由 523066680 于 2010-7-16 09:45 编辑 ]
FuniCode 编程论坛

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
20楼
发表于 2010-7-16 02:02 | 只看该作者
哥,帮我出个完整的吧!
我工作中经常碰到这样的事情,

按照18楼的思路,不甚感激,甚至酬谢!
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
19楼
发表于 2010-7-11 08:59 | 只看该作者
我了个去，赶紧闪…… 我什么也不知道我什么也不知道……


哦 ，我还是说一下，你可以用 a代表  腾讯网    b代表中华网  c代表搜狐网

然后 abc排了以后，你把  a b c从字符的角度分别替换成他们对应的网，就可以了吧...

最后重申：我什么也不知道我什么也不知道……
FuniCode 编程论坛

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
18楼
发表于 2010-7-10 23:35 | 只看该作者
523066680 你好又要麻烦你了,前2天出差了! 事情是这样的,也许是我的描述不能让大家理解清楚:

原始状态是:

①一个文件夹里面一堆html文件,html文件有自己的<title>这里是原有的标题</title>

②需求一个bat执行,先设定几个中文标题,这里我打个比方,比如:  搜狐网  新浪网 腾讯网 中华网

③让bat随机组合这些中文标题,使之结果形如:
搜狐网新浪网
搜狐网腾讯网
搜狐网中华网
新浪网腾讯网
新浪网中华网
腾讯网中华网
.....

④将这些组合的结果替换该文件夹里面的所有html的原来的  <title>这里是需要替换的文字</title>
使得这些html的标题变成

<title>搜狐网新浪网</title>
<title>搜狐网腾讯网</title>
<title>搜狐网中华网</title>
<title>新浪网腾讯网</title>
<title>新浪网中华网</title>
<title>腾讯网中华网</title>


万分谢谢,不好意思,出差了,没来收帖子!
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
17楼
发表于 2010-7-7 17:24 | 只看该作者

回复 16楼 的帖子

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

我的主要是针对字符串的。 在调用函数的那句 call  :func "你是谁" ""  (测试中文额。。。)
如果你一定要我 .1 .2 .3 那么我必须另写一段代码， 判断n=3 然后将.1.2.3 结合起来然后
调用。这对我的代码路线来说就是一个弯路呐。
所以我决定不写这个部分了，而且楼主自己也有能力自己改上的。

文件操作部分按照你的意思，
现在我直接复制你的代码，直接在上面修改了。

组合的代码也改了，速度是慢些，不过调用一次关系不大。
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. 

  4. set /a strn=0

  5. call :func "你是谁" ""

  6. echo 筛选出的组合个数%strn%

  7. ::开始文件操作

  8. cd /d "C:\Documents and Settings\Administrator\桌面\新建文件夹"

  9. for /f "delims=" %%a in ('dir /a-d/b *.html') do (

  10.   set file=%%a

  11.   setlocal enabledelayedexpansion

  12.   set /a n=!random!%%strn+1

  13.   for %%x in (!n!) do echo; !str_%%x! - %%a 

  14.   (

  15.     for %%x in (!n!) do echo;!str_%%a!

  16.     more "!file!"

  17.   )> "%temp%\~tmp"

  18.   move "%temp%\~tmp" "!file!"

  19.   endlocal

  20. )

  21. pause &exit

  22. 

  23. 

  24. :func

  25. set tmpstr=%~2

  26. if %1=="" (

  27.    if not %2=="" (

  28.       if not "!tmpstr:~1!"=="" (

  29.            set /a strn+=1

  30.            echo 筛选的组合 !tmpstr!

  31.            set "str_!strn!=^<title^>!tmpstr!^</title^>"

  32.       )

  33.    )

  34.    goto :eof

  35. )

  36. set strnow=%~1

  37. call :func "%strnow:~1%" "%~2%strnow:~0,1%"

  38. set strnow=%~1

  39. call :func "%strnow:~1%" "%~2"

  40. goto :eof
复制代码




恩我交代一下：
set /a strn=0
call :func "元素" ""
调用 func函数， 第二参数为空。
调用之后，函数会把组合的结果  储存到 str_1 ，str_2 ， str_3...这样的变量中
最后 strn会等于组合结果的个数。(显然是筛选过的，只有一个字符的组合去掉)

然后就可以自己改了吧。

[ 本帖最后由 523066680 于 2010-7-7 17:43 编辑 ]
FuniCode 编程论坛

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
16楼
发表于 2010-7-7 16:24 | 只看该作者
我来了

请问 为啥您不用
  1. set ".1=a"

  2. set ".2=b"

  3. set ".3=c"

  4. set n=3
复制代码
这样定义呢?

我运行下来出现2个bug

①当a b  c 改成中文时不执行

②替换指定的文件,他将文件全部删除了,而不是单单替换的原来的<title></title> 之间的内容!

版主可以自己测试下,不甚感激啊~
有创新，多创新；无创新，多模仿；无模仿，多坚持

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
15楼
发表于 2010-7-7 13:17 | 只看该作者
主要考虑到代码结构上的不同
我没按你的 .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 编辑 ]
FuniCode 编程论坛

TOP

fanfande

Rank: 5Rank: 5

帖子
273 
积分
890 
技术
0  
捐助
66  
注册时间
2010-5-31 
14楼
发表于 2010-7-6 12:09 | 只看该作者
是的

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

<title>原有 </title>


523你理解的很对!

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

TOP

12
返回列表