例如一篇文章,需要把“鱼塘”替换成“福气”,“怪想”替换成“派件”(随便举得例子)……大概有 110 多个替换关系
普通编辑器,要手动做 110 多次替换。有没有编辑器,能基于替换关系的字典,直接一次性替换?
当然字典肯定有约定的格式,这没关系,用正则处理一下符合他的格式,也总比手动替换来得快
有朋友可能说自己写个小脚本……楼主文科生不会写…
1
ps1aniuge 2018-09-03 21:35:22 +08:00
https://www.v2ex.com/t/482614
win,linux 通用的替换脚本。ps 找算替 欢迎收藏。如果不会用,我可以给你写脚本。 |
2
laycher 2018-09-03 21:57:33 +08:00
Everedit
|
3
huawuya 2018-09-03 23:30:29 +08:00
http://nullice.com/Gasoft/Siphonink/index.html#fu 我想你需要的是这个软件里的批量替换功能。
|
4
EricXuu 2018-09-04 00:07:55 +08:00 via Android
notepad++
|
5
zifuir 2018-09-04 00:10:58 +08:00 via iPhone
word 里的宏,搜句 vba,就能实现你要的效果
|
6
Lax 2018-09-04 01:18:37 +08:00
简单文本格式的话直接 sed 吧
|
7
jin7 2018-09-04 12:29:05 +08:00
powershell 写个脚本.
|
8
wandero 2019-01-03 10:43:14 +08:00
@lada04
Office 套装用 VBA 宏可以比较方便的实现 操作 在 xls 中 A 列和 B 列 分别填好被替换内容和替换内容,在 Word 中运行宏 注意 确定 xls 文件路径和 活动工作表名称正确设置 确定 VBA 编辑器-工具-引用 中 Microsoft Excel 14.0 Object Library 勾选 单个单元格内容不能超过 254 字符 代码(搬运自 ExcelHome ) ``` Sub 按表替换() '首先引用 ms excel '运行前关闭所有 excel 程序 Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer Set ex = New Excel.Application Set boo = ex.Workbooks.Open("d:\e\f.xls") '文件路径 ex.Visible = False '设置 EXCEL 对象可见(或不可见) Set shee = boo.Worksheets("Sheet1") '设置活动工作表 With shee For i = 1 To .Range("b65536").End(xlUp).Row ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将 excelA 列替换为 B 列内容 Next End With boo.Close ex.Quit Set boo = Nothing Set ex = Nothing End Sub ``` |