截取特定头部及尾部标签内匹配的内容函数

作者:网络 来源:佚名 更新时间:2008-01-17 03:14:51 点击:
国内最大的酷站演示中心!

截取特定头部及尾部标签内匹配的内容函数,通常用于小偷程序。

public function cutfixcontent(byval str, byval start, byval last, byval n)
dim strtemp
on error resume next
if instr(str, start) > 0 then
select case n
case 0  '左右都截取(都取前面)(去处关键字)
strtemp = right(str, len(str) - instr(str, start) - len(start) + 1)
strtemp = left(strtemp, instr(strtemp, last) - 1)
case else  '左右都截取(都取前面)(保留关键字)
strtemp = right(str, len(str) - instr(str, start) + 1)
strtemp = left(strtemp, instr(strtemp, last) + len(last) - 1)
end select
else
strtemp = ""
end if
cutfixcontent = strtemp
end function