[文件操作] [已解决]批处理如何把文本内容替换到文件里？

file1 = "01.txt"
file2 = "basetik.tik"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(file1)
s = oTextStream.ReadAll()
oTextStream.Close()
 
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.IgnoreCase = True
oRegExp.Pattern = "Using title id\: (.+)?\r\n"
For Each i In oRegExp.Execute(s)
    t = i.SubMatches.Item(0)
Next
 
With CreateObject("Msxml2.DOMDocument").CreateElement("hex")
    .DataType = "bin.hex"
    .Text = t
    arrByte = .NodeTypedValue
End With
 
With CreateObject("ADODB.Stream")
    .Type = 1    'adTypeBinary
    .Mode = 3    'adModeReadWrite
    .Open()
    .LoadFromFile file2
    .Position = &H01DC
    .Write arrByte
    .SaveToFile file2, 2
    .Close()
End With
 
oRegExp.Pattern = "generated encrypted\: (.+)?\r\n"
For Each i In oRegExp.Execute(s & vbCrLf)
    t = i.SubMatches.Item(0)
Next
 
With CreateObject("Msxml2.DOMDocument").CreateElement("hex")
    .DataType = "bin.hex"
    .Text = t
    arrByte = .NodeTypedValue
End With
 
With CreateObject("ADODB.Stream")
    .Type = 1    'adTypeBinary
    .Mode = 3    'adModeReadWrite
    .Open()
    .LoadFromFile file2
    .Position = &H01BF
    .Write arrByte
    .SaveToFile file2, 2
    .Close()
End With
 
MsgBox "ok"COPY

$file1 = '01.txt';
$file2 = 'basetik.tik';          #修改前的文件名
$file3 = 'basetik_001.tik';      #修改后的文件名 
 
$text  = [IO.File]::ReadAllText($file1, [Text.Encoding]::Default);
$bytes = [IO.File]::ReadAllBytes($file2);
 
Function Set-ByteValue($key, [int]$offSet){
    $reg = '(?i)(?<=' + $key + ' *)[a-f0-9]+';
    $s = ([regex]::Match($text, $reg)).Value;
    for ($i = 0; $i -lt $s.Length; $i+=2) {
        $x = $i / 2 + $offSet;
        $bytes[$x] = [byte][int]('0x' + $s.SubString($i, 2));
    }
}
 
Set-ByteValue -key 'Using title id:' -offSet 0x01DC;
Set-ByteValue -key 'generated encrypted:' -offSet 0x01BF;
 
[IO.File]::WriteAllBytes($file3, $bytes);
 
echo 'Done';
[Console]::ReadLine();COPY