UC知道帮忙详细注解一下此段asp
来源：百度知道 编辑：UC知道 时间：2024/05/24 17:33:08
Dim re,RemoteFile,Pattern,RemoteFileurl,ReplaceFileUrl
Set re = New RegExp
re.IgnoreCase = True
re.Global= True
re.Pattern = "(src\S+\.{1}(gif|jpg|png|bmp|swf)(""|\')?)"
Set RemoteFile = re.Execute(NewsContent)
Set re = Nothing
For Each RemoteFileurl in RemoteFile
ReplaceFileUrl = Replace(Replace(Replace(RemoteFileurl,"src=",""),"'",""),"""","")
Exit For
Next
这是一段判断新闻内容是否有图片或者falsh的代码，我想在re.Pattern = "(src\S+\.{1}(gif|jpg|png|bmp|swf)(""|\')?)" 这里面加入表格元素table，就是说当新闻内容里面有图片，flash和表格的时候，那么NEXT
Set re = New RegExp
re.IgnoreCase = True
re.Global= True
re.Pattern = "(src\S+\.{1}(gif|jpg|png|bmp|swf)(""|\')?)"
Set RemoteFile = re.Execute(NewsContent)
Set re = Nothing
For Each RemoteFileurl in RemoteFile
ReplaceFileUrl = Replace(Replace(Replace(RemoteFileurl,"src=",""),"'",""),"""","")
Exit For
Next
这是一段判断新闻内容是否有图片或者falsh的代码，我想在re.Pattern = "(src\S+\.{1}(gif|jpg|png|bmp|swf)(""|\')?)" 这里面加入表格元素table，就是说当新闻内容里面有图片，flash和表格的时候，那么NEXT
这是正册表达式,表示的是某的文件的后缀是否为gif|jpg|png|bmp|swf
如果想把表格放进去就得让他匹配个表格的标签table
可以试试
re.Pattern = "(src\S+\.{1}(gif|jpg|png|bmp|swf)(""|\')?)|table"