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标签 |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-30 09:33 , Processed in 0.151258 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.