金字塔VBA实际使用的是VBS语法,你用搜索引擎关键字 VBS 正则表达式 就可以搜到到相关信息了
可以的,下面的代码是读取网页内容,然后用正则表达式进行分析的:
On Error Resume Next
Set regEx = CreateObject("VBScript.RegExp")
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "http://data.eastmoney.com/zjlx/detail.html", False
.setRequestHeader "Connection", "Close"
.setRequestHeader "Content-Type", "text/html; charset=gb2312"
'.setRequestHeader "User-Agent", "Mozilla/30.0"
.Send
respText = .responseText
End With
'Debug.Print respText
pattern = pattern = """\d{6},.+?""" ' """" & "\d{6}"
'pattern = "<a href=""http://quote.eastmoney.com/" & "\w{2}" & "\d{6}" & ".html"">" & "\d{6}"
'<a href="http://quote.eastmoney.com/SZ002190.html">----测试OK
With regEx
.Global = True
.pattern = pattern
End With
Set matchs = regEx.Execute(respText)