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

'************************************** *** ***********
'関数名: gotTopic
'関数: 文字列を切り捨て、中国語1文字は2文字としてカウントし、英語1文字は1文字としてカウントします
'パラメータ: str - ---元の文字列
' strlen ---- インターセプト長
'戻り値: インターセプトされた文字列
'*************************** ********* *******************
関数 gotTopic(ByVal str, ByVal strlen)
If str = "" then
gotTopic = ""
関数終了
End If
Dim l , t, c, i, strTemp
str = 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
If strTemp <> str then
strTemp = strTemp & "…"
End If
gotTopic = Replace(Replace(Replace(strTemp, " ", " "), Chr(34), " ""), ">", ">"), "<", "<")
関数終了
?>