batman

首先我要告诉你这个强大的脚本语言叫VBS不是VSB
其次我要告诉你当代码不止一行时请用code标签将代码如下括起来
[\code]
代码
[\/code]这里都多打了一个\字符是为了让你看到这个示例
提取url的代码如下：

Dim objFSO, objStr
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStr = objFSO.OpenTextFile("a.txt").ReadAll
Dim objREG
Set objREG = New RegExp
objREG.Global = True
objREG.IgnoreCase = True
objREG.Pattern = ".*""([a-zA-z]+://[^\s]+)"".*"
objStr = objREG.Replace(objStr, "$1")
Set objREG = Nothing
objFSO.OpenTextFile("new.txt", 2, True).Write Replace(objStr, vbLf, vbCrLf)
Set objFSO = Nothing
WScript.Echo "ok"COPY

batman

如楼主实在是要取到每一行的<a href="http://www.chuxingyi.net/txt/6_1.html"这一段，
正则应改成：objREG.Pattern = ".*<li>(.*"")>.*"