正则替换英文句号

dongdonggege

我有个字符串，str = "0.58元.狂犬病疫苗.89.65元.长春长生疫苗案件."我想用正则表达式替换，替换规则：
1、英文句号替换为中文句号。（就是"."替换成"。"）。

2、如果是小数的（就是".的"前后都是数字），那个"."不替换。
本人对正则不理解，下面是我替换的，不是我要的结果

1. Sub test()
   
2.     Dim str As String
   
3.     Dim reg As Object
   
4.     str = "0.58元.狂犬病疫苗.89.65元.长春长生疫苗案件."
   
5.     Set reg = CreateObject("vbscript.regexp")
   
6.     With reg
   
7.         .Global = True
   
8.         .Pattern = "[^0-9A-Za-z一-龥]"
   
9.         s = .Replace(str, "")
   
10.     End With
    
11.     MsgBox s
    
12. End Sub

复制代码

我要的结果是："0.58元。狂犬病疫苗。89.65元。长春长生疫苗案件。"
麻烦各位，谢谢。

小花鹿

Sub test()
Dim str As String
Dim reg As Object, s
str = "0.58元.狂犬病疫苗.89.65元.长春长生疫苗案件."
Set reg = CreateObject("vbscript.regexp")
With reg
    .Global = True
    .Pattern = "(\D)(\.)"
    s = .Replace(str, "$1。")
End With
MsgBox s
End Sub

dongdonggege

小花鹿 发表于 2018-7-26 10:09
Sub test()
Dim str As String
Dim reg As Object, s

谢谢帮忙，运行正常。

duquancai

mark一下            

dongdonggege

小花鹿 发表于 2018-7-26 10:09
Sub test()
Dim str As String
Dim reg As Object, s

我是用在ppt上的。
程序如下：

1. Sub test2() '替换英文句号，是小数的不替换
   
2.     Dim sld As Slide, shp As Shape, txtFrame As TextFrame, txtRange As TextRange
   
3.     Dim reg As Object
   
4.     For Each sld In ActivePresentation.Slides
   
5.         For Each shp In sld.Shapes
   
6.             Set txtFrame = shp.TextFrame
   
7.             If txtFrame.HasText = True Then
   
8.                 Set txtRange = txtFrame.TextRange
   
9.                 If Not txtRange Is Nothing Then
   
10.                     Set reg = CreateObject("vbscript.regexp")
    
11.                     With reg
    
12.                         .Global = True
    
13.                         .Pattern = "(\D)(\.)"
    
14.                         txtRange = .Replace(txtRange, "$1。")
    
15.                     End With
    
16.                 End If
    
17.             End If
    
18.         Next
    
19.     Next sld
    
20. End Sub

复制代码

再次谢谢。

jiminyanyan

做个例子也很会抓热点呀．．．

dongdonggege

jiminyanyan 发表于 2018-7-26 12:35
做个例子也很会抓热点呀．．．

不太懂正则，程序见上，附件。

leikaiyi123

dongdonggege 发表于 2018-7-26 10:14
谢谢帮忙，运行正常。

Selection.Find.Execute "([!0-9A-D]).", , , 1, , , , , , "\1。", 2 '将点号转换为句号，但不转换小数点和选择题ABCD后的点；

fxl447098457

这个疫苗的事件很热啊。。。