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

WBOY
Freigeben: 2016-07-25 09:02:50
Original
1368 Leute haben es durchsucht
  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. ?>
复制代码


Quelle:php.cn
Erklärung dieser Website
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn
Beliebte Tutorials
Mehr>
Neueste Downloads
Mehr>
Web-Effekte
Quellcode der Website
Website-Materialien
Frontend-Vorlage
Über uns Haftungsausschluss Sitemap
Chinesische PHP-Website:Online-PHP-Schulung für das Gemeinwohl,Helfen Sie PHP-Lernenden, sich schnell weiterzuentwickeln!