正则表达式提取中间部分字符

早睡不早起

正则部分：
        Set MyRegExp = CreateObject("VBSCRIPT.REGEXP")
        With MyRegExp
            .Pattern = "ValueFont"">.*?</td>"
            .Global = True
            Set Matches = .Execute(m)
        End With
提取内容：
ValueFont">US $42.99</td>
ValueFont">1</td>
ValueFont">Jan-02-17 23:38:52 PST</td>

下面内容是我用上面的正则提取出来的，其实我只想要中间红色字体的部分，请问这个规则应该怎么写？

[/tr]

shimakaze

.Pattern = ".*>{1}(.*)<{1}.*"
取出后
.Replace(m, "$1")

Kaohsing

    那个.*？用括号括起来。

yeminqiang

tcdatongye

[^<]*?(?=<)

Kaohsing

  Sub textRegExp()
        Dim strText$
        Dim i%
        strText = "ValueFont '>US $42.99</td>'" & Chr(13) & "ValueFont '>1</td>'" & Chr(13) & "ValueFont '>Jan-02-17 23:38:52 PST</td>'"
        Set MyRegExp = CreateObject("VBSCRIPT.REGEXP")
        With MyRegExp
            .Pattern = "ValueFont '>(.*?)</td>"
            .Global = True
            Set mh = .Execute(strText)
        End With
      
        For i = 0 To mh.Count - 1
         MsgBox mh(i).submatches(0)
        Next
   End Sub

早睡不早起

Kaohsing 发表于 2017-1-3 17:29
那个.*？用括号括起来。

其它语言可以这样，但vba不行。

早睡不早起

Kaohsing 发表于 2017-1-3 18:50
Sub textRegExp()
        Dim strText$
        Dim i%

正是我想要的效果，感谢感谢。

早睡不早起

逐一测试，好像只有6楼是正解，vba的正则和其它语言的不太一样，python里面是把.*?用小括号括起来就可以，但vba不行。

小花鹿

早睡不早起 发表于 2017-1-4 11:15
逐一测试，好像只有6楼是正解，vba的正则和其它语言的不太一样，python里面是把.*?用小括号括起来就可以， ...

行不行，你得试试才知道