欢迎来到皮皮网网站!

【即时通讯软件源码免费】【亦奇源码】【ubuntuqt源码编译】文字vb源码_vb字体代码

时间:2024-12-26 03:09:38 来源:coding下载源码

1.VB如何获取webbrowser源码指定文本

文字vb源码_vb字体代码

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>",代码ubuntuqt源码编译 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

更多相关资讯请点击【探索】频道>>>