怎样用VB找到TEXT1中的特定的URL，然后导出到TEXT2中？

Question

我用FOXMAIL收取YAHOO EMAIL，在FOXMAIL中相同站点的我把它都放到一个TEXT中，但是，这个TEXT中，我只需要一些有效的URL链接，其他可省略。于是，我要在这个TEXT中进行搜索，删去无效的URL和测试的URL。我的思路是：首先，我设置关键字来分别判断有效（AA）、无效（BB）和测试（CC）的URL，然后，得到有效的URL。第三步是把有效的URL导出到另一个TEXT中。
    这是提取URL链接的代码：
Public Function IsUrl(ByVal strTmp As String) As Boolean
    On Error GoTo Z
    Dim objIntPattern
    IsUrl = False
    Set objIntPattern = New RegExp
    objIntPattern.Pattern =  "^(http://|https://){0,1}[A-Za-z0-9][A-Za-z0-9\-\.]+[A-Za-z0-9]\.[A-Za-z]{2,}[\43-\176]*$"
    objIntPattern.Global = True 
    IsUrl = objIntPattern.Test(strTmp) 
    Set objIntPattern = Nothing 
Z: 
End Function 
   这是打开1个txt文本文挡  然后从里面找 带有 "abc" 的句子找出来(1行 当1句)的代码：
   '一行当一句查找： 
Open "C:\a.txt" For Input As #1 
Dim tmp As String 
 Do While Not EOF(1) 
 Line Input #1, tmp 
 If InStr(1, Trim(tmp), "操作历史报告") > 0 Then Exit Do 
 If InStr(1, LCase(tmp), "abc") > 0 Then '把LCase去掉则区分大小写 
 List1.AddItem tmp 
 End If 
 Loop 
Close #1 
    我目前困惑的是如何把二者结合起来，再结合关键字，找到有效URL，并存到TEXT中。因为是新手，拜托大家多指教了。End Function 

Answer 1

         我现在也在搞这个,是从网页中找出有用的地址,以供下载,我没有搞出来,但我的思路是:
     x=intrl(a,"www")'x为头地址
      y=intrl(a,".mp3")'y为尾地址
      do while
      if y-x>50 then   头地址到尾地址的字符串小于一定找度,则说明这是一个有效的URL
      z=mid(a,x,y-x+4)
       else
        y=intrl(y,a,".mp3")
         loop
我上面的错误很多,只是提供一个思路,希望你能成功