[已解决]正则表达式

adan_bai

     Sub text()

        Dim regex As New RegExp
        Dim sr
        sr = "AA我们快乐"
        With regex
          .Global = True
          .Pattern = "A{0,}"
          Debug.Print .Replace(sr, "改")

        End With

     End Sub

计算机得到结果：改改我改们改快改乐改
为什么啊？
我觉得应该是：改我们快乐

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-4 20:44

.Pattern = "A{1,}"
你要的结果改成上面这样。

跳转到最佳答案楼层

hwc2ycy

hwc2ycy

.Pattern = "A{1,}"
你要的结果改成上面这样。

zhoucs00

hwc2ycy 发表于 2013-1-4 20:43

班管，您这个是什么测试工具？

hwc2ycy

adan_bai

hwc2ycy 发表于 2013-1-4 20:43

老师，这个好像明白了啊，谢谢
还有 .*?  这三个字符组合起来，是什么意思啊？

hwc2ycy

.代表一个，*代表0个到N个。

adan_bai

hwc2ycy 发表于 2013-1-4 21:04
.代表一个，*代表0个到N个。

连起来代表什么意思呢？

      Sub text()
        Dim regex As New RegExp
        Dim sr, mat, m
        sr = "<td><p>aa</p></td> <td><p>bb</p></td>"
        With regex
          .Global = True
          .Pattern = "<td>.*?</td>"
         Set mat = .Execute(sr)
          For Each m In mat
            Debug.Print m
          Next m
        End With
      End Sub
结果是：<td><p>aa</p></td>            <td><p>bb</p></td>

这个不太明白

hwc2ycy

如果你要了出TD标签中间的，就不能这么写了。

hwc2ycy

? 零次或一次匹配前面的字符或子表达式。