• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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 c0 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


    您可能感兴趣的文章:
    • asp截取字符串的两种应用
    • asp下实现截取字符串特定部分内容函数
    • GetBody asp实现截取字符串的代码
    • 用asp实现的截取指定格式字符串的代码
    • asp从字符串里截取N个带HTML的字符的函数
    • asp截取指定英汉混合字符串_支持中文
    • ASP.NET 字符串截取
    • asp CutStrX字符串截取函数(过滤全部HTML标记)
    • asp实现截取字符串函数
    上一篇:asp实现图片右键滑轮控制大小的函数
    下一篇:asp下实现格式化文件大小以MB显示的函数
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp 字符串截取函数 asp,字符串,截取,函数,asp,