Rumah  >  Artikel  >  pembangunan bahagian belakang  >  一个好用的字符串截取函数(汉字一个算两个字符,英文算一个字符)

一个好用的字符串截取函数(汉字一个算两个字符,英文算一个字符)

WBOY
WBOYasal
2016-07-25 09:02:501391semak imbas
  1. '**************************************************
  2. '函数名:gotTopic
  3. '作 用:截字符串,汉字一个算两个字符,英文算一个字符
  4. '参 数:str ----原字符串
  5. ' strlen ----截取长度
  6. '返回值:截取后的字符串
  7. '**************************************************
  8. Function gotTopic(ByVal str, ByVal strlen)
  9. If str = "" Then
  10. gotTopic = ""
  11. Exit Function
  12. End If
  13. Dim l, t, c, i, strTemp
  14. str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "l = Len(str)
  15. t = 0
  16. strTemp = str
  17. strlen = CLng(strlen)
  18. For i = 1 To l
  19. c = Abs(Asc(Mid(str, i, 1)))
  20. If c > 255 Then
  21. t = t + 2
  22. Else
  23. t = t + 1
  24. End If
  25. If t >= strlen Then
  26. strTemp = Left(str, i)
  27. Exit For
  28. End If
  29. Next
  30. If strTemp str Then
  31. strTemp = strTemp & "…"
  32. End If
  33. gotTopic = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "End Function
  34. ?>
复制代码


Kenyataan:
Kandungan artikel ini disumbangkan secara sukarela oleh netizen, dan hak cipta adalah milik pengarang asal. Laman web ini tidak memikul tanggungjawab undang-undang yang sepadan. Jika anda menemui sebarang kandungan yang disyaki plagiarisme atau pelanggaran, sila hubungi admin@php.cn