欢迎来到皮皮网官网

【deque用法源码】【汇客生活源码】【源码处理工具】文字vb源码_vb字体代码

时间:2024-12-26 01:41:12 来源:小圈源码开发

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

文字vb源码_vb字体代码

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

       先引用正则库,文字然后编写如下代码,源码deque用法源码其中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

copyright © 2016 powered by 皮皮网   sitemap