比较实用的首页调用文章的两个函数

Function cpimages(countent) '显示文章中的图片
beginstr=instr(countent,"src=")
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标签

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有