【www.gdgbn.com--正则表达式】

 Function GetZhanzhanList(Codes)
  Codes=RegExpTest(".*?", Codes)
  Codes=Replace(Codes,"","")
  Codes=Replace(Codes,"","")
  Codes2=""
  TempArr=Split(Codes,"||")
  For Each Temp In TempArr
   If Temp<>"" And Instr(Temp,"http://")=0 Then
    If Instr(Temp,"0 Then
     Temp=Split(Temp,">")(1)
     Temp=Split(Temp,"<")(0)
    End If
    If Codes2="" Then
     Codes2=Temp
    Else
     Codes2=Codes2&"||"&Temp
    End If
   End If
  Next
  GetZhanzhanList=Codes2
 End Function

本文来源：http://www.gdgbn.com/aspjiaocheng/20763/