インターセプト テキスト長関数は UTF-8 をサポートしており、文字列をインターセプトするほとんどの友人を満足させることができます。次のようにコードをコピーします。
「************************************
'テキスト長インターセプト機能、UTF-8をサポート
'入力パラメータ:
' 1. テキストの内容
' 2. 最大テキスト長
「************************************
パブリック関数 Cut_Title(Title,TLen)
薄暗いk、i、d、c
ikB
合計のディム
CDbl(TLen) > 0 の場合
k=0
d=StrLen(タイトル)
iStr=
ForTotal = Len(タイトル)
i=1 から ForTotal まで
c=Abs(AscW(Mid(タイトル,i,1)))
c>255 の場合
k=k+2
それ以外
k=k+1
終了の場合
iStr=iStr&Mid(タイトル,i,1)
CLng(k)>CLng(TLen) の場合
iStr=iStr..
出口
終了の場合
次
Cut_Title=iStr
それ以外
カットタイトル=
終了の場合
終了機能
「******************************」
'テキスト長検出機能、UTF-8をサポート
'入力パラメータ:
' 1. テキストの内容
「******************************」
パブリック関数 StrLen(strText)
薄暗いk、i、c
合計のディム
k=0
ForTotal = Len(strText)
i=1 から ForTotal まで
c=Abs(AscW(Mid(strText,i,1)))
c>255 の場合
k=k+2
それ以外
k=k+1
終了の場合
次
StrLen=k
終了機能