注册
登录
| 关键词： Wscript 地址 文件 网页 Arguments plist Settings 真实 标上 一个 |
有些网页对真实的mp3地址进行了防盗链处理，造成无法直接查看源文件来获取真实的物理地址。有时他会将地址保存 在%USERPROFILE%\Administrator\Local Settings\Temporary Internet Files 目录下面为html文件，其中就包含了其真实的地址，有时在一个网页内有多个mp3地址，也就会有多个html文件，如果手工一个一个处理相当麻烦，下面 用 bat+vbs 来提取，其实用findstr也可以。更简单！bat code：@echo offREM code by woyiguiREM dir命令后的htm文件随意修改for /f "tokens=*" %%i in ('dir /s /b ^"C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\MusicUrl*.htm^"') do type "%%i" >> d:\mp3plist.txt && echo. >>d:\mp3plist.txtcscript mp3-url.vbs d:\mp3plist.txtvbs code:Dim p,s,reIf Wscript.Arguments.Count=0 ThenMsgbox "请把网页拖到本程序的图标上！",,"提示"Wscript.QuitEnd IfFor i= 0 to Wscript.Arguments.Count - 1p=Wscript.Arguments(i)With CreateObject("Adodb.Stream").Type=2.Charset="GB2312".Open.LoadFromFile=ps=.ReadTextSet re =New RegExpre.Pattern= "(http://.*.mp3)"re.Global = TrueIf Not re.Test(s) ThenMsgbox "该网页文件中未出现网址！",,"提示"Wscript.QuitEnd IfSet Matches = re.Execute(s)s=""For Each Match In Matchess=s & Match.Value & vbCrlfNextre.Pattern= "&\w+;?|\W{5,}"s=re.Replace(s,"").Position=0.setEOS.WriteText s.SaveToFile p,2.CloseEnd WithNext其中的vbs略加修改，可用于很多需求。最后的结果在：d:\mp3plist.txt 文件中。 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
