[文本处理] 求教批处理实现txt文本内容替换

# 先备份，会直接修改原文件。

$组 = @{}
$替换 = gc 替换.txt

for ( $i=0; $i -lt $替换.count; $i++ ) {
	if (!($i % 2)) {
		$key=$替换[$i]
	} else {
		$组["$key"]=$替换[$i]
	}
}

$Content = ( gc work.txt -readcount 0 -enc Default ) -join "`r`n"
Foreach ( $key in $组.keys ) {
	if ( ($Content -Split "$key").Count -le 2 ) {
		$Value = $组["$key"]
		$Content = $Content -replace "$key","$Value"
	} else {
		for ( $i=0; $i -lt $替换.count; $i++ ) {
			if ( $替换[$i] -eq "$key" ) {
				Write-Host "第 $($i+1) 行存在多处错误`n$key`r`n" -fore Magenta -back DarkBlue
			}
		}
	}
}
$Content | sc .\work.txt -enc Default

CMD /C "echo;&pause" #兼容PS2.0
复制代码

$组 = @{}
$替换 = gc 替换.txt
for ( $i=0; $i -lt $替换.count; $i++ ) {
	if (!($i % 2)) { $key = $替换[$i] } else { $组["$key"] = $替换[$i] }
}
$Content = ( gc work.txt -readcount 0 -enc Default ) -join "`r`n"
Foreach ( $key in $组.keys ) {
	$num = ($Content -Split "$key").Count
	if ( $num -eq 2 ) {
		$Value = $组["$key"]
		$Content = $Content -replace "$key","$Value"
	} else {
		for ( $i=0; $i -lt $替换.count; $i++ ) {
			if ( $替换[$i] -eq "$key" ) {
				if ( $num -gt 2 ) {
					Write-Host "第 $($i+1) 行存在多处错误`n$key`r`n" -fore Yellow -back DarkRed
				} else {
					Write-Host "第 $($i+1) 行找不到`n$key`r`n" -fore Magenta -back DarkBlue
				}
			}
		}
	}
}
$Content | sc .\work.txt -enc Default
CMD /C "echo;&pause" # 兼容 PS2.0
复制代码

@if(0)==(0) echo off
cscript //nologo //e:jscript "%~f0" <  替换.txt
pause & goto :EOF
@end

var n = 1;
var fso = new ActiveXObject('Scripting.FileSystemObject');
var str = fso.OpenTextFile('work.txt', 1).ReadAll();

while(!WSH.StdIn.AtEndOfStream){
    var key1 = WSH.StdIn.ReadLine(), key2 = WSH.StdIn.ReadLine();
    var Len  = str.split(key1).length;
    if (Len < 2) {
        WSH.Echo('第' + n + '行 无\n' + key1);
    } else if (Len == 2) {
        str = str.replace(key1, key2);
    } else {
        WSH.Echo('第' + n + '行 多处\n' + key1);
    }
    n += 2;
}
fso.OpenTextFile('Result.Log', 2, true).Write(str);
复制代码

@if(0)==(0) echo off
cscript //nologo //e:jscript "%~f0" <  替换.txt
pause & goto :EOF
@end

var n = 1;
var fso = new ActiveXObject('Scripting.FileSystemObject');
var str = fso.OpenTextFile('work.txt', 1).ReadAll();

while(!WSH.StdIn.AtEndOfStream){
    var key1 = WSH.StdIn.ReadLine(), key2 = WSH.StdIn.ReadLine();
    var arr  = str.split(key1);
    var Len  = arr.length;
    if (Len < 2) {
        WSH.Echo('第' + n + '行 无\n' + key1);
    } else {
        str = arr.join(key2);
    }
    n += 2;
}
fso.OpenTextFile('Result.Log', 2, true).Write(str);
复制代码