设为首页收藏本站
开启辅助访问 切换到宽版

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › 脚本讨论区 › 超级字符串批量替换工具 v4.25 破解脚本
系统gho:最纯净好用系统下载站投放广告、加入VIP会员，请联系 微信:wuyouceo
12下一页
返回列表 发新帖
查看: 14695|回复: 35
打印 上一主题 下一主题

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

  [复制链接]
跳转到指定楼层
1#
发表于 2020-6-5 11:21:00 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
加入VIP会员，获无忧币，赠积分，送勋章，下载无限制，获论坛最高级会员权限 !
本帖最后由 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# 下载附件！

点评

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

评分

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

查看全部评分

回复

使用道具 举报

来自 2#
 楼主| 发表于 2020-6-5 14:41:01 | 只看该作者
本帖最后由 chishingchan 于 2020-6-5 14:49 编辑



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

评分

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

查看全部评分

回复

使用道具 举报

3#
发表于 2020-6-5 11:28:36 来自手机 | 只看该作者
不太好，应该是查找，定位，允许手动逐一替换更为合理，一股脑替换有点粗糙。

点评

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

使用道具 举报

4#
发表于 2020-6-5 12:52:13 来自手机 | 只看该作者
有没有带命令行的

点评

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

使用道具 举报

5#
发表于 2020-6-5 13:08:03 | 只看该作者
感谢分享吧，感觉也没什么用
不过，这个代码执行报错

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

1.jpg

点评

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

使用道具 举报

6#
发表于 2020-6-5 13:30:42 | 只看该作者
谢谢大佬了

点评

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

使用道具 举报

7#
 楼主| 发表于 2020-6-5 14:42:27 | 只看该作者
DestroSeth 发表于 2020-6-5 13:30
谢谢大佬了

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

使用道具 举报

8#
 楼主| 发表于 2020-6-5 14:42:42 | 只看该作者
826773297 发表于 2020-6-5 12:52
有没有带命令行的

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

使用道具 举报

9#
 楼主| 发表于 2020-6-5 14:43:03 | 只看该作者
窄口牛 发表于 2020-6-5 11:28
不太好，应该是查找，定位，允许手动逐一替换更为合理，一股脑替换有点粗糙。

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

使用道具 举报

10#
发表于 2020-6-5 16:58:40 | 只看该作者
这个确实小，不过已经用习惯自己很早以前改的XCLwinkits了。
回复

使用道具 举报

11#
发表于 2020-6-5 18:11:52 | 只看该作者
感谢楼主的分享
回复

使用道具 举报

12#
发表于 2020-6-5 20:31:19 | 只看该作者
vbs脚本有误，我的64位系统 OSA不是"64-bit"，而是"64 位"

点评

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

使用道具 举报

13#
 楼主| 发表于 2020-6-5 22:24:52 | 只看该作者
2011ynyhuh 发表于 2020-6-5 20:31
vbs脚本有误，我的64位系统 OSA不是"64-bit"，而是"64 位"

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

使用道具 举报

dszsdyx
14#
发表于 2020-6-6 00:35:12 | 只看该作者
这个确实很厉害。
回复

使用道具 举报

fswrx
15#
发表于 2020-6-6 17:20:04 | 只看该作者
赞一个
回复

使用道具 举报

16#
发表于 2020-6-7 10:51:14 | 只看该作者
感谢分享
回复

使用道具 举报

yzw92
17#
发表于 2020-6-13 08:10:21 | 只看该作者
谢谢大佬了
回复

使用道具 举报

lbj023
18#
发表于 2020-10-12 16:45:49 | 只看该作者
谢谢分享
回复

使用道具 举报

tcog
19#
发表于 2020-11-15 20:44:41 来自手机 | 只看该作者
多谢多谢多谢
回复

使用道具 举报

tcog
20#
发表于 2020-11-17 21:56:09 来自手机 | 只看该作者
多谢分享多谢！！
回复

使用道具 举报

21#
发表于 2020-11-18 09:58:04 | 只看该作者
来看看是啥
回复

使用道具 举报

locoman
22#
发表于 2021-1-26 11:31:42 | 只看该作者
谢谢楼主无私分享，收藏学习
回复

使用道具 举报

23#
发表于 2023-11-12 15:28:53 | 只看该作者
谢谢分享
回复

使用道具 举报

24#
发表于 2023-11-13 11:47:52 | 只看该作者
谢谢楼主分享
回复

使用道具 举报

wang66
25#
发表于 2023-11-22 20:25:14 | 只看该作者
4.88的用不了了。
回复

使用道具 举报

renhai
26#
发表于 2023-11-22 21:01:37 | 只看该作者
好像不能下载了

点评

szwp
http://bbs.wuyou.net/forum.php?mod=viewthread&tid=438331 可去这儿试试  详情 回复 发表于 2023-11-23 10:39
回复

使用道具 举报

szwp
27#
发表于 2023-11-23 10:39:27 | 只看该作者
renhai 发表于 2023-11-22 21:01
好像不能下载了

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=438331
可去这儿试试
回复

使用道具 举报

wfg1555
28#
发表于 2023-11-23 11:33:43 | 只看该作者
这个工具支持WORD 不支持WPS，
这个 全能字符串批量替换机7.0，支持WORD和WPS格式，但是要安装OFFICE环境支持。
回复

使用道具 举报

29#
发表于 2024-4-6 23:56:37 | 只看该作者
学习学习，感谢分享
回复

使用道具 举报

hai33456
30#
发表于 2024-5-6 11:42:25 | 只看该作者
感谢分享！！
回复

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

闽公网安备 35020302032614号

GMT+8, 2024-11-11 08:09

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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