欢迎来到路由器窝!

网页源码字符串处理

浏览次数:

作者: 路由器窝

信息来源:

更新日期: 2017-01-04 22:43

文章简介

Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim dian As

  • 正文开始
  • 相关文章
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 Integer '记录是否有空格后面延迟多少位
        Dim hyou As String

        Dim aa As String '判断A链接标识符
        Dim aaa As Integer '判断A链接>出现的位置
        Dim str As String '字符串
        Dim you As String
        Dim zuo As String
        Dim zuozuo As Integer '判断左边的最后一个字符
        Dim right As Integer
        RichTextBox2.Text = ""
        hdian = 0
        hyou = ""
        RichTextBox1.Text = "<li><a href  =       '    /luyouqsz/' clsas="">路由器怎么设置</a></li>"
        str = RichTextBox1.Text
        For i = 1 To (Len(str))
            If (InStrRev(str, "href")) > 0 Then
                zuo = (Mid(str, 1, ((InStrRev(str, "href")) + 3))) + "=" '截取href左边的字符
                'MsgBox(zuo)

                For j = 1 To 10
                    dian = Mid(str, (Len(zuo) + j), 1)
                    If dian <> Space(1) And dian <> "=" Then
                        dian = dian
                        hdian = j
                        ' MsgBox(hdian)
                        j = 11
                    End If
                Next j
                ' MsgBox(dian)
                zuo = zuo + dian
                RichTextBox2.Text = RichTextBox2.Text + zuo + "[field:arcurl/]" + dian

                ' MsgBox(zuo)
                hyou = Mid(str, ((Len(zuo)) + hdian), ((Len(str)) - ((Len(zuo)) - 1)))
                'MsgBox(hyou)

                str = hyou


            ElseIf (InStrRev(str, "</a>")) > 0 Then
                'MsgBox(InStrRev(str, "</a>")) '第一个出现href的位置
                zuo = Mid(str, 1, (InStrRev(str, "</a>"))) '</a>左边的所有字符
                MsgBox(zuo)
                you = Mid(str, ((InStrRev(str, "</a>")) + 4), ((Len(str)) - ((InStrRev(str, "</a>")) + 3)))
                'MsgBox(you)
                For j = 1 To Len(zuo) '判断>出现的位置
                    aa = Mid(zuo, j, 1)
                    If aa = ">" Then
                        aaa = j
                    End If
                Next j
                zuo = Mid(str, 1, aaa) '截取href左边的字符
                RichTextBox2.Text = RichTextBox2.Text + zuo + "[field:title/]" + "</a>"
                str = you
                'MsgBox(str)

            Else

            End If
        Next i

    End Sub
End Class

转载请注明:vs2010» 网页源码字符串处理

标签:
上一页:vb.net判断文件或者文件夹是否存在源码
下一页:计算一个字符串出现的次数
最近更新作品
VB.net基础:如何获得并显示网上图片
更新时间:2020-07-02

150人已经看过了!

获取网站代码
更新时间:2019-09-21

147人已经看过了!

vb.net 正则表达式 取 html代码中的A标签的 href 链接
更新时间:2019-09-21

278人已经看过了!

VB.NET用正则表达提取数字
更新时间:2019-09-21

241人已经看过了!

判断指定路径下是否存在指定文件
更新时间:2018-12-08

117人已经看过了!

vb.net控件隐藏
更新时间:2017-11-20

165人已经看过了!

vb.net2010邮件发送带附件,带设置测试可用
更新时间:2017-08-24

129人已经看过了!

vb.net2010发送邮件
更新时间:2017-08-24

146人已经看过了!

VB.NET固定选项卡TabControl的标题宽度
更新时间:2017-06-13

158人已经看过了!