asp 获取字符串长度函数

最新推荐文章于 2024-03-06 00:35:39 发布

airweilai

最新推荐文章于 2024-03-06 00:35:39 发布

阅读量3.2k

点赞数

文章标签： asp

本文链接：https://blog.csdn.net/airweilai/article/details/3042910

版权

 
 Function GetLength(strChinese1)
  Dim strWord, ascWord, lenTotal
  strChinese1 = Trim(strChinese1)
  If strChinese1 = "" or Vartype(strChinese1) = vbNull then
    GetLength = 0
    Exit Function
  End If
  lenTotal = 0 
  For GetLengthi=1 to Len(strChinese1)
    strWord = Mid(strChinese1, GetLengthi, 1)
    ascWord = Asc(strWord)
    If ascWord < 0 or ascWord > 127 then
      lenTotal = lenTotal + 2
    Elseif ascWord = 63 And strWord <> "?" then
      lenTotal = lenTotal + 2
    Elseif ascWord = 44 And strWord <> "," then
      lenTotal = lenTotal + 2
    Elseif ascWord = 33 And strWord <> "!" then
      lenTotal = lenTotal + 2
    Else
      lenTotal = lenTotal + 1
    End If
  Next
  GetLength = lenTotal
End Function
 