1.VB如何获取webbrowser源码指定文本
VB如何获取webbrowser源码指定文本
先引用正则库,源码然后编写如下代码,源码客户跟进系统 源码其中html的源码今粉视家源码值替换为你问题中的html源码。Private Sub Form_Load()
Dim html As String
html = "<li><em>经验值</em></li><li><em>金币数</em></li>"
ExpeValue = FindFirstGroup("<em>经验值</em>(\d+)</li>",源码源码熊怎么样 html)
CoinValue = FindFirstGroup("<em>金币数</em>(\d+)</li>", html)
MsgBox "经验值为" & ExpeValue
MsgBox "金币值为" & CoinValue
End Sub
Private Function FindFirstGroup(pattern As String, src As String) As String
Dim re As RegExp
Set re = New RegExp
With re
.pattern = pattern
Set Matches = .Execute(src)
If Matches.Count = 0 Then
FindFirstGroup = ""
Else
FindFirstGroup = Matches(0).SubMatches(0)
End If
End With
End Function
2024-12-25 15:33
2024-12-25 15:19
2024-12-25 14:34
2024-12-25 14:06
2024-12-25 14:04
2024-12-25 13:59
2024-12-25 13:09
2024-12-25 13:09