自定义字符的替换

kings12333

有如下文本，
S="光伏板块午后异动， 'sz300111'>向日葵(SZ300111) 、 'sh601908'>京运通(SH601908) 、 'sz002218'>拓日新能(SZ002218) 、中来光伏集体封板， 'sh603105'>芯能科技(SH603105) 、 'sh601222'>林洋能源(SH601222) 纷纷异动。"

需要将 'sz300111'>,'sh601908'>,'sz002218'>,'sh603105'>,'sh601222'>替换成空，这里单引号之间的内容为变量，怎么用代码替换掉。。

microyip

1. Function 正则提取应用()
   
2.     Dim sStr As String
   
3. 
   
4.     sStr = "光伏板块午后异动， 'sz300111'>向日葵(SZ300111) 、 'sh601908'>京运通(SH601908) 、 'sz002218'>拓日新能(SZ002218) 、中来光伏集体封板， 'sh603105'>芯能科技(SH603105) 、 'sh601222'>林洋能源(SH601222) 纷纷异动。"
   
5.     With CreateObject("Vbscript.RegExp")
   
6.         .Global = True
   
7.         .IgnoreCase = True
   
8.         .Pattern = "'[^']+'>"
   
9.         sStr = .Replace(sStr, "")
   
10.     End With
    
11. End Function

复制代码

gdfcx

1. .Pattern = "'s[z|h]\d+'>"

复制代码

kings12333

microyip 发表于 2019-6-13 16:01

感谢。。。

DevilW

1. '.*?'>

复制代码

kings12333

DevilW 发表于 2019-6-13 18:20

举一反三，如何用正则来提取替换的内容呢？

dddfr

kings12333 发表于 2019-6-14 08:21
举一反三，如何用正则来提取替换的内容呢？

regExp.excute 返回值就是符合正则的字符串

kings12333

dddfr 发表于 2019-6-14 09:09
regExp.excute 返回值就是符合正则的字符串

具体如何表达呢？

dddfr

Function 正则提取应用()
    Dim sStr As String

    sStr = "光伏板块午后异动， 'sz300111'>向日葵(SZ300111) 、 'sh601908'>京运通(SH601908) 、 'sz002218'>拓日新能(SZ002218) 、中来光伏集体封板， 'sh603105'>芯能科技(SH603105) 、 'sh601222'>林洋能源(SH601222) 纷纷异动。"
    With CreateObject("Vbscript.RegExp")
        .Global = True
        .IgnoreCase = True
        .Pattern = "'[^']+'>"
        sStr = .Replace(sStr, "")
    End With
End Function

前面跟这个一样，sStr = .Replace(sStr, "") 这句改为sStr=.exceute

kings12333

dddfr 发表于 2019-6-14 15:12
前面跟这个一样，sStr = .Replace(sStr, "") 这句改为sStr=.exceute

试用报错“对象不支持该属性或方法"