-PR-
解決
済み

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

  • 暇なときにでも
  • 質問No.32927
  • 閲覧数327
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 59% (28/47)

VBScriptでやろうと思ったのですが、"StrConv"が使えないようなので、うまくいきません。何か良い方法があれば、教えてください。よろしくお願いします。
例えば
"あ1"なら4バイト。
"あ1"なら3バイト。
のようにしたいのです。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル12

ベストアンサー率 65% (242/372)

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

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
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