正则表达式获得总页码出错，求修正

zbs112

以下为网页的部分内容:
...............>27</a>
<a href=?sortfd=%e6%b6%a8%e8%b7%8c%e5%b9%85&marketid=&hy=&sectypeid=1&sortway=desc&scb=&stockcode=&page=28&mystock= target=_self>28</a>
<a href=?sortfd=%e6%b6%a8%e8%b7%8c%e5%b9%85&marketid=&hy=&sectypeid=1&sortway=desc&scb=&stockcode=&page=29&mystock= target=_self>29</a>
<a href=?sortfd=%e6%b6%a8%e8%b7%8c%e5%b9%85&marketid=&hy=&sectypeid=1&sortway=desc&scb=&stockcode=&page=2&mystock= target=_self>下一页</a>
</div><!--/93.421875--></div>

Private Sub CommandButton1_Click()
    Dim str As String
    Dim Regex As Object
    Set Regex = CreateObject("vbscript.regexp")
    With Regex
        .Global = True  '全局有效
        .MultiLine = True   '多行有效
        .IgnoreCase = True    '忽略大小写
    End With
    str = Cells(2, "B").Value     '此为第1种字符串，运行正常
    Regex.Pattern = Cells(3, "B").Value
    Cells(4, "B") = Regex.Execute(str).Item(0)
    Cells(5, "B") = Regex.Execute(str).Item(0).SubMatches(0)
    Set Regex = Nothing  '清空正则项目
End Sub


我用正则表达式(\d+)</a>\n<a[\s\S][^>]*?>下一页</a>获得如下部分内容:
29</a>
<a href=?sortfd=%e6%b6%a8%e8%b7%8c%e5%b9%85&marketid=&hy=&sectypeid=1&sortway=desc&scb=&stockcode=&page=2&mystock= target=_self>下一页</a>

zbs112

可是用下面的方法，为什么就运行出错，不知道错在哪，求助修改


Private Sub CommandButton1_Click()
    Dim str As String
    Dim Regex As Object
    Set Regex = CreateObject("vbscript.regexp")
    With Regex
        .Global = True  '全局有效
        .MultiLine = True   '多行有效
        .IgnoreCase = True    '忽略大小写
    End With
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Open ThisWorkbook.Path & "\沪深涨跌幅.txt" For Binary As #1
    str = Input(LOF(1), #1)     '此为第2种字符串，运行出错
    Close #1
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Regex.Pattern = Cells(3, "B").Value
    Cells(4, "B") = Regex.Execute(str).Item(0)
    Cells(5, "B") = Regex.Execute(str).Item(0).SubMatches(0)
    Set Regex = Nothing  '清空正则项目
End Sub

龙城飞将III

pattern=(\d+)</a>\r\n<a.*?>
这儿涉及到一个知识点，回车换行是两个元字符分别对应\r \n

龙城飞将III

参考附件：楼主的信息在附件中并没有截全，所以只给了取一般页码的pattern，取总页码只要在后面再加代表结束的下一页即可。其关键疑难点在\r\n，如上楼所示。剩下的楼主应该可以自己改好。

zbs112

谢谢龙城飞将III的解答！
经测试，获得最大页码的正则表达式：
(\d+)</a>\r\n<a[\s\S][^>]*?>下一页</a>

改为换行回车对应\n\r 正则就会出错。
(\d+)</a>\n\r<a[\s\S][^>]*?>下一页</a>

原来是有先后顺序的，严谨表达式。