一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp去除表格内容的正则表达式

时间:2009-07-13 编辑:简简单单 来源:一聚教程网


 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,"")(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

 

热门栏目