項目に入力できる文字列をバイト数で制限したいのですが。。。

質問

VBScriptでやろうと思ったのですが、"StrConv"が使えないようなので、うまくいきません。何か良い方法があれば、教えてください。よろしくお願いします。
例えば
"あ１"なら4バイト。
"あ1"なら3バイト。
のようにしたいのです。

回答No.1

hequil · ベストアンサー

私は以下の関数で文字列のバイト数を取得してます。
あまり良い方法じゃないかもしれませんが、参考まで

Function GetStringByte( strMoji )
　　Dim intLength, intPos, intMojiAsc
　　intLength = 0

　　If Len( strMoji ) > 0 Then
　　　　For intPos = 1 To Len( strMoji )
　　　　　　intMojiAsc = Asc( Mid(strMoji, intPos, 1) )
　　　　　　If intMojiAsc >= 0 And intMojiAsc < 256 Then
　　　　　　　　intLength = intLength + 1
　　　　　　Else
　　　　　　　　intLength = intLength + 2
　　　　　　End If
　　　　Next
　　End If

　　GetStringByte = intLength
End Function