无忧启动论坛

标题: 超级字符串批量替换工具 v4.25 破解脚本 [打印本页]
作者: chishingchan    时间: 2020-6-5 11:21
标题: 超级字符串批量替换工具 v4.25 破解脚本
本帖最后由 chishingchan 于 2020-6-5 14:53 编辑

官方主页

超级字符串批量替换工具是一个文档内容批量替换工具：
•支持多种办公常用文档格式内容替换：文本/超文本文件（*.html;*.txt;*.htm），office文档：Word文件（*.doc;*.docx）、Excel文件（*.xls;*.xlsx）、PowerPoint幻灯片文件（*.ppt; *.pptx）的批量内容替换。
•不仅一次批量处理多个文件，更可一次批量处理多组内容替换 。例如：可以添加多个字符，然后依次处理： 1.查找内容：工业      替换为：农业
2.查找内容：河北      替换为：山东
3.查找内容：河南      替换为：江苏
都加进去，然后执行替换。

•替换定义可保存到文件多次使用。
•替换文件内容的同时还可以替换文件名（文件替换改名）
•支持大字符集UNICODE字符串的替换，支持中文、韩文、日语等多种语言文字替换。
•替换质量高，可以进行区分大小写替换，处理Word文档时不仅替换一般内容、还能替换文本框等内容；不仅替换正文内容，亦可替换页眉页脚内容。
•可批量替换Word文档中的超链接地址。
•支持以通配符方式替换Word文档。
•能将Word文档中半角字符批量替换为全角字符，或将全角字符批量替换为半角字符。
•Word文档带格式替换：可以将Word文档的指定内容替换为特定格式（字体、颜色、排版）的内容。
•Excel工作簿文档限定替换范围：可以设定只替换符合条件的工作表，或只替换设定的行或列。
•支持多母版类型的PowerPoint幻灯片文档替换。
•自动识别文本文件（包括网页文件）的编码类型（ANSI、UTF-8、Unicode）并进行替换，支持文本文件全字匹配替换。
•可以以打开或关闭通配符方式批量替换Excel文档。
•批量替换Excel文档时支持同时替换工作表名称、同时替换Excel工作表页眉页脚。

下载超级字符串批量替换工具4.25



破解脚本：XReplace425.vbs （双击运行）
  1. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  2. Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
  3. For Each objItem in colItems
  4.         OSA = objItem.OSArchitecture
  5. Next

  7. Const HKLM = &H80000002

  9. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

  11. If OSA = "64-bit" Then
  12.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
  13.         If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
  14. Else
  15.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
  16.         If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
  17. End If

  19. Set WshShell = WScript.CreateObject("WScript.Shell")

  21. If IsNull(InstallLocation) Then
  22.         WshShell.Popup "软件未安装！", 5, "错误", 0
  23.         WScript.Quit
  24. End If

  26. Name = Array("XReplace.exe")
  27. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
  28. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
  29. For Each objProcess In colProcessList
  30.         For Each Process In Name
  31.                 If LCase(objProcess.Name) = LCase(Process) Then
  32.                         objProcess.Terminate()
  33.                 End If
  34.         Next
  35. Next

  37. Set objFSO = CreateObject("Scripting.FileSystemObject")

  39. If objFSO.FileExists(InstallLocation) Then
  40.         Set ado_stream = CreateObject("ADODB.Stream")
  41.         ado_stream.Type = 1
  42.         ado_stream.open
  43.         ado_stream.LoadFromFile InstallLocation
  44.         ado_stream.position = 215133
  45.         ado_stream.Write HexToByte("E9B701000090")
  46.         ado_stream.position = 256771
  47.         ado_stream.Write HexToByte("E9CE02000090")
  48.         ado_stream.position = 277094
  49.         ado_stream.Write HexToByte("01")
  50.         ado_stream.position = 313599
  51.         ado_stream.Write HexToByte("B80100")
  52.         ado_stream.position = 313855
  53.         ado_stream.Write HexToByte("B80100")
  54.         ado_stream.position = 314442
  55.         ado_stream.Write HexToByte("B80100")
  56.         ado_stream.position = 314901
  57.         ado_stream.Write HexToByte("B80100")
  58.         ado_stream.SaveToFile InstallLocation, 2
  59.         ado_stream.Close
  60.         Set ado_stream = Nothing
  61. End If

  63. WshShell.Popup "超级字符串批量替换工具 v4.2.5 破解补丁" & vbnewline & vbnewline & "制作：ChiShingChan  编程语言：VBScript",10,"完成",0

  65. Function HexToByte(hexStr)
  66.         Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
  67.         Set byteObj= xmldom.createElement("byteObj")
  68.         byteObj.dataType = "bin.hex"
  69.         byteObj.nodeTypedValue = hexStr
  70.         HexToByte=byteObj.nodeTypedValue
  71. End Function
