youxi01

请下载附件，解压缩后运行其中的VBS文件！

VBS程序源代码：

Set FSO=CreateObject("Scripting.FileSystemObject")
'/*/////////////////////////////////////////////////////////
'*MadeTime： 2009-10-21
'*LastModify: 2009-03-20
'*功能： 提取内容正则表达式
'*参数： 正则表达式；待处理数据对象
'**********************************************************
Function MyRegExp(Patrn,Strng)
Set RegEx1=New RegExp
With RegEx1
.Pattern = Patrn
.IgnoreCase=True     
.Global=True
End With
Set Matches =RegEx1.Execute(strng)
For i=0 to Matches.Count-1
MyRegExp=MyRegExp & i+1 & "  " & Matches(i).subMatches(0) & VBCRLF
Next
End Function

'/*/////////////////////////////////////////////////////////
'*MadeTime： 2010-03-20
'*LastModify: 2010-03-20
'*功能： 读取文本文件全部内容
'*参数： 当前目录文本文件
'**********************************************************
Function ReadFile(FileName)
Set File=FSO.OpenTextFile(FileName,1,1)
ReadFile=File.ReadAll
Set File=nothing
End Function
msgbox "scr地址：" & vbcrlf & MyRegExp("src=[""']?(http.*gif)",ReadFile("test.txt"))
msgbox "BG地址：" & vbcrlf & MyRegExp("background=[""']?(http.*gif)",ReadFile("test.txt"))
Set FSO=nothing
复制代码

youxi01

原帖由 hhz520 于 2010-3-20 20:50 发表
谢谢管理员的解答   但运行提示输入超出了文件尾   代码  ：800A003E错误

请下载附件，解压缩后直接运行其中的VBS(不要保存运行上面给的VBS代码),还要注意不要删除同目录下的test.txt