asp 字符串截取函数

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

赞 (0)

相关推荐

  • asp实现截取字符串函数

    如果标题过长,因为页面布局的限制,只能列表10个字符,这个函数会帮你实现的 复制代码 代码如下: '截取字符串 strvalue(标题,字数) 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 > lenn

  • ASP.NET 字符串截取

    复制代码 代码如下: **//// /// 截取字符串,不限制字符串长度 /// /// 待截取的字符串 /// 每行的长度,多于这个长度自动换行 /// public string CutStr(string str,int len) { string s=""; for(int i=0;i 11 { int r= i% len; int last =(str.Length/len)*len; if (i!=0 && i<=last) { if( r==0) {

  • GetBody asp实现截取字符串的代码

    '================================================== '函数名:GetBody '作  用:截取字符串 '参  数:ConStr ------将要截取的字符串 '参  数:StartStr ------开始字符串 '参  数:OverStr ------结束字符串 '参  数:IncluL ------是否包含StartStr '参  数:IncluR ------是否包含OverStr '============================

  • asp从字符串里截取N个带HTML的字符的函数

    '函数名:getHTMLContent'参数:NO-->要取得的字符数, txtContent-->要处理的字符串  '功能: 从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放到数组里,然后一个一个数组的加上来看看字符是否大于给定的字符如果是,那么,返回这个数组. '作者:柳永法 '时间:2007-6-1 20:03 :)Function getHTMLContent(NO, txtContent) If Len(txtConte

  • asp截取字符串的两种应用 原创

    1.纯粹的截取字符串 复制代码 代码如下: function cutstr(thestr1,strlen) dim l,t,c l=len(thestr1) if l<1 then exit function t=0 for dxy1=1 to l c=Abs(asc(Mid(thestr1,dxy1,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then thev=mid(thestr1,1,dxy1) exit for

  • asp截取指定英汉混合字符串_支持中文

    说明:本函数作用是截取指定英汉混合字符串,并保持显示长度一至.就是将一个汉字当两英文来截取. 用途:一般会用在标题显示列表,可以避免截取的字符串参插不齐的现象. 程序代码 复制代码 代码如下: '//A_strString要处理的字符串 '//A_intLen以英文字符数为准 '//A_strAddString如果A_strString有截取字符时添中的后缀,如:...,可以为空 function CutString(byval A_strString,byval A_intLen,byval

  • asp CutStrX字符串截取函数(过滤全部HTML标记)

    复制代码 代码如下: Function CutStrX(ByVal Str,ByVal StrLen) Dim l,t,c,i,r '过滤全部HTML标记 Set r=New RegExp r.Global=True r.MultiLine=True r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)" str=r.Replace(str," ") Set r=Nothing l=Len(str) t=0 For

  • 用asp实现的截取指定格式字符串的代码

    有段字符串: asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf  没任何规律的...我要把里面的{#kljlkkm#}和{#wdfs#}查找出来... 1.Split办法:  复制代码 代码如下: <%   Dim I, sCode, aCode, sNewCode   sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"   aCode = S

  • asp下实现截取字符串特定部分内容函数

    截取字符串特定部分内容函数<% '****************************** '函数:GetKey(HTML,Start,Last) '参数:HTML,待截取的原字符串:tart,截取开始标记:last,截取结束标记 '作者:阿里西西 '日期:2007/7/12 '描述:截取字符串函数,从Start开始截取,到Last为结束 '示例:<%=GetKey("阿里西西,国内最大的WEB开发资源","最大的","资源")%

  • asp 字符串截取函数

    asp 字符串截取函数'********************************************************* '函数:cutStr[str(strlen)] '参数:str,待处理的字符串,strlen,截取的长度 '作者:木木 '日期:2007/7/12 '描述:截取指定长度的字符串 '示例:<%=cutStr("欢迎光临阿里西西",5)%> '*************************************************

  • Mysql字符串截取函数SUBSTRING的用法说明

    Mysql字符串截取函数SUBSTRING的用法说明

    感觉上MySQL的字符串函数截取字符,比用程序截取(如PHP或JAVA)来得强大,所以在这里做一个记录,希望对大家有用. 函数: 1.从左开始截取字符串 left(str, length) 说明:left(被截取字段,截取长度) 例:select left(content,200) as abstract from my_content_t 2.从右开始截取字符串 right(str, length) 说明:right(被截取字段,截取长度) 例:select right(content,200

  • php中支持多种编码的中文字符串截取函数!

    支持多种编码的中文字符串截取函数!   复制代码 代码如下: /*     * @todo 中文截取,支持gb2312,gbk,utf-8,big5      *     * @param string $str 要截取的字串     * @param int $start 截取起始位置     * @param int $length 截取长度     * @param string $charset utf-8|gb2312|gbk|big5 编码      * @param $suffix

  • php字符串截取函数用法分析

    本文实例分析了php字符串截取函数用法.分享给大家供大家参考.具体分析如下: php自带的截取字符串的函数只能处理英文,数字的不能截取中文混排的,后面一个示例比较好用,第一个主要是给初学者学学用的,具体代码如下: 复制代码 代码如下: <?php   //构造字符串   $str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";   echo "原字符串:<b>".$str."</b><br>&quo

  • php自定义中文字符串截取函数substr_for_gb2312及substr_for_utf8示例

    本文实例讲述了php自定义中文字符串截取函数substr_for_gb2312及substr_for_utf8用法.分享给大家供大家参考,具体如下: /* *gb2312中文字符串截取 */ function substr_for_gb2312($str,$start,$len=null) { $totlelength = strlen($str); //特例情况 if ($len == null) $len = $totlelength; if ($len ==0) return ""

  • thinkPHP内置字符串截取函数用法详解

    本文实例讲述了thinkPHP内置字符串截取函数用法.分享给大家供大家参考,具体如下: thinkphp内置了一个可以媲美smarty的模板引擎,给我们带来了很大的方便.调用函数也一样,可以和smarty一样调用自己需要的函数,而官方也内置了一些常用的函数供大家调用. 比如今天我们说的截取字符串函数,在thinkphp模板引擎里可以这样写:{$vo.title|msubstr=0,5,'utf-8′,false} 至于{$vo.title}这个大家肯定不陌生了.就说说后边的函数msubstr吧.

  • js字符串截取函数substr substring slice使用对比

    常用三个的字符串截取函数:substr substring slice,调用方式如下 复制代码 代码如下: stringObject.slice(start,end) stringObject.substr(start,length) stringObject.substring(start,end) 最明显的是substr,第二个参数是length,是截取长度,其他两个函数的第二个参数都是末尾字符的下标(这里并不包括该下标的字符,只截取到该字符的前一个字符) slice跟substring比,

  • Golang中文字符串截取函数实现原理

    在golang中可以通过切片截取一个数组或字符串,但是当截取的字符串是中文时,可能会出现的问题是:由于中文一个字不只是由一个字节组成,所以直接通过切片可能会把一个中文字的编码截成两半,结果导致最后一个字符是乱码. 例如: 想要截取前四个字 name := "我是胡八一" fmt.Println("name[:4] = ",name[:4]) 执行后得到的结果会是这样的: name[:4] = 我? 解决方法: 先将其转为[]rune,再截取后,转会string na

  • php字符串截取函数mb_substr用法实例分析

    本文实例讲述了php字符串截取函数mb_substr用法.分享给大家供大家参考,具体如下: string mb_substr ( string $str , int $start [, int $length = NULL [, string $encoding = mb_internal_encoding() ]] )-截取字符串 (PHP 4 >= 4.0.6, PHP 5) $str 要获取字符串的目标字符串(字符串起始位置为0) $start,$str中要使用的第一个字符的位置 $len

  • 详解MySQL substring() 字符串截取函数

    目录 MySQL substring() 字符串截取函数 1.从左边开始截取 2.从右边开始截取 3.截取特定长度的字符串 4.根据关键字截取字符串 MySQL substring() 字符串截取函数 MySQL 查询数据有时候需要对数据项进行日期格式化或截取特定部分的操作,当需要对字符串进行截取加工时用到了 substring() 函数. 1.从左边开始截取 语法:left(str, length) 说明:left(被截取字符串, 截取长度) 例子如下: select left('wangbi

随机推荐