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

a574045075

这里有个01.txt文本，内容如下图

如何用批处理命令把Using title id的0005000000012400和generated encrypted的e734ae04fb23bf6de77a6e21646c95a6替换到如下图的位置，另外Using title id的值和generated encrypted的值是随机的，不一定是0005000000012400和e734ae04fb23bf6de77a6e21646c95a6

最终想要的结果如下图

23618342

这个论坛图片上传不了

a574045075

回复 2# 23618342


    看到图片吗？

yyz219

回复  23618342


    看到图片吗？
a574045075 发表于 2023-2-20 18:28

    有图片

czjt1234

vbs

1. file1 = "01.txt"
   
2. file2 = "basetik.tik"
   
3. 
   
4. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
5. Set oTextStream = oFSO.OpenTextFile(file1)
   
6. s = oTextStream.ReadAll()
   
7. oTextStream.Close()
   
8. 
   
9. Set oRegExp = CreateObject("VBScript.RegExp")
   
10. oRegExp.IgnoreCase = True
    
11. oRegExp.Pattern = "Using title id\: (.+)?\r\n"
    
12. For Each i In oRegExp.Execute(s)
    
13.     t = i.SubMatches.Item(0)
    
14. Next
    
15. 
    
16. With CreateObject("Msxml2.DOMDocument").CreateElement("hex")
    
17.     .DataType = "bin.hex"
    
18.     .Text = t
    
19.     arrByte = .NodeTypedValue
    
20. End With
    
21. 
    
22. With CreateObject("ADODB.Stream")
    
23.     .Type = 1    'adTypeBinary
    
24.     .Mode = 3    'adModeReadWrite
    
25.     .Open()
    
26.     .LoadFromFile file2
    
27.     .Position = &H01DC
    
28.     .Write arrByte
    
29.     .SaveToFile file2, 2
    
30.     .Close()
    
31. End With
    
32. 
    
33. oRegExp.Pattern = "generated encrypted\: (.+)?\r\n"
    
34. For Each i In oRegExp.Execute(s & vbCrLf)
    
35.     t = i.SubMatches.Item(0)
    
36. Next
    
37. 
    
38. With CreateObject("Msxml2.DOMDocument").CreateElement("hex")
    
39.     .DataType = "bin.hex"
    
40.     .Text = t
    
41.     arrByte = .NodeTypedValue
    
42. End With
    
43. 
    
44. With CreateObject("ADODB.Stream")
    
45.     .Type = 1    'adTypeBinary
    
46.     .Mode = 3    'adModeReadWrite
    
47.     .Open()
    
48.     .LoadFromFile file2
    
49.     .Position = &H01BF
    
50.     .Write arrByte
    
51.     .SaveToFile file2, 2
    
52.     .Close()
    
53. End With
    
54. 
    
55. MsgBox "ok"

复制代码

terse

你们看到图片？

77七

回复 6# terse

可以看到顶楼图片，刷新等待一下，试试

WHY

PowerShell 脚本
2023/02/22 简化脚本。我测试没有发现问题

1. $file1 = '01.txt';
   
2. $file2 = 'basetik.tik';          #修改前的文件名
   
3. $file3 = 'basetik_001.tik';      #修改后的文件名
   
4. 
   
5. $text  = [IO.File]::ReadAllText($file1, [Text.Encoding]::Default);
   
6. $bytes = [IO.File]::ReadAllBytes($file2);
   
7. 
   
8. Function Set-ByteValue($key, [int]$offSet){
   
9.     $reg = '(?i)(?<=' + $key + ' *)[a-f0-9]+';
   
10.     $s = ([regex]::Match($text, $reg)).Value;
    
11.     for ($i = 0; $i -lt $s.Length; $i+=2) {
    
12.         $x = $i / 2 + $offSet;
    
13.         $bytes[$x] = [byte][int]('0x' + $s.SubString($i, 2));
    
14.     }
    
15. }
    
16. 
    
17. Set-ByteValue -key 'Using title id:' -offSet 0x01DC;
    
18. Set-ByteValue -key 'generated encrypted:' -offSet 0x01BF;
    
19. 
    
20. [IO.File]::WriteAllBytes($file3, $bytes);
    
21. 
    
22. echo 'Done';
    
23. [Console]::ReadLine();

复制代码

a574045075

回复 8# WHY


    中午回来试试.

23618342

看到了，我上次就没有成功，奇怪了

terse

奇怪 看不了图

qixiaobin0715

回复 11# terse
可能是浏览器的事，Edge可以看到。

czjt1234

回复 9# a574045075


   测试的结果能发一下吗
如果不成功的，也希望看到错在哪里的

terse

回复 12# qixiaobin0715

Edge  chrome  Firefox都试了 唉！ 算了

cnnetstar

回复 1# a574045075


    请问你的图片是怎么上传的? 我试了好像上传不了图片呢.