Dim str As String = "href=""https://detail.tmall.com/item.htm?id=534618276467"">dddddddhref=""https://detail.tmall.com/item.htm?id=534618276467"">" msgbox(str) Dim reg As new System.Text.RegularExpressions.Regex("(?<=\?id=)[0-9]+(?="")") Dim mc As object = reg.Matches(str) For i As Integer = 0 To mc.count-1 msgbox(mc(i).value) Next
加好友 
发短信
Post By：2017/9/4 8:46:00 [显示全部帖子]
