asp字符串截取函数

2015-08-12 16:03:42来源:作者:人点击

            本文章提供这款asp字符串截取函数原是是先用定义字符串判别函数判断字符串长度以及中英文,再把字符截取后定义超出部分内容的...显示方式

           function strvalue(str,lennum)
           dim p_num
           dim i
           if strlen(str)<=lennum then
           strvalue=str
           else
           p_num=0
           x=0
           do while not p_num > lennum-2
           x=x+1
           if asc(mid(str,x,1))<0 then
           p_num=int(p_num) + 2
           else
           p_num=int(p_num) + 1
           end if
           strvalue=left(trim(str),x)&"…" '截取后定义超出部分内容的显示方式
           loop
           end if
           end function

           '定义字符串判别函数

           function strlen(str)
           dim p_len
           p_len=0
           strlen=0
           if trim(str)<>"" then
           p_len=len(trim(str))
           for xx=1 to p_len
           if asc(mid(str,xx,1))<0 then
           strlen=int(strlen) + 2
           else
           strlen=int(strlen) + 1
           end if
           next
           end if
           end function

           ''截取字符串,1.包括前后字符串,2.不包括前后字符串
           function strcut(strcontent,startstr,endstr,cuttype)
           dim s1,s2
           on error resume next
           select case cuttype
           case 1
             s1 = instr(strcontent,startstr)
             s2 = instr(s1,strcontent,endstr)+len(endstr)
           case 2
             s1 = instr(strcontent,startstr)+len(startstr)
             s2 = instr(s1,strcontent,endstr)
           end select
           if err then
             strcute = "<p align='center' ><font size=-1>截取字符串出错.</font></p>"
             err.clear
             exit function
           else
             strcut = mid(strcontent,s1,s2-s1)
           end if
           end function

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台