var fso = WScript.CreateObject('Scripting.FileSystemObject');
var file1 = '1.txt';
var file2 = '2.txt';
var file3 = '3.txt';
var curDir = WScript.CreateObject('WScript.Shell').CurrentDirectory = fso.GetParentFolderName(WScript.ScriptFullName);
var ts1 = fso.OpenTextFile(file1, 1, false, -2);
var ts2 = fso.OpenTextFile(file2, 1, false, -2);
var ts3 = fso.OpenTextFile(file3, 2, true, -2);
if (!ts2.AtEndOfStream) {
  ts3.Write(ts2.ReadAll().replace(/AA/g, function ($0) {
    return ts1.AtEndOfStream ? $0 : ts1.ReadLine();
  }));
}
ts1.close();
ts2.close();
ts3.close();
复制代码

$file1='1.txt';#替换数据文本
$file2='2.txt';#需要被替换的源文件
$key='AA';#需要被替换的关键字

$ontent_file1=[io.file]::ReadAllLines($file1);#读文件
$ontent_file2=[io.file]::ReadAllText($file2);#读文件

$result='';$n=0;$lenKey=$key.Length;#变量初始化

while(1)
{
 $i=$ontent_file2.IndexOf($key);#查询关键字的首位置
 if(($i -ne -1) -and ($ontent_file1[$n])){
    $result+=$ontent_file2.Substring(0,$i)+$ontent_file1[$n];#替换关键字
    $ontent_file2=$ontent_file2.Substring($i+$lenKey);#截取文本
 } else {$result+=$ontent_file2;break;}#不含关键字或数据文本结束,则跳出循环
   $n++;
}
$result>'结果.TXT'
复制代码

$Arr=gc 1.txt #1为纯数字文件；2为待替换文件，会读取整个文档内容。
$Array=(((gc 2.txt) -join "`r`n").replace(',AA,',",AA,`t").split("`t"))
(0..($Arr.count -1))|%{$Array[$_]=$Array[$_].Replace(',AA,',",$($Arr[$_]),")}
$str=-join $Array
$str|sc .\2.txt
复制代码

use File::Slurp;
my @t1 = read_file("1.txt");
my $t2 = read_file("2.txt");
grep { chomp } @t1;
$t2=~s/,AA,/",".(shift @t1).","/ge;
print $t2;
复制代码

busybox sh -c "sed -b 's/,AA,/,\n,/g' 2.txt|paste -d'\n' - 1.txt|tr -d '\n'"
复制代码

PowerShell "$a=type 1.txt; [regex]::Replace((type 2.txt) -join \"`r`n\", 'AA', {$a[$global:n++]})"
复制代码