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

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

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
    for %%b in ("%%a\*.php") do (
         set /a a=!random!%%90+10
         (for /f "usbackq delims=" %%c in ("%%~dpnxb") do (
               set "str=%%c"
               for %%c in (!a!) do echo !str:1234567=%%c!
         ))>$
         move $ "%%~dpnxb"
     )
)
           
复制代码

Dim vbstr, fso, file, folder, choice, str, rpstr
Do Until choice = 1 Or choice =2 
  choice = InputBox("请选择模式：1.固定替换 2.随机替换")
Loop
If choice = 1 Then 
  str = "游戏"
  Else
  str = "1234567"
End If
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
For Each folder In Split(fso.OpenTextFile("a.txt", 1).ReadAll(), vbCrLf)
  If choice = 1 Then 
    folder = Split(folder, "@")(0)
    rpstr = Split(folder, "@")(1)
    Else
    Randomize
    rpstr = Int((Rnd*90)) + 10 '随机数自己改
  End If
  For Each file In fso.GetFolder(ws.CurrentDirectory & "\" & folder).Files
    If LCase(fso.GetExtensionName(file)) = "php" Then
      vbstr = Replace(fso.OpenTextFile(file, 1).ReadAll(), str, rpstr)
      fso.OpenTextFile(file, 2, 1).Write vbstr
    End If
  Next 
Next
Set ws = Nothing
Set fso = Nothing
复制代码

<?php
$in = fopen('a.txt', 'rb');
if (!$in) die();
while (!feof($in)) {
	$str = trim(fgets($in));
	$arr = explode('@@', $str);
	$path = $arr[0] . '/x.php';
	$content = file_get_contents($path);
	$content = str_replace('游戏', $arr[1], $content);
	file_put_contents($path, $content);
}
fclose($in);
?>
复制代码

<?php
$in = fopen('a.txt', 'rb');
if (!$in) die();
while (!feof($in)) {
	$str = trim(fgets($in));
	$path = $str . '/x.php';
	$n = rand(10, 99);
	$content = file_get_contents($path);
	$content = str_replace('1234567', $n, $content);
	file_put_contents($path, $content);
}
fclose($in);
?>
复制代码

<?php
$in = fopen('a.txt', 'rb');
if (!$in) die();
while (!feof($in)) {
	$str = trim(fgets($in));
	$path = $str . '/x.php';
	$n = rand(100, 999);
	$content = file_get_contents($path);
	$content = str_replace('1234567', $n, $content);
	file_put_contents($path, $content);
}
fclose($in);
?>
复制代码