文字数と、文字バイト数と取得するには？

解決

---

始めまして bell と申します。

String型文字列に入っている文字（全角、半角交じり）の
文字数と、文字バイト数を取得したいのですが、
正常に取得できません。

Len関数を使うと、文字数は取得できるのですが、
全角も１文字と数えてしまうため、文字バイト数で
つっかえてしまいます。
文字列"あa"を、下記のように取得する方法はあるのでしょうか？
  文字数      ：2
  文字バイト数：3

希望：
できれば、１文字毎に２バイト文字か１バイト文字かを
チェックをするのは避けたいのですが・・・。


よろしくお願いいたします。

編集    削除

---

StrConvでvbFromUnicodeを指定して変換した文字列に
LenBを使ってみて下さい。

編集    削除

---

ありがとうございます。
下記のコードにて文字バイト取得に成功しました。

-------------------------------------------
Dim nlen as Long
Dim chkstr as String

chkstr = "あa"
nlen = LenB(StrConv(chkstr, vbFromUnicode))

-------------------------------------------

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。