编写asp代码截取字符串

2015-08-12 16:00:20来源:作者:人点击

   编写asp代码截取字符串:

  '函数名:SubstZFC

  '作 用:截字符串,汉字一个算两个字符,英文算一个字符

  '参 数:str ----原字符串

  ' strlen ----截取长度

  '返回值:截取后的字符串

  '适用:标题截取指定字符,如果用LEFT截取,当有英文时就会出现取出来的标题明显太短。

  '**************************************************

  Public Function SubstZFC(ByVal str, ByVal strlen)

  If str = "" Then

  SubstZFC = ""

  Exit Function

  End If

  Dim l, t, c, i, strTemp

  str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<")

  l = Len(str)

  t = 0

  strTemp = str

  strlen = CLng(strlen)

  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

  strTemp = Left(str, i)

  Exit For

  End If

  Next

  SubstZFC = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "<", "<")

  End Function

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台