ASP 截取字符串

最新推荐文章于 2024-02-29 15:53:11 发布

Aresthor_CN

最新推荐文章于 2024-02-29 15:53:11 发布

阅读量635

点赞数

分类专栏： ASP 文章标签： asp function null

本文链接：https://blog.youkuaiyun.com/Aresthor/article/details/1833210

版权

ASP 专栏收录该内容

16 篇文章

订阅专栏

'===============================================================
'Strsub
'函数功能：获取字符串长度(汉字长度为2).
'参数意义：str ---- 字符串
'===============================================================
Function strlen(str)
  Dim p_len,xx
  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

'===============================================================
'Strsub
'函数功能：字符串截取.
'参数意义：str ---- 要截取的字符串. lennum---截取的字符数. s---结尾字符
'===============================================================

Function Strsub(str,lennum,s)
  If Not IsNull(str) Then
   Dim p_num,x
   Dim i
   If strlen(str)<=lennum Then
    Strsub=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
     Strsub=Left(Trim(str),x)&s //截取后定义超出部分内容的显示方式
    Loop
   End If
  Else
   Strsub="Null"
  End If
End Function