婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > URL 篩選小工具 提取網頁中的超鏈接地址

URL 篩選小工具 提取網頁中的超鏈接地址

熱門標簽:百度地圖標注怎么卸載 前鋒辦理400電話申請 辦理膠州400電話財稅 海外美發店地圖標注 外呼營銷下單系統 加盟電銷機器人好的品牌 新密防封卡外呼系統違法嗎 打電話的外呼系統貴不貴 陜西高頻外呼回撥系統哪家好

使用方法:將下面的代碼保存為jb51.vbs
然后拖動你保存在本地的htm頁面,拖放在這個vbs即可

'備注:URL篩選小工具
 '防止出現錯誤
On Error Resume Next
'vbs代碼開始----------------------------------------------
Dim p,s,re
If Wscript.Arguments.Count=0 Then
Msgbox "請把網頁拖到本程序的圖標上!",,"提示"
Wscript.Quit
End If
For i= 0 to Wscript.Arguments.Count - 1
p=Wscript.Arguments(i)
With CreateObject("Adodb.Stream")
.Type=2
.Charset="GB2312"
.Open
.LoadFromFile=p
s=.ReadText
Set re =New RegExp
re.Pattern= "[A-z]+://[^"">()\s']+"
re.Global = True
If Not re.Test(s) Then
Msgbox "該網頁文件中未出現網址!",,"提示"
Wscript.Quit
End If
Set Matches = re.Execute(s)
s=""
For Each Match In Matches
s=s  "a href="""  Match.Value  """>"  Match.Value  "p>"
Next
re.Pattern= "\w+;?|\W{5,}"
s=re.Replace(s,"")
.Position=0
.setEOS
.WriteText s
.SaveToFile p  "'s URLs.html",2
.Close
End With
Next
Msgbox "網址列表已經生成!",,"成功"

'vbs代碼結束----------------------------------------------

到此這篇關于URL 篩選小工具 提取網頁中的鏈接地址的文章就介紹到這了,更多相關提取網頁中的鏈接地址內容請搜索腳本之家以前的文章或繼續瀏覽下面的相關文章希望大家以后多多支持腳本之家!

標簽:伊春 四平 武威 阜陽 牡丹江 咸陽 河南 梅州

巨人網絡通訊聲明:本文標題《URL 篩選小工具 提取網頁中的超鏈接地址》,本文關鍵詞  URL,篩選,小,工具,提取,網頁,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《URL 篩選小工具 提取網頁中的超鏈接地址》相關的同類信息!
  • 本頁收集關于URL 篩選小工具 提取網頁中的超鏈接地址的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 济宁市| 西城区| 银川市| 额尔古纳市| 兴和县| 普宁市| 普兰县| 吉首市| 隆林| 通州市| 满洲里市| 巫山县| 民县| 黄冈市| 蕲春县| 顺昌县| 武平县| 合作市| 比如县| 二连浩特市| 临泉县| 恭城| 温泉县| 山阴县| 石屏县| 徐闻县| 亚东县| 嵊州市| 丘北县| 彰化县| 澜沧| 健康| 黄梅县| 股票| 禹城市| 凤冈县| 安平县| 资源县| 新晃| 武安市| 长春市|