便利な文字列インターセプト機能(中国語は2文字、英語は1文字としてカウント)

WBOY
リリース: 2016-07-25 09:02:50
オリジナル
1384 人が閲覧しました
  1. '************************************** *** ***********
  2. '関数名: gotTopic
  3. '関数: 文字列を切り捨て、中国語1文字は2文字としてカウントし、英語1文字は1文字としてカウントします
  4. 'パラメータ: str - ---元の文字列
  5. ' strlen ---- インターセプト長
  6. '戻り値: インターセプトされた文字列
  7. '*************************** ********* *******************
  8. 関数 gotTopic(ByVal str, ByVal strlen)
  9. If str = "" then
  10. gotTopic = ""
  11. 関数終了
  12. End If
  13. Dim l , t, c, i, strTemp
  14. str = Replace(Replace(Replace(str, " ", " "), """, Chr(34)), "> ", ">"), " <", "<")
  15. l = Len(str)
  16. t = 0
  17. strTemp = str
  18. strlen = CLng(strlen)
  19. For i = 1 To l
  20. c = Abs(Asc(Mid(str, i , 1)))
  21. If c > 255 then
  22. t = t + 2
  23. Else
  24. t = t + 1
  25. End If
  26. If t >= strlen then
  27. strTemp = Left (str, i)
  28. Exit For
  29. End If
  30. Next
  31. If strTemp <> str then
  32. strTemp = strTemp & "…"
  33. End If
  34. gotTopic = Replace(Replace(Replace(strTemp, " ", " "), Chr(34), " ""), ">", ">"), "<", "<")
  35. 関数終了
  36. ?>
コードをコピー


ソース:php.cn
このウェブサイトの声明
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。
人気のチュートリアル
詳細>
最新のダウンロード
詳細>
ウェブエフェクト
公式サイト
サイト素材
フロントエンドテンプレート