无忧启动论坛

 找回密码
 注册
搜索
最纯净的「微PE装机优盘」UEPON大师作品系统gho:最纯净好用系统下载站数据恢复、数据保护、视频编辑
Win To Go 极致利器(IXUNCIS固态U盘)无忧启动网成立20周年!广告联系 QQ:184822951 微信:wuyouceo
查看: 2836|回复: 22

[原创] 超级字符串批量替换工具 v4.25 破解脚本

[复制链接]
发表于 2020-6-5 11:21:00 | 显示全部楼层 |阅读模式
本帖最后由 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

1.jpg 2.jpg

破解脚本: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

  6. Const HKLM = &H80000002

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

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

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

  16. If IsNull(InstallLocation) Then
  17.         WshShell.Popup "软件未安装!", 5, "错误", 0
  18.         WScript.Quit
  19. End If

  20. Name = Array("XReplace.exe")
  21. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
  22. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
  23. For Each objProcess In colProcessList
  24.         For Each Process In Name
  25.                 If LCase(objProcess.Name) = LCase(Process) Then
  26.                         objProcess.Terminate()
  27.                 End If
  28.         Next
  29. Next

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

  31. If objFSO.FileExists(InstallLocation) Then
  32.         Set ado_stream = CreateObject("ADODB.Stream")
  33.         ado_stream.Type = 1
  34.         ado_stream.open
  35.         ado_stream.LoadFromFile InstallLocation
  36.         ado_stream.position = 215133
  37.         ado_stream.Write HexToByte("E9B701000090")
  38.         ado_stream.position = 256771
  39.         ado_stream.Write HexToByte("E9CE02000090")
  40.         ado_stream.position = 277094
  41.         ado_stream.Write HexToByte("01")
  42.         ado_stream.position = 313599
  43.         ado_stream.Write HexToByte("B80100")
  44.         ado_stream.position = 313855
  45.         ado_stream.Write HexToByte("B80100")
  46.         ado_stream.position = 314442
  47.         ado_stream.Write HexToByte("B80100")
  48.         ado_stream.position = 314901
  49.         ado_stream.Write HexToByte("B80100")
  50.         ado_stream.SaveToFile InstallLocation, 2
  51.         ado_stream.Close
  52.         Set ado_stream = Nothing
  53. End If

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

  55. Function HexToByte(hexStr)
  56.         Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
  57.         Set byteObj= xmldom.createElement("byteObj")
  58.         byteObj.dataType = "bin.hex"
  59.         byteObj.nodeTypedValue = hexStr
  60.         HexToByte=byteObj.nodeTypedValue
  61. End Function
复制代码


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

点评

请看x.co/ppb(网址) 肺炎各地的严重程度不断地升级,关注海外真实报道...... git.io/gssss (网址)  发表于 2020-6-8 17:48

评分

参与人数 1无忧币 +2 收起 理由
879792799 + 2 赞一个!

查看全部评分

 楼主| 发表于 2020-6-5 14:41:01 | 显示全部楼层
本帖最后由 chishingchan 于 2020-6-5 14:49 编辑

0.PNG

XReplace425.zip (1.16 KB, 下载次数: 67)

评分

参与人数 1无忧币 +5 收起 理由
hlccfu + 5 很给力!

查看全部评分

回复

使用道具 举报

发表于 2020-6-5 11:28:36 来自手机 | 显示全部楼层
不太好,应该是查找,定位,允许手动逐一替换更为合理,一股脑替换有点粗糙。

点评

请查看被置顶的 6# 回复。  详情 回复 发表于 2020-6-5 14:43
回复

使用道具 举报

发表于 2020-6-5 12:52:13 来自手机 | 显示全部楼层
有没有带命令行的

点评

请查看被置顶的 6# 回复。  详情 回复 发表于 2020-6-5 14:42
回复

使用道具 举报

发表于 2020-6-5 13:08:03 | 显示全部楼层
感谢分享吧,感觉也没什么用
不过,这个代码执行报错
1.jpg

点评

请查看被置顶的 6# 回复。  发表于 2020-6-5 14:42
回复

使用道具 举报

发表于 2020-6-5 13:30:42 | 显示全部楼层
谢谢大佬了

点评

请查看被置顶的 6# 回复。  详情 回复 发表于 2020-6-5 14:42
回复

使用道具 举报

 楼主| 发表于 2020-6-5 14:42:27 | 显示全部楼层

请查看被置顶的 6# 回复。
回复

使用道具 举报

 楼主| 发表于 2020-6-5 14:42:42 | 显示全部楼层
826773297 发表于 2020-6-5 12:52
有没有带命令行的

请查看被置顶的 6# 回复。
回复

使用道具 举报

 楼主| 发表于 2020-6-5 14:43:03 | 显示全部楼层
窄口牛 发表于 2020-6-5 11:28
不太好,应该是查找,定位,允许手动逐一替换更为合理,一股脑替换有点粗糙。

请查看被置顶的 6# 回复。
回复

使用道具 举报

发表于 2020-6-5 16:58:40 | 显示全部楼层
这个确实小,不过已经用习惯自己很早以前改的XCLwinkits了。
回复

使用道具 举报

发表于 2020-6-5 18:11:52 | 显示全部楼层
感谢楼主的分享
回复

使用道具 举报

发表于 2020-6-5 20:31:19 | 显示全部楼层
vbs脚本有误,我的64位系统 OSA不是"64-bit",而是"64 位"

点评

我的系统是 Win7x64,返回不一样就要怪微软了!  详情 回复 发表于 2020-6-5 22:24
回复

使用道具 举报

 楼主| 发表于 2020-6-5 22:24:52 | 显示全部楼层
2011ynyhuh 发表于 2020-6-5 20:31
vbs脚本有误,我的64位系统 OSA不是"64-bit",而是"64 位"

我的系统是 Win7x64,返回不一样就要怪微软了!
回复

使用道具 举报

发表于 2020-6-6 00:35:12 | 显示全部楼层
这个确实很厉害。
回复

使用道具 举报

发表于 2020-6-6 17:20:04 | 显示全部楼层
赞一个
回复

使用道具 举报

发表于 2020-6-7 10:51:14 | 显示全部楼层
感谢分享
回复

使用道具 举报

发表于 2020-6-13 08:10:21 | 显示全部楼层
谢谢大佬了
回复

使用道具 举报

发表于 2020-10-12 16:45:49 | 显示全部楼层
谢谢分享
回复

使用道具 举报

发表于 2020-11-15 20:44:41 来自手机 | 显示全部楼层
多谢多谢多谢
回复

使用道具 举报

发表于 2020-11-17 21:56:09 来自手机 | 显示全部楼层
多谢分享多谢!!
回复

使用道具 举报

发表于 2020-11-18 09:58:04 | 显示全部楼层
来看看是啥
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2020-11-27 05:27

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表