日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

vb.net提取html网址,如何提取网页代码中指定内容

發(fā)布時間:2025/3/15 编程问答 28 豆豆
生活随笔 收集整理的這篇文章主要介紹了 vb.net提取html网址,如何提取网页代码中指定内容 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

怎么提取網(wǎng)頁代碼中指定內(nèi)容?

某數(shù)據(jù)庫網(wǎng)頁結(jié)構(gòu)如下:

html?PUBLIC?"-//W3C//DTD?XHTML?1.0?Transitional//EN"?"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

2015年9月6日?17:18

農(nóng)業(yè)藥械:?

瞬時流量:175.30?m3/h?

累計流量:79438?m3?

程序下載到html文件中,名稱為1400.html,源代碼如上,現(xiàn)在想提取??????????????

農(nóng)業(yè)藥械:?

??這一句,怎么編程?

------解決思路----------------------

Imports?System.Text.RegularExpressions

Imports?System.Text

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?strWeb?As?String?=?IO.File.ReadAllText(Application.StartupPath?&?"\1400.html",?Encoding.Default)

MsgBox(strWeb)

Dim?re?As?Regex

re?=?New?Regex("

(.*?)

",?RegexOptions.IgnoreCase)

If?re.IsMatch(strWeb)?Then

MsgBox(re.Match(strWeb).Groups(1).Value)

End?If

re?=?New?Regex("

(.*?)

",?RegexOptions.IgnoreCase)

If?re.IsMatch(strWeb)?Then

For?Each?mat?As?Match?In?re.Matches(strWeb)

MsgBox(mat.Groups(1).Value)

Next

End?If

End?Sub

End?Class

拿去不謝,百度“正則表達式”

總結(jié)

以上是生活随笔為你收集整理的vb.net提取html网址,如何提取网页代码中指定内容的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。