function imgstr(str)
dim regex
set regex = new regexp '建立正则表达式。
regex.pattern = "]+){1}[^<>]*>( ]*)(src=)('|"&chr(34)&"| )?(.[^'|s|"&chr(34)&"]*)(.)(jpg|gif|png|bmp|jpeg)('|"&chr(34)&"|s|>)(.[^>]*)(>)" '设置模式。
regex.ignorecase = true '设置是否区分字符大小写。
regex.global = true '设置全局可用性。
set matches = regex.execute(str) '执行搜索。
for each match in matches '遍历匹配集合。
imgstr = imgstr + replace(match.submatches(1),"productshow.asp?articleid=","")&"*****"
imgstr = imgstr + match.submatches(6)&"."&match.submatches(8)&"*****"
imgstr = imgstr + replace(match.submatches(10)," alt=","") & "
"
next
end function'纯字符截取函数
function cutstr(str,strlen)
if str = "" then
cutstr = "cutstr函数异常:字符串为空"
exit function
end if
'------------来源长度检查
if strlen = "" then
cutstr = "cutstr函数异常:长度未指定"
exit function
end ifif cint(strlen) = 0 then
cutstr = "cutstr函数异常:长度为0"
exit function
end if
'----------检测来源字符长度
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),"")
end function
'使用方法
call cutstr("111com.net网页制作教程",5)
茶杯头甜蜜终章dlc 官方手机版v1.0.0.3
下载火柴人传说暗影格斗内置菜单 最新版v3.0.1
下载荒野乱斗测试服 安卓版v61.10.3
下载荒野乱斗彩虹服 安卓版v61.10.3
下载寒霜启示录 安卓版v1.25.10
寒霜启示录是一款生存模拟游戏,不少玩家可能对于末日都有着自己
末日城堡免广告版 安卓最新版v0.7.1
末日城堡免广告版是一款非常好玩的模拟经营类游戏,内部可以不看
甜蜜人生模拟器 最新版v1.4.5
甜蜜人生模拟器是一款非常好玩的模拟恋爱手游,玩家在这里能够对
武器锻造师内置功能菜单 v10.4
武器锻造师内置菜单版是游戏的破解版本,在该版本中为玩家提供了
开放空间overfield 安卓版v1.0.5
开放空间Overfield是一款箱庭养成经营手游,让你在广阔