[已解决]批处理怎样把文件夹的文件内容批量替换？

w1983912

同一目录下有 4文件夹和a.txt

把文件夹里的所有"游戏"字符串  用@@后面的对应替换掉

4个文件夹  @@前面的是文件夹名  只含数字字母      也就是 xmyyy2y   xx55lud   5abccc  pxeke5xxx  这4个文件夹
  @@后面的需要用来覆盖"游戏"字符串的词    只含中文数字字母
"游戏"字符串是这4个文件夹下的固定的x.php文件里都有的字符串  有好几个这样的   全部覆盖替换掉

a.txt内容:
xmyyy2y@@知道   
xx55lud@@合同x路
5abccc@@人民
pxeke5xxx@@旅游abcd

bat 1. 得到
比如文件夹xmyyy2y下的x.php里的所有"游戏"变成"知道"
       文件夹xx55lud下的x.php里的所有"游戏"变成"合同x路"


实际上有很多个这样的文件夹 以上只是以4个举个例子  a.txt的行数和文件夹数相等 都排好了     x.php目前是gbk    如果是utf-8能否批处理呢

------------------------------------------------------------------------------
BAT  2：   同一目录下有：
文件夹名  只含数字字母      也就是 xmyyy2y   xx55lud   5abccc  pxeke5xxx  这4个文件夹
a.txt内容：
xmyyy2y
xx55lud
5abccc
pxeke5xxx
"1234567"字符串是这4个文件夹下的固定的x.php文件里都有的字符串  一个x.php里只有1个“1234567”
bat2A:   1234567覆盖替换掉变成随机的2位数字     如最小的是10   最大是99      
bat2B:   1234567 覆盖替换掉变成随机的3位数字     如最小的是100  最大是999

以上一共3个bat
希望哪位朋友能帮帮我 谢谢了

Demon

你PHP不是很牛么，怎么不用PHP

batman

bat1

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "tokens=1,2 delims=@" %%a in (a.txt) do (
   
4.      for %%c in ("%%a\*.php") do (
   
5.           (for /f "usbackq delims=" %%d in ("%%~dpnxc") do set "str=%%d"&echo !str:游戏=%%b!)>$
   
6.           move $ "%%~dpnxc"
   
7.     )
   
8. )               
   

复制代码

bat2（bat3一样，自己改下随机中的数）

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "delims=" %%a in (a.txt) do (
   
4.     for %%b in ("%%a\*.php") do (
   
5.          set /a a=!random!%%90+10
   
6.          (for /f "usbackq delims=" %%c in ("%%~dpnxb") do (
   
7.                set "str=%%c"
   
8.                for %%c in (!a!) do echo !str:1234567=%%c!
   
9.          ))>$
   
10.          move $ "%%~dpnxb"
    
11.      )
    
12. )
    
13.            
    

复制代码

batman

考虑批处理不能正确处理特殊字符，再给出vbs方案：

1. 
   
2. Dim vbstr, fso, file, folder, choice, str, rpstr
   
3. Do Until choice = 1 Or choice =2
   
4.   choice = InputBox("请选择模式：1.固定替换 2.随机替换")
   
5. Loop
   
6. If choice = 1 Then
   
7.   str = "游戏"
   
8.   Else
   
9.   str = "1234567"
   
10. End If
    
11. Set fso = CreateObject("scripting.filesystemobject")
    
12. Set ws = CreateObject("wscript.shell")
    
13. For Each folder In Split(fso.OpenTextFile("a.txt", 1).ReadAll(), vbCrLf)
    
14.   If choice = 1 Then
    
15.     folder = Split(folder, "@")(0)
    
16.     rpstr = Split(folder, "@")(1)
    
17.     Else
    
18.     Randomize
    
19.     rpstr = Int((Rnd*90)) + 10 '随机数自己改
    
20.   End If
    
21.   For Each file In fso.GetFolder(ws.CurrentDirectory & "" & folder).Files
    
22.     If LCase(fso.GetExtensionName(file)) = "php" Then
    
23.       vbstr = Replace(fso.OpenTextFile(file, 1).ReadAll(), str, rpstr)
    
24.       fso.OpenTextFile(file, 2, 1).Write vbstr
    
25.     End If
    
26.   Next
    
27. Next
    
28. Set ws = Nothing
    
29. Set fso = Nothing
    

复制代码

w1983912

谢谢各位的关注 谢谢batman辛苦帮我写的代码

我没学过php 只能用php简单的处理一些知道的，只要能实现，就用哪个能实现的，知识有限，每种语言都不一样的，各有所长，也不可互相替代

以上batman的代码 我的电脑 执行2个bat后 所有的php文件都为空 没有一个字符了  vbs的1和2都执行出错   电脑1个多月没关了  我再换个机器测试下好了

Demon

5# w1983912

.....php 能直接匹配  并输出或调用   10行代码都不到
w1983912 发表于 2011-6-1 06:56

我记得这是你说的

w1983912

经过2台电脑测试  结果仍然如此 很奇怪  望batman 继续帮我修改一下  应该不是大问题  辛苦了

Demon

bat1.php

1. 
   
2. <?php
   
3. $in = fopen('a.txt', 'rb');
   
4. if (!$in) die();
   
5. while (!feof($in)) {
   
6.         $str = trim(fgets($in));
   
7.         $arr = explode('@@', $str);
   
8.         $path = $arr[0] . '/x.php';
   
9.         $content = file_get_contents($path);
   
10.         $content = str_replace('游戏', $arr[1], $content);
    
11.         file_put_contents($path, $content);
    
12. }
    
13. fclose($in);
    
14. ?>
    

复制代码

Demon

bat2a.php

1. 
   
2. <?php
   
3. $in = fopen('a.txt', 'rb');
   
4. if (!$in) die();
   
5. while (!feof($in)) {
   
6.         $str = trim(fgets($in));
   
7.         $path = $str . '/x.php';
   
8.         $n = rand(10, 99);
   
9.         $content = file_get_contents($path);
   
10.         $content = str_replace('1234567', $n, $content);
    
11.         file_put_contents($path, $content);
    
12. }
    
13. fclose($in);
    
14. ?>
    

复制代码

Demon

bat2b.php

1. 
   
2. <?php
   
3. $in = fopen('a.txt', 'rb');
   
4. if (!$in) die();
   
5. while (!feof($in)) {
   
6.         $str = trim(fgets($in));
   
7.         $path = $str . '/x.php';
   
8.         $n = rand(100, 999);
   
9.         $content = file_get_contents($path);
   
10.         $content = str_replace('1234567', $n, $content);
    
11.         file_put_contents($path, $content);
    
12. }
    
13. fclose($in);
    
14. ?>
    

复制代码

w1983912

OK  3个PHP代码 通过GBK 和utf-8   看来也是位PHP达人啊   
建议bat论坛 开通其他语言的 广增网友  人多力量更大 这个论坛能得到有用的回答  目前只佩服bat论坛
挂点广告也能用于服务器的维护成本 对大家都好
    以后bat  vbs asp  php  哪个好用 用哪个  
谢谢大家关注  和特别感谢2位回答的朋友 demon 和batman   辛苦了

Demon

11# w1983912
bat  vbs 根本无法和 PHP 同日而语