vb用正则的问题？正则表达式中有引号，这样的正则该怎么用？

Question

(?s)<a[\s][^>]*href\s*=\s*[\"\']?([^\"\'>\s]*)[\"\']?[^>]*>([^<]+|.*?)?</a\s*>
这条正则刚好能满足需要，由于看不太懂就原样照搬了，但其中有引号，怎么给objRegExp.Pattern赋值啊？

Answer 1

以前都是用chr(34)来代替双引号的，今天在网上发现了一个新的方法，如下：Private Sub Form_Load()
MsgBox "难道这就是传说中的" & Chr(34) & "小强" & Chr(34) & "。"
MsgBox "难道这就是传说中的""小强""。"
End Sub很明显第二种比第一种方法简单多了。唉~，怎么以前没发现呢。文章出处：http://www.diybl.com/course/4_webprogram/asp.net/netjs/200855/113160.html

Answer 2

vb字符串中的两个引号""转义为一个引号"
debug.print """a,b"""将在立即窗口中显示:
"a,b"

Answer 3

如果是js的改成vbs的也许可以这样:
xxx.pattern = "(?s) <a[\s][^>]*href\s*=\s*[""']?([^""'>\s]*)[""']?[^>]*>([^ <]+|.*?)? </a\s*>"