一个关于替换的话题，请帮助解决

ljz3190

OAzOgP3d.rar (4.34 KB, 下载次数: 21)

2005-12-16 09:58 上传

点击文件名下载附件
一个关于替换的话题，请帮助解决

就是把字母或数字及其后面的汉字全面删除。例如“暗装开关250V/5A 二位”，我只想保留“暗装开关”，“抽油杆变扣(6/8x7/8)双公”，只保留“抽油杆变扣”。请问大家如何替换。谢谢!!!

ljz3190

请大家出出主意吧，有几千行呢。急呀!!

shengyulon

按如下试试(另勾选"使用通配符")

[此贴子已经被作者于2005-12-16 10:57:47编辑过]

守柔

一步到位的方法，我目前暂时想不出。 CTRL+A，CTRL+H，勾选通配符： 查找："([一-龥]@)[^1-^127]?@",替换为"\1",格式为加粗,全部替换 第二步,查找,不勾选通配符 查找:"",即什么也不要输入,格式为非加粗(可在光标位于查找框中时按下CTRL+B多次) 替换:"",即什么也不要输入,注意,单击不限定格式,其目的是将非加粗字符删除(替换为""),全部替换 第三:CTRL+B,还原为正常字体. 其它方法还有很多,如先转换和VBA等.

ljz3190

请守柔版主解释一下，([一-龥]@)是什么意思，［ ］方括号是干什么用的，还有@，代表什么涵义。头都大了，一头雾水。谢谢守柔版主。

konggs

我来说一句：

罗马不是一天做的！

同样，这不是一句话能说清楚的。还是搜索一下这方面的贴子吧。

gues1688

如果只是要提取内容的话，也可以使用VBScript中的正则表达式的强大搜索替换功能，上午研究了正则表达式，试写代码如下：

Sub replStr()
Dim regEx As Object ' 建立变量
Set regEx = CreateObject("vbScript.RegExp") ' 建立正则表达式
Application.ScreenUpdating = False
With ActiveDocument
regEx.Global = True
regEx.Pattern = "[\x0f-\x7f].*?\r" ' 要找的内容
.Content = regEx.Replace(.Content, "") '找到的内容替换为空
regEx.Pattern = "\r{2,}" ' 找2个以上连续的段落标记
.Content = regEx.Replace(.Content, vbCr) ' 2个以上连续的段落标记替换为1个
End With
Set regEx = Nothing
Application.ScreenUpdating = True
End Sub

gues1688

增加2行代码，删除连续重复的行：

Sub replStr()
Dim regEx As Object ' 建立变量
Set regEx = CreateObject("vbScript.RegExp") ' 建立正则表达式
Application.ScreenUpdating = False
With ActiveDocument
regEx.Global = True
regEx.Pattern = "[\x0f-\x7f].*?\r" ' 设置要找的内容
.Content = regEx.Replace(.Content, "")
regEx.Pattern = "\r{2,}" ' 2个以上连续的段落标记
.Content = regEx.Replace(.Content, vbCr) ' 2个以上连续的段落标记替换为1个
regEx.Pattern = "(.+\r)\1+" '找连续出现相同的行
.Content = regEx.Replace(.Content, "$1") '替换后没有重复的行
End With
Set regEx = Nothing
Application.ScreenUpdating = True
End Sub