vbs把提取的网页源文件（http:u.115.comfilef4764c38ca）正则一下提取网址，再存入数组里,提交表单！

正则式是

(<=\/union\/feixin\/topic\/viewtopic\/)\d{4}

url=">

set ws=createobject("wscriptshell")

a=msgbox( "显示内容",0,"标题")

if a=1 then

wsrun "网址"

end if

（备注，我写的是点“确定”跳转一个网页，如果你代码是从别的地方复制，按钮是“是”的话，把a=1改成a=6你如果想要“确定”和“取消”两按钮，把第二行的0改成1）

Set ie=WScriptCreateObject("InternetExplorerApplication") url=" >

URL = ">

比如说你的网页保存为 ahtml 以下vbs实现将指定值读出并显示:

set fso=createobject("scriptingfilesystemobject")

set file=fsoopentextfile("ahtml")'ahtml

为网页保存的绝对路径

do while fileatendofstream=false

line=filereadline

select case true

case instr(1,line,"现金")<>0

get_code line,num

a="现金: "&num&vbcrlf

case instr(1,line,"生命")<>0

get_code line,num

b="生命: "&num&vbcrlf

case instr(1,line,"精力")<>0

get_code line,num

c="精力: "&num&vbcrlf

case instr(1,line,"体力")<>0

get_code line,num

d="体力: "&num&vbcrlf

case instr(1,line,"经验")<>0

get_code line,num

e="经验: "&num&vbcrlf

case instr(1,line,"级别")<>0

get_code line,num

f="级别: "&num&vbcrlf

end select

loop

fileclose

msgbox a&b&c&d&e&f,4096+64,"温馨提示"

private sub get_code(line,num)

s1=instr(1,line,"：")

s2=instr(1,line,"</p>")

num=mid(line, s1+ 9 ,s2 - s1- 9)

end sub

dim id

id=inputbox("请歌曲ID:","ID输入","请在此输入歌曲ID,回车或确定后直接转到浏览器访问")

'以下代码访问网址：

set objWsh = CreateObject("WscriptShell")

objWshRun "iexploreexe 你的网址=" & id

以上文本复制到记事本，把最后一句里面的你的网址修改好，然后另存为，类型选择所有文件，文件名改为:下载歌曲vbs

非常重要的一点：右下角有个编码：必须选择ANSI

以上就是关于vbs把提取的网页源文件（http://u.115.com/file/f4764c38ca）正则一下提取网址，再存入数组里,提交表单！全部的内容，包括:vbs把提取的网页源文件（http://u.115.com/file/f4764c38ca）正则一下提取网址，再存入数组里,提交表单！、如何用vbs获取网页所在的本地文件夹地址、vbs文件怎么点确定打开一个网页等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！