发两个自己写的首页调用文章很实用的函数

Function cpimages(countent) '提取数据中第一幅图片的路径
beginstr=instr(countent,"src=")
if beginstr=0 then exit function
heodinstr=instr(beginstr,countent," ")
countent=mid(countent,beginstr+4,heodinstr-beginstr-4)
cpimages=countent
end function

Function cutStr(str,strlen)
'去掉所有HTML标记
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
l=Len(str)
t=0
For i=1 to l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2
Else
t=t+1
End If
If t>=strlen Then
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
cutStr=Replace(cutStr,chr(32),"")
End Function

 

第一个可以提取出一段文章中的第一张图片的路径。

第二个函数正好相反，可以去除掉文章中的html标签