复制代码


请从被置顶的 6# 下载附件！

作者: 窄口牛    时间: 2020-6-5 11:28
不太好，应该是查找，定位，允许手动逐一替换更为合理，一股脑替换有点粗糙。
作者: 826773297    时间: 2020-6-5 12:52
有没有带命令行的
作者: 2012andyle113    时间: 2020-6-5 13:08
感谢分享吧，感觉也没什么用
不过，这个代码执行报错

1.jpg (16.83 KB, 下载次数: 183)

1.jpg
作者: DestroSeth    时间: 2020-6-5 13:30
谢谢大佬了
作者: chishingchan    时间: 2020-6-5 14:41
本帖最后由 chishingchan 于 2020-6-5 14:49 编辑



XReplace425.zip (1.16 KB, 下载次数: 138)
作者: chishingchan    时间: 2020-6-5 14:42
DestroSeth 发表于 2020-6-5 13:30
谢谢大佬了

请查看被置顶的 6# 回复。
作者: chishingchan    时间: 2020-6-5 14:42
826773297 发表于 2020-6-5 12:52
有没有带命令行的

请查看被置顶的 6# 回复。
作者: chishingchan    时间: 2020-6-5 14:43
窄口牛 发表于 2020-6-5 11:28
不太好，应该是查找，定位，允许手动逐一替换更为合理，一股脑替换有点粗糙。

请查看被置顶的 6# 回复。
作者: holley2008    时间: 2020-6-5 16:58
这个确实小，不过已经用习惯自己很早以前改的XCLwinkits了。
作者: MC阿虎    时间: 2020-6-5 18:11
感谢楼主的分享
作者: 2011ynyhuh    时间: 2020-6-5 20:31
vbs脚本有误，我的64位系统 OSA不是"64-bit"，而是"64 位"
作者: chishingchan    时间: 2020-6-5 22:24
2011ynyhuh 发表于 2020-6-5 20:31
vbs脚本有误，我的64位系统 OSA不是"64-bit"，而是"64 位"

我的系统是 Win7x64，返回不一样就要怪微软了！
作者: dszsdyx    时间: 2020-6-6 00:35
这个确实很厉害。
作者: fswrx    时间: 2020-6-6 17:20
赞一个
作者: 15106680608    时间: 2020-6-7 10:51
感谢分享
作者: yzw92    时间: 2020-6-13 08:10
谢谢大佬了
作者: lbj023    时间: 2020-10-12 16:45
谢谢分享
作者: tcog    时间: 2020-11-15 20:44
多谢多谢多谢
作者: tcog    时间: 2020-11-17 21:56
多谢分享多谢！！
作者: a841603239    时间: 2020-11-18 09:58
来看看是啥
作者: locoman    时间: 2021-1-26 11:31
谢谢楼主无私分享，收藏学习
作者: huang1987    时间: 2023-11-12 15:28
谢谢分享
作者: zqfeng01    时间: 2023-11-13 11:47
谢谢楼主分享
作者: wang66    时间: 2023-11-22 20:25
4.88的用不了了。
作者: renhai    时间: 2023-11-22 21:01
好像不能下载了
作者: szwp    时间: 2023-11-23 10:39
renhai 发表于 2023-11-22 21:01
好像不能下载了

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=438331
可去这儿试试
作者: wfg1555    时间: 2023-11-23 11:33
这个工具支持WORD 不支持WPS，
这个 全能字符串批量替换机7.0，支持WORD和WPS格式，但是要安装OFFICE环境支持。
作者: 2012飘水    时间: 2024-4-6 23:56
学习学习，感谢分享
作者: hai33456    时间: 6 天前
感谢分享！！
作者: shanghui6666    时间: 6 天前
谢谢分享，支持原创，楼主不易，了表赞赏。
作者: shanghui6666    时间: 5 天前
谢谢分享，支持原创，楼主不易，了表赞赏。
作者: softwarezheng    时间: 前天 08:33
THANKS YOU VERY MUCH



欢迎光临 无忧启动论坛 (http://bbs.c3.wuyou.net/) Powered by Discuz! X3.3