asp字符串截取函数

首页 > 网络编程 > ASP编程 > 应用技巧 更新日期: 2015-09-28

asp 字符串截取函数
'*********************************************************
'函数:cutStr[str(strlen)]
'参数:str,待处理的字符串,strlen,截取的长度
'作者:木木
'日期:2007/7/12
'描述:截取指定长度的字符串
'示例:<%=cutStr("欢迎光临阿里西西",5)%>
'*********************************************************
function cutStr(str,strlen)
 If str = "" Then
 cutStr = "cutStr函数异常:字符串为空"
 exit function
 End If
'------------来源长度检查
 If  strlen = "" Then
 cutStr = "cutStr函数异常:长度未指定"
 exit function
 End If 
 If  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
''*********************************************************
'函数:strlen[str]
'参数:str,待处理的字符串
'作者:木木
'日期:2007/7/12
'描述:判断字符串长度,汉字长度为2
'示例:<%=strlen("欢迎光临阿里西西")%>
'*********************************************************
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
截取左边的n个字符'*********************************************************
'函数:LeftTrue(str,n)
'参数:str,待处理的字符串,n,截取的长度
'作者:木木
'日期:2007/7/12
'描述:显示左边的n个字符(自动识别汉字)函数
'示例:<%=LeftTrue("欢迎光临阿里西西",6)%>
'*********************************************************
Function LeftTrue(str,n)
If len(str)<=n/2 Then
 LeftTrue=str
Else
 Dim TStr
 Dim l,t,c
 Dim i
 l=len(str)
 t=l
 TStr=""
 t=0
 for i=1 to l
  c=asc(mid(str,i,1))
  If c<0 then c=c+65536
  If c>255 then
  t=t+2
  Else
  t=t+1
  End If
  If t>n Then exit for
  TStr=TStr&(mid(str,i,1))
 next
 LeftTrue = TStr
End If
End Function

> 本站内容系网友提交或本网编辑转载,其目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请及时与本网联系,我们将在第一时间删除内容!

相关文章
  • php字符串截取函数用法分析
    这篇文章主要介绍了php字符串截取函数用法分析,给出了两个示例,分别讲述了PHP自带的字符串截取函数的用法与自定义函数实现字符串截取的方法,是非常实用的字符串操作技巧,需要的朋友可以参考下本文实例分析了php字符串截取函数用法.分享给大家供大家参考.具体分析如下: php自带的截取字符串的函数只能处理英文,数字的不能截取中文混排的,后面一个示例比较好用,第一 ...
  • php中支持多种编码的中文字符串截取函数
    支持多种编码的中文字符串截取函数!   代码如下:/*     * @todo 中文截取,支持gb2312,gbk,utf-8,big5      *     * @param string $str 要截取的字串     * @param int $start 截取起始位置     * @param int $length 截取长度     * @para ...
  • PHP中英混合字符串截取函数代码
    今天在遇到了一个中英字符串截取的问题,在gbk里中文里每个字占两字节,如果全是中文的话,用substr函数就可以实现了,但中英都有的话就麻烦了,在以前收藏的代码里找到了一个不错的函数,很好的实现了截取的功能 代码如下: function get_word($string, $length, $dot = '..',$charset='gbk') { if(s ...
  • JavaScriptsubstr()字符串截取函数使用详解
    substr 方法可在字符串中抽取从 start 下标开始的指定数目的字符,文中配有大量实例代码substr 定义和用法 substr() 方法可在字符串中抽取从 start 下标开始的指定数目的字符. 语法 stringObject.substr(start,length) 参数 描述 start 必需.要抽取的子串的起始下标.必须是数值.如果是负数,那么 ...
  • jssubstring()字符串截取函数
    JavaScript中substring函数方法是返回位于String对象中指定位置的子字符串使用方法: 如需引入外部Js需刷新才能执行]
猜你喜欢