·设为首页
·联系站长
·加入收藏
 位置: IT外包服务提供商 >> 文章频道 >> IT学堂 >> 网络学堂 >> 正文 当前没有通告!
  提取网页内的mp3地址的方法技巧    3星级
提取网页内的mp3地址的方法技巧
[ 作者:bianhongjin     来源:IT外包     点击数:3020     更新时间:2012-11-21     文章录入:bianhongjin
【字体: 字体颜色
有些网页对真实的mp3地址进行了防盗链处理,造成无法直接查看源文件来获取真实的物理地址。有时他会将地址保存在%USERPROFILE%AdministratorLocal SettingsTemporary Internet Files 目录下面为html文件,其中就包含了其真实的地址,有时在一个网页内有多个mp3地址,也就会有多个html文件,如果手工一个一个处理相当麻烦,下面用 bat+vbs 来提取,其实用findstr也可以。更简单!
  bat code:
  
  
  @echo off
  REM code by woyigui
  REM dir命令后的htm文件随意修改
  for /f "tokens=*" %%i in ('dir /s /b ^"C:Documents and SettingsAdministratorLocal

SettingsTemporary Internet FilesMusicUrl*.htm^"') do type "%%i" >> d:mp3plist.txt && echo. >>d:mp3plist.txt
  cscript mp3-url.vbs d:mp3plist.txt
  
  vbs code:
  
  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= "(http://.*.mp3)"
  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 & Match.Value & vbCrlf
  Next
  re.Pattern= "&w+;?|W{5,}"
  s=re.Replace(s,"")
  .Position=0
  .setEOS
  .WriteText s
  .SaveToFile p,2
  .Close
  End With
  Next
  
  其中的vbs略加修改,可用于很多需求。最后的结果在:d:mp3plist.txt 文件中。
  相关日志
  数据包分离处理
  快速启用或禁用代理服务器
  教你写真正的进度条
  隐藏批处理运行工具

编辑:北京信诚www.xcitbm.com>IT保姆www.xcitbm.com>IT外包部 http:// www.xcitbm.com www.xcit.com.cn

  • 上一篇文章: 网页上的图片显示红*的原因及解决方法

  • 下一篇文章: 网页上的图片显示红*的原因及解决方法
  • 发表评论   告诉好友   打印此文  收藏此页  关闭窗口  返回顶部
     最新5篇热点文章
     联想固态硬盘SL700在BIOS里...
     IT外包首选我们的八大理由...
     中国劳科院与我公司续签了...
     中共中央政治局常务委员会...
     北京IT外包服务联盟知行社...
     
     最新5篇推荐文章
     0x000000ce蓝屏解决方案
     HP 706n 打印机打印A3纸的...
     什么是网络瓶颈?
     网线质量不好有什么影响?...
     蓝屏提示0x0000006B
     
     相 关 文 章

      网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
  • 这篇文章还没有任何评论。
  • ::发表评论::
    姓名:  *  Email: * 
    评分:10  20  30  40  50  60  70  80  90  100