vb.net 正则表达式取 html代码中的A标签的 href 链接

浏览次数：次

作者： 路由器窝

信息来源：

更新日期： 2019-09-21 08:35

文章简介

Public Sub saveAUrl(ByVal Str As String) Dim r As Regex Dim m As Match r = New Regex((?=a.*?href\s*=\s*)(?1[^]*)(?=|(?1\S+)), R

正文开始
相关文章

发表评论

    Public Sub saveAUrl(ByVal Str As String)
        Dim r As Regex
        Dim m As Match
        r = New Regex("(?<=<a.*?href\s*=\s*"")(?<1>[^""]*)(?=""|(?<1>\S+))", RegexOptions.IgnoreCase Or RegexOptions.Compiled)
        m = r.Match(Str)
        While m.Success
            MessageBox.Show(m.Value)
            m = m.NextMatch()
        End While
    End Sub

    saveAUrl(Me.RichTextBox1.Text)

转载请注明：vs2010» vb.net 正则表达式取 html代码中的A标签的 href 链接

标签：

vs2010网页源码字符串处理

2017-01-04 242阅读

Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim dian As String 标志符号判断href链接 Dim hdian As ...
vs2010WebBrowser控制提示脚本错误

2017-04-21 235阅读

将WebBrowser控件ScriptErrorsSuppressed设置为True即可
vs2010vb.net删除没有用的引用文件

2016-12-06 289阅读

右边解决方案资源管理器-右键单击项目，选择属性--引用找到要删除的DLL文件删除即可
vs2010vb.net打开网址方法

2016-12-05 176阅读

System.Diagnostics.Process.Start(www.163.com)或者用 WebBrowser控件，代码 WebBrowser1.Url = New System.Uri(http://www.163.com)
vs2010读取文件路径的文件夹名字

2016-12-08 155阅读

Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...
vs2010VB.net复制RichTextBox1内容源码

2016-12-06 138阅读

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.Clipboard.Clear() If Me.RichTextBox1.Tex...
vs2010VB.NET添加皮肤带实例查看工具

2016-12-05 201阅读

第一步添加皮肤控件dll: 项目-》添加引用-》浏览选择IrisSkin4.dll第二步导入皮肤可以直接在项目的Debug目录下新建一个skin文件夹，然后复制皮肤.ssk文件到该文件夹第三步在窗体的Load方法下面，添加如下代码，这里以VB.NET为例: Dim mySkin As Sunisof
vs2010vb.net2010发送邮件

2017-08-24 190阅读

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim smtp As New System.Net.Mail.SmtpClient(smtp.126.com, 25) smt...
vs2010VB.NET调整tabcontrol的tabpage标签的宽度

2016-12-06 231阅读

调整tabcontrol的tabpage标签的宽度
vs2010vb.net判断文件或者文件夹是否存在源码

2016-12-18 113阅读

Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Boo_DirExist(F:/d...